نجوم المشاركات

وجدت لك هذا @Elsayed Bn Gemy انظر لعدد السجلات في التقرير .... KANORY.accdb

بارك الله فيك على التوضيح وننتظر دره لربما يرد شيئ اخر ......

لاحظ الصورتين ...... أين الفرق وضح .....

وعليكم السلام ورحمة الله ..... فكرة : انها تشبه نظام طباعة الشيكات ..... بمعنى ..... - تحديد الطول والعرض بدقة - معرفة ابعاد رأس الروشته وذيلها - تحديد عدد الاسطر أو السجلات في الورقة المتبقية - تنفيذ ذلك على التقرير ( أي المحاولة والخطأ ) حتى يتم ضبط الروشتة .... طبيعي تحتاج وقت هذا رأي ..... والله أعلم

تفضل أخي عبداللطيف تجربة متعددة.accdb

الان شيئ حاضر لتحديد عدد السجلات غير متوفر .... لكن جاري البحث في المنتدى .... ابشر

بعض اجهزة الباركود لانعمل الا على انواع معينة من الباركود .... لربما جهاز السائل من هذه الانواع .... بارك الله فيك أخي احمد

غير في هذه الاعدادات وحرب واحدة تلو الاخرى .....

احسنت اخى خالد جزاك الله كل خير وكما قال اخى واستاذى ومعلمنا العزيز تنوع الحلول فيه فوائد كثيره بارك الله فيكم اخوانى واساتذتى جزاكم الله خيرا

يمكنك استخدام مثل هذا الكود : Me.srver_Time = Make_File() if format(Make_File(),"dd-mm-yyyy") <> format(date(),"dd-mm-yyyy") then msgbox "تاريخ السيرفر غير عن تاريخ الجهاز" end if . جعفر

وعليكم السلام بارك الله فيك اخى مرفق مثال اخى @kanory بعد ضبطها لك جزاهم الله خيرا اخوانى واساتذتى ومرفق صوره ايضا للطريق لان هدفنا التعليم بالتوفيق اخى New Microsoft Access Database(3).accdb

هناك اداة يجب تثبيتها ليعمل لديك الباركود أخي احمد ....

اخى اشرف نزلت مثالك بالخط وثبت الخط ولكن لم يظبط معى فما السبب ؟ وفيك بارك الله اخى لعل الاستاذ مصطفى يوافينا بنوع القارىء لنبحث معه على نوعيه الخطوط التى يقرئها

تسلم أخي أحمد لك 😘 لجهودك المتميزة في المنتدى بارك الله فيك وفي امثالك .

منور اخى صالح @ابوآمنة جزاك الله خيرا تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق

السلام عليكم مبادرة بسيطة بس طويله مع اخوتي kanory و أحمد الفلاحجى تحياتي New Microsoft Access Database.rar

جزاك الله خيرا اخى @kanory اعتقد هو شافهم مثلى عمود واحد تحت بعض مثلى ولرؤيتهم صف واحد بجوار بعض يجب ضبط طريقه العرض الافتراضيه على معاينه قبل الطباعه جزاك الله خيرا تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق

وعليكم السلام اخى الفاضل محاوله منى على قد ما قدرت اخى الفاضل برجاء اختيار عنوان مناسب بعد ذلك للموضوع - مثلا (مشكله باستعلام الحاق وتصدير للاكسيل) فى حقول كتير لم يتم استيرادها من بعد اخر حقل الدمج اول حقل بعده الثانى لم يتم الثالث والرابع والخامس تركت لك استعلام الالحاق حتى لو اردت ان تعدل عليه ( هو مالوش لازمه حاليا يتم الاستيراد بالكود ) صدر واستورد ووافنا بالنتيجه تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق A_Database.accdb

وعليكم السلام 🙂 الطريقة الجديدة اللي توصلت لها هي عمل وحدة نمطية ، في برنامج الواجهة (ليس على السيرفر) تقوم بالتالي: - عمل ملف txt صغير على جهاز السيرفر، - قراءة الوقت الذي تم فيه عمل الملف (من اعدادات الملف) ، وهو الوقت الذي نريده ، -حذف الملف Public Function Make_File() Dim BE_Path, PauseTime, Start 'get the server path BE_Path = DLookup("[Database]", "MSysObjects", "[Flags]=2097152") 'Path and BE name BE_Path = Mid(BE_Path, 1, InStrRev(BE_Path, "\")) BE_Path = BE_Path & "dummy.txt" 'make the dummy txt file Open BE_Path For Output As #1 Print #1, "No text required" Close #1 'pasue for a second, until file is recognized, for slow networks PauseTime = 1 ' Set duration. Start = Timer ' Set start time. Do While Timer < Start + PauseTime DoEvents ' Yield to other processes. Loop 'get the date created Make_File = FileDateTime(BE_Path) 'clean up, delete the file Kill BE_Path End Function . وننادي هذه الوحدة النمطية هكذا: Me.srver_Time = Make_File() . وبما ان ملف الجداول يكون في مجلد يسمح فيه بإنشاء/تعديل/حذف ملف ، فهذه الطريقة المفروض انها تشتغل 🙂 طريقة العمل هي ان تضع ملف my_BE.mdb على السيرفر ، وملف my_FE.mdb على كمبيوترك ، ثم تربط جدول الواجهة مع جدول الخلفية (سيسألك البرنامج عن فتحه) 🙂 جعفر Server Time.zip

أ الفاضل المحترم / أحمد بك ........اشكرك ربنا يزيك من العلم .لك كل تحياتي .. هجربهم واقولك اللي تم

وعليكم السلام -اهلا بك فى المنتدى ,لك ما طلبت fixed Time.xlsm

اتفضل اخى حسين ان شاء الله يكون ما اردت امسح السجلات من النموذج وبعد تاكيد الحذف هتلاقى الكود اتغير و التاريخ اتمسح جرب ووافنا بالنتيجه بالتوفيق ان شاء الله A_UpdateNew.accdb

اخى اشرف تعدد الحلول جميل جزاك الله خيرا لمشاركتك ايانا ولكن غير لان يظهر باول اسم كان به رمز او عفريت هههههههههههههههههههه =Code39([Number]) تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق

بارك الله فيك هذا ما كنت اريده تماما

سؤال هل قمت بتثبيت الباركود ؟ مرفق ملف لتقريرك اطبعه ووافنا بالنتيجه REPORT.pdf ان لم تكن ثبت الباركود قم بتثبيته مرفق ملف الباركود وملف لتسهيل التثبيت ووافنا بالنتيجه بالتوفيق تسجيل ادوات اكتيف اكس وعند تسجيل اي اداة وذلك بالضغط بالماوس الايمن عليها ستجد هذا البرنامج موجود ضمن القائمocxdllreg.rar B-barcodex.rar

السلام عليكم الاخوة الاعزاء في المنتدى x لدى تنفيذ كوماند لنقل البيانات ظهرت رسالة خطأ تشير الى الاكتيفز و حسب الصورة المرفقة بالمشاركة ارجو افادتي سبب الاعتراض و عدم تنفيذ الكوماند مع التقدير لجميع الاعضاء في المنتدى

العفو اخى والشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا بالتوفيق ان شاء الله

بارك الله فيكم و شكرا على مجهودكم اسأل الله أن يجمعك بمن تحب و يفتح لك أبواب السعادة و التوفيق ويعطيك كل ماتريده وترغبه و يرزقك من حيث لا تحتسب

سلمت يداك استاذ احمد المحترم على اضافة المشاركة الثانية كانت مفيدة لي لحل المشكلة التي واجهتني مع التقدير

هدف سامى ومجهود مشكور اخى الكريم جزيت خيرا انت وجميع اخوانى الكرام

بارك الله فيك قمت بتحديد ابعاد راس الوشتة وذيلها بالفعل وقكت بتظبيط التقرير على هذه الابعاد ولكن ما اشرت اليه هنا كان ينقصنى وهو تحديد عدد سجلات الروشتة الواحدة سابحث فى هذا الامر وان كنت تعرف كيف لى كذلك وتوفر عليا عناء البحث فجزاك الله عنى خيرا

السلام عليكم اريد التكرم بالمساعدة في عمل فلترة للبيانات بناءا على الشرط تجربة متعددة.accdb

جرب الخط نزل النموذج وجرب معاه الخط النموذج غير الاصل IDAutomation Code128 Demo Font.rar BarCode_up.accdb

جرب كدة مرفق الخط المستخدم BarCode_up.accdb IDAutomationSC128XS.zip جرب وافدني

اخى الفاضل مصطفى لم تكرار الموضوع ضع بيانات القارىء لديك لعل المشكله به ويفيدك به اخواننا واساتذتنا فكنت قد قمت بتجربه طباعه الباركود وقرائته وتمت بنجاح وليس متوفر حاليا الا يوم الاحد بالعمل تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

🙂

السلام عليكم تم التعديل على الملف بحيث عند نقل الملف إلى جهاز اخر يمكن استعراض الصور وكذلك يتم حفظ الصور في ملف Picture باسم الموظف (يمكن تغييرها الى رقم (id) بعد ادراج الصورة لابد من ادخال كل البيانات ثم اضغط على زر حقظ اعلمنا النتائج تحياتي صورة الموظف.rar

اللهم آمين

مبدع وانحلت المشكله لدي والله يجعل والديك في الجنه

اولاَ الملف يجب ان يحتوي على قليل من البيانات وليس اكثر من 1500 صف (انه نموذج وليس الملف الخقيقي) ثانياً أهنئك على انك فهمت ماذا يعني الجدول للاكسل وقمت بتطبيق المطلوب من ناحية عدم ادخال خلايا غريبة في الجدول وعدم ادراج خلايا مدمجة ثالثاً يجب ادراج انتائج في صفحة مستقلة (من اجل عدم الخطأ في حال تشغيل الماكرو اكثر من مرة) في هذه الحالة يتم تجاوز الصف الأعلى رابعاً تم ادراج مثال عما تريد في صفحتين الاولى للبيانات السابقة (Salim) والثانية للبيانات المحدثة (Final) تم اخفاء بعض الاعمدة وليس حذفها لرؤية النتيجة فقط الكود Option Explicit Sub From_To() Dim S As Worksheet, F As Worksheet Dim Ro%, RofC%, rofAJ%, I%, Str$ Dim Dict As Object Set S = Sheets("Salim"): Set F = Sheets("Final") Set Dict = CreateObject("Scripting.Dictionary") Ro = S.Cells(Rows.Count, 3).End(3).Row RofC = F.Cells(Rows.Count, 3).End(3).Row rofAJ = F.Cells(Rows.Count, "Aj").End(3).Row F.Range("C11:C" & RofC).ClearContents F.Range("AJ11:Aj" & rofAJ).ClearContents For I = 11 To Ro Select Case Trim(Range("AJ" & I)) Case "الاول": Str = "الثاني" Case "الثاني": Str = "الثالث" Case "الثالث": Str = "الرابع" Case "الرابع": Str = "الخامس" Case "الخامس": Str = "السادس" Case "السادس": Str = "يرحل للثانوي" Case Else: Str = "To Coll" End Select If Range("AK" & I) = "ناجح" Then Dict(Range("C" & I).Value) = Trim(Str) Else Dict(Range("C" & I).Value) = Range("AJ" & I).Value End If Next F.Range("C11").Resize(Dict.Count) = _ Application.Transpose(Dict.keys) F.Range("Aj11").Resize(Dict.Count) = _ Application.Transpose(Dict.items) Set Dict = Nothing: Set S = Nothing End Sub الملف مرفق من صف لاخر.xlsm

السلام عليكم اخي @رابح1999 اظن الملف المرفق هو ماتريد ان تعمله بالضبط اتمنى يكون المطلوب اعلمنا النتائج تحياتي بحث بالقائمة الفرعية والاسم معا.rar

السلام عليكم جرب المرفق اخي الكريم اتمنى يكون المطلوب اعلمنا النتائج تحياتي ProgClac44.rar

برنامج الكنترول المدرسي اليمني إهداء لكل مدارس اليمن – مجاني ولا يسمح المتاجرة به . المهام يقوم البرنامج بالمهام التالية : إحصائيات حافظة الدوام إقرار بالقوى العاملة بيانات هيئة التدريس طباعة بيانات الشهادات الرسمية سجل توزيع الكتب كشف أسماء الطلاب خاص بيانات ورصد الطلاب تقسيم الشعب سجلات الغياب الرصد الشهري كشوف المحصلة الأولى والثانية شيت كنترول نصفي وآخر كشوف المناداة نصفي وآخر دليل الطالب نصفي وآخر دليل سري نصفي وآخر استمارة تفريغ درجات نصفي وآخر كشوف نهائية نصفي وآخر أوائل نصفي العام وآخر نتيجة نصفي وآخر تحليل مواد على مستوى الشعب نصفي وآخر رفع درجات نصفي وآخر خلاصات عامة وصف ومواد إعداد أرقام الجلوس والأرقام السرية الحساب التراكمي للمدارس التي تعمل بالحساب التراكمي يمكن تحميل البرنامج المحدث من الرابط التالي : https://cutt.us/ur8My للاخوة مستخدمي برنامج الكنترول المدرسي والسكرتارية يمكنكم التواجد بهذه المجموعة على الواتساب ليصلكم كل جديد عن البرنامج ولتلقي ملاحظاتكم . https://chat.whatsapp.com/Cxlu6FtAS6QL9G2ddVcgEB

هذا الكود لا يدرج لك المكرر Sub Tarhil() Dim i!, Ro! Dim A As Worksheet, E As Worksheet Dim RgA As Range Dim DIC_C As Object, dIC_j As Object Application.ScreenUpdating = False Set E = Worksheets("EZN") Set A = Worksheets("ALL") Set RgA = A.Range("A1").CurrentRegion.Offset(1) RgA.Clear Ro = E.Cells(Rows.Count, 3).End(3).Row If Ro < 5 Then GoTo End_Me Set DIC_C = CreateObject("Scripting.Dictionary") Set dIC_j = CreateObject("Scripting.Dictionary") For i = 5 To Ro If E.Cells(i, 3) <> vbNullString Then DIC_C(E.Cells(i, 3)) = E.Cells(i, 6) End If If E.Cells(i, 13) <> vbNullString Then dIC_j(E.Cells(i, 13)) = E.Cells(i, 10) End If Next With A.Cells(2, 1).Resize(DIC_C.Count) .Value = Application.Transpose(DIC_C.Items) .Offset(, 1) = Application.Transpose(DIC_C.keys) .Offset(, 2) = Application.Transpose(dIC_j.Items) .Offset(, 3) = Application.Transpose(dIC_j.keys) End With Ro = A.Range("a1").CurrentRegion.Rows.Count With A.Range("a1").CurrentRegion.Offset(1).Resize(Ro - 1) .Borders.LineStyle = 1 .Interior.ColorIndex = 35 .Font.Size = 14 .Font.Bold = True .InsertIndent 1 End With End_Me: Set DIC_C = Nothing: Set dIC_j = Nothing Set A = Nothing: Set E = Nothing Set RgA = Nothing Application.ScreenUpdating = True End Sub الملف مرفق Tel_Test.xlsm

وعليكم السلام ورحمة الله وبركاته تفضل ما أردت الجرد.xlsx

وعليكم السلام -يمكنك استخدام هذه المعادلة =SUMPRODUCT(--($H$10:$H$20=$N1),SUBTOTAL(2,OFFSET($G$10:$G$20,ROW($H$10:$H$20)-ROW(H10),0,1))) فلترة1.xlsx

Try This File Last_Cell.xlsm

https://www.officena.net/ib/topic/101082-كيف-يمكن-زيادة-عدد-الاعمدة/?tab=comments#comment-611040

هذا بيخلينا نفكر في طريق آخر 🙂 هل جداول قاعدة البيانات موجودة على هذا الجهاز ؟ جعفر

السلام عليكم الحل في المرفق Database2.rar