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

وجدت لك هذا @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

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

وعليكم السلام اخى الفاضل لغلق نموذج وفتح تقرير اسم التقرير tabol102 DoCmd.Close DoCmd.OpenReport "tabol102", acViewReport لغلق التقرير وفتح النموذج اسم النموذج forms_1 DoCmd.Close DoCmd.OpenForm "forms_1" تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

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

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

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

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

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

السلام عليكم اتمنى ان يكون طلبك نسخة.xlsm

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

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

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

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

اشكرك أخي الغالي @ابوآمنة

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

السلام عليكم المشكلة لم تكن في الكود بل المشكلة في الخلايا المدمجة بالأعلى في الورقة، تم إلغاء دمج الخلايا في الصفوف السبعة الأولى (من 1 إلى 7) بالملف واستعمال خاصية "التوسيط عبر التحديد" للمحافظة على التنسيق المطبق على الخلايا المدمجة سابقا... وتم أيضا (استعادة) الأمر التالي والذي تم التعديل عليه سابقا في الكود : .Range(a).EntireRow.Offset(h * i - h).Copy .[A1].Offset(h * i) بدلا من الأمر : .Range(a).EntireRow.Offset(h * i - h + 1).Copy .[A1].Offset(h * i) أرجو أن يفي الغرض المطلوب.... واعذرني لعدم الإجابة على طلبك لهذه اللحظة لأني كنت مشغولا بصب علامات الفصل الثاني في المؤسسة... بن علية حاجي GN HICHAM niv1 v4.xlsm

اللهم آمين

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

شكرا جزيلا استاذنا الفاضل ....

اولاَ الملف يجب ان يحتوي على قليل من البيانات وليس اكثر من 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

وعليكم السلام 🙂 عندك المعلومة هنا . وكل اللي لازم تعمله هو تحسب عدد : P = Present = حضور A = Absent = غياب جعفر

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

هذا الكود لا يدرج لك المكرر 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

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

اهلا بك اخى واستاذنا طلابك تحت امرك ان شاء الله مرحبا اخى واستاذى @kanory اسعد بمشاركتكم اخوانى واساتذتى لاتعلم واستفيد اكثر جزاكم الله عنا كل خير ساشرح لك ما فعلته لك بالاول قمت فى وضع التصميم بوضع حقل غير منضم وسميتهtxt ثم بتعديل مصدر السجل من الجدول لاستعلام من الجدول ثم قمت باختيار الحقول كلها كانه استعلام تحديد عادى ثم قمت بوضع معيار فى حقل الموظف بالاستعلام كالتالى [Forms]![جدول1]![txt] ثم قمت فى حدث بعد التحديث لحقل txt الكود التالى Me.Requery لتحديث النموذج بالبيانات المطلوبه فى الحقل txt وهى كود الموظف وفى حدث عند فتح النموذج كود لفتح النموذج فارغ DoCmd.GoToRecord , , acNewRec هذا ما تم عملهوما عن باقى الاستفسارات فان شاء الله يسعفنى الوقت بعملها بعد الارتياح قليلا من العمل واما عن المراجعه افانصحك استاذى الغالى بتحميل 9 ملفات قبل الاخير فى توقيعى للمراجعه وطلابك معك ان شاء الله على قدر معرفتهم واخواننا واساتذتنا لايقصرون جزاهم الله كل خير تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

السلام عليكم مرفق نموذج وفى بعض الابدعات ليس من تصميمي ولكان منقول عن واحد مبدع لعلك تستفيد منهم - تحياتي نموذج جميل و روعه.rar

مرحبا اخي جعفر اريدك ان تعمل المعيار التالي وبعدين اقول لك ايش الهرجة !! Set rst = CurrentDb.OpenRecordset("Select DISTINCT cen, [Date] From tbl_T Where [Date]=#" & Format(Me.idate, "m/d/yy") & "#") RC4 = DCount("*", "tbl_T", "[Date]=#" & Format(Me.idate, "m/d/yy") & "#") تحياتي

اضافة جديدة للتقرير هل يمكن تفعليها ( أعتقد أنها مهمة جداً ) وهي عرض الإيجارات المستحقة والعقود المطلوب تجديدها خلال فترة زمنية على أقل تقدير 30 يوم الحركة العامة للمستأجرين.rar