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

الدرس الاول في UserForm عناصر الدرس 1- اضافة التبويبات الرئيسية للفورم 2- اضافة MultiPage والتحكم في الانتقالات بينها من خلال التبويبات الرئيسة باستخدام Class Module اولا : اضافة التبويبات الرئيسية 1- نقوم باضة userForm ثم نضيف اطار Frame ونضيف داخله عدد 5 Lebel بالنسبة لعنوان اكتب ما تشاء عربي انجليزي لكن المهم Label Name ( Btn1-Btn2-Btn3-Btn4) ا BackStyle =0 BorderStyle=0 واليبل الخامس لتغير خلفية النص Name=AnlBtn BackColor=&H8000000E& ثم نضيف ليبل خاص بالعنوان نسميه PageNo ثم نضيف MultiPage ونضيف في ال Page1 ثانيا ربط التبويبات بالفورم نضيف Class Module نكتب داخله الكود التالي Public WithEvents LblBtn As MSForms.Label Private Sub LblBtn_Click() ' للحركة بين التبويبات UserForm1.AniBtn.Left = LblBtn.Left 'ربط صفحات المالتي بيج مع التبويبات UserForm1.MultiPage1.Value = Right(LblBtn.Name, 1) - 1 'شريط العنوان UserForm1.PageNo.Caption = "Page No " & UserForm1.MultiPage1.Value + 1 & " ( " & LblBtn.Caption & " )" End Sub وفي الفورم Dim LblEvent(3) As New Class1 Private Sub UserForm_Initialize() With Me.MultiPage1 'لتغير استايل المالتي بيج .Style = fmTabStyleNone: .Value = 0 End With 'عدد التبويبات 4 من صفر الي 3 For AddEvent = 0 To 3 Set LblEvent(AddEvent).LblBtn = Me("Btn" & AddEvent + 1) Next AddEvent End Sub الملف بالمرفقات ياريت ننفذ الخطوات ولو اي استفسار ماتترد اتمني من الله اكون بسط الشرح ويكون فيه الاستفادة مع تحياتي MultiPage Officana.xlsm

السلام عليكم استاذ احمد الكود اعلاه كود عكس الراتب اي تكتب قيمة الراتب فيحسب الدرجة والمرحلة لهذا الراتب في سلم الرواتب في المرفق احتساب الراتب على اساس الدرجة والمرحلة ارجو ان يكون طلبك Salary.rar

السلام عليكم ورحمة الله وبركاته تحية طيبة وبعد اهدى هذا الشيت الى منتدى اوفيسنا واساتذته الذين تعلمنا على ايديهم واهديه الى مهندس المنتدى مهندس طارق محمود الذى لم يبخل على فى تقديم الحلول والمساعدات ، وحقيقة وجودى فى منتدى اوفيسنا يعد تكريما لى وشرف الشيت سهل الاستخدام ولا يحتاج الى شرح يوجد ايقونة باسم الصور اذا حبيت تضيف صورة للطالب وبجوار زر الصور زر اخر لمعاينة الصورة ان حبيت تعمل معاينة للصور 1795607452_.xlsm

بما انك لم تقم بارفاق ملف للتوضيح اكثر ممكن تجرب هدا الحل بالمعادلات للحصول على عدد الاختلافات للصنف الواحد وممكن تضيف عليه تنسيق شرطي لو احببت =SOMME(SI(A3=$B$6:$B$201;1/(NB.SI.ENS($B$6:$B$201;A3;$A$6:$A$201;$A$6:$A$201));0)) TEST.xlsx

وعليكم السلام ورحمة الله تعالى وبركاته ..تفضل اخي Sub copy() Dim MH As Worksheet, MH2 As Worksheet Dim c As Range, f As Range Dim rngCopy As Range, rngCopyTo Set MH = Sheet1 Set MH2 = ThisWorkbook.Sheets("Sheet2") Application.ScreenUpdating = False Feuil1.Activate Range("A2:A200,C2:C200,E2:E200,G2:G200,I2:I200,k2:k200,M2:M200,O2:O200,Q2:Q200,S2:S200").ClearContents For Each c In Application.Intersect(MH.UsedRange, MH.Rows(1)) If Len(c.Value) > 0 And Application.CountA(c.EntireColumn) > 1 Then Set f = MH2.Rows(1).Find(what:=c.Value, LookIn:=xlValues, _ LookAt:=xlWhole) If Not f Is Nothing Then Set rngCopy = MH.Range(c.Offset(1, 0), _ MH.Cells(Rows.Count, c.Column).End(xlUp)) Set rngCopyTo = MH2.Cells(Rows.Count, _ f.Column).End(xlUp).Offset(1, 0) rngCopyTo.Resize(rngCopy.Rows.Count, 1).Value = rngCopy.Value End If End If Next c Sheets("Sheet1").Activate Application.ScreenUpdating = True End Sub Exmple2.xlsm

رابط الدرس الاول في الفورم التفاعلي https://www.officena.net/ib/topic/116889-الدرس-الاول-في-الفورم-التفاعلي/

عليكم السلام ورحمة الله الله وبركاته نعم يمكن العمل فقط اليوز فورم تابع الشروحات وان شاء الله نتعلم مع بعض تصميم الفورم واضافة البيانات

طيب استبدل هذا السطر لديك ::: CurrentDb.Execute ("Delete * From Me.Combo15") بهذا السطر ::::: CurrentDb.Execute ("Delete * From " & Me.Combo15 & "") اعلمنا بالنتيجة :::::

عليكم السلام تفضل التعديل ارجو ان يكون طلبك yasser_10.rar

بسم الله الرحمن الرحيم الكتير منا بتجيله فكرة وعاوز ينفذها لكن عدم مقدرته علي الامساك بالخيط المناسب فيتراجع ويكبت افكاره مرة تلو الاخري لحد مايصل الي مستخدم غير قادر علي الابداع في مجاله المعذرة اني بكتب بالعامية لكن حبيت اشارككم بما في خاطري من فترة كنت بتصغح موقع هندي عجبتني فكرة الموقع في طرح المواضيع المحاضر يقوم بنشر الفكرةوينفذها مع المتابعين عن طريق درووس مدة كل درس حوالي 40 دقيقة يبدا بتصميم اليوزفورم وشرح الكود سطر سطر بيعمل ايه وليه ويرفق مع الشرح الكود فقط ويترك للمتابع المجال انه ينفذ هو ويحيك اليوز بنفسه ويركب الكود ويخطيء ويسال ويتعلم الاحساس بالتفاعل بين الاطراف بيولد طاقة ورغبة في المواصلة علي العطاء والشرح وكلنا بنتعلم من بعضنا البعض حسيت انه ده هو المهم اننا بنعمله في المنتدي ونتخلص من مشكلة الارشفة عند طرح الموضوع تلاقي نسبة المشاهدة 600 ونسبة تحميل الملف 400 والمشاركات تلاقيها 3 او 4 مشاركات عند طرح الموضوع ليس بقصد التقييم انما بقصد المشاركة نتفاعل ... نتعلم .... لكن للاسف معظمنا بحمل الملف ويحفظه في الارشيف دون التطرأ لما فيه او المحاولة لفهمه وده خلاني اطرح الموضوع الحالي واعتذر عن الاطالة الموضوع هو الفورم التغاعلي UserForm interactive التخلص من الشكل التقليديVisual Basic كلنا متفقين انه الـ Visual Basic موارده الجمالية محدودة لكن غير محدود في الخداع البصري وده يلي هانتعلمه دمج Infographics والبيئة التفاعلية مع الVisual Basic بحيث المستخدم لا يحس بالملل عند استخدامه بالمرفقات الملف يلي هانشتغل عليه خطوة خطوة في حالة قبول التفاعل مع بعضنا البعض لنتعلم ونبدع , الملف لا يحتوي الا علي الوظائف التفاعلية UserForm interactive.xlsm رابط الدرس الاول في الفورم التفاعلي اضافة MultiPage والتحكم في الانتقالات بينها من خلال التبويبات الرئيسة باستخدام Class Module رابط الدرس الثاني في الفورم التفاعلي Advance Data Entry Software مدخل للدرس الثالث How to Generate and Preview PDF File in Userform Create Dynamic Drop-Down Menu In Excel Userform قائمة شقية للاصناف الكثيرة والمتشابهة Pop-up form in Excel Userform شرح تفصيلي لأداة ال ListView وكيفية استخدامها والتعامل معها رابط الدرس الثاني ListView Right to Left الدرس الثاني Create Dynamic Drop-Down Menu In Excel Userform Dark Mood App Officana Business Application Final Template Generate QR Code برنامج ادارة الاشتراكات مع شاشة دخول متعددة المهام ZAD IPTV Subscriptions Create Drill Down Data Entry

للتوضيح فقط الكود الاول يعتمد على عناوين الاعمدة يعني حتى لو لو تم تغيير مكان العمود سوف يتم نسخ البيانات في العمود المناسب لاكن بشرط وجود نفس اسم العمود في شيت 2 وفي حالتك انت لا يوجد تشابه بين عناوين الاعمدة اليك الكود التالي سوف يلبي المطلوب بادن الله Sub Move_MH() Dim lr As Long Application.ScreenUpdating = False With Sheets("Sheet1") lr = .Cells.Find("*", , xlValues, , xlByRows, xlPrevious).Row + 1 dlg = Worksheets("sheet2").Range("A" & Rows.Count).End(xlUp).Row .Range(.Cells(2, "c"), .Cells(lr, "c")).Copy Sheets("Sheet2").Range("A" & dlg + 1) .Range(.Cells(2, "d"), .Cells(lr, "d")).Copy Sheets("Sheet2").Range("C" & dlg + 1) .Range(.Cells(2, "E"), .Cells(lr, "E")).Copy Sheets("Sheet2").Range("E" & dlg + 1) .Range(.Cells(2, "F"), .Cells(lr, "F")).Copy Sheets("Sheet2").Range("I" & dlg + 1) .Range(.Cells(2, "M"), .Cells(lr, "M")).Copy Sheets("Sheet2").Range("G" & dlg + 1) .Range(.Cells(2, "G"), .Cells(lr, "G")).Copy Sheets("Sheet2").Range("K" & dlg + 1) .Range(.Cells(2, "I"), .Cells(lr, "I")).Copy Sheets("Sheet2").Range("M" & dlg + 1) .Range(.Cells(2, "J"), .Cells(lr, "J")).Copy Sheets("Sheet2").Range("O" & dlg + 1) .Range(.Cells(2, "K"), .Cells(lr, "K")).Copy Sheets("Sheet2").Range("Q" & dlg + 1) .Range(.Cells(2, "P"), .Cells(lr, "P")).Copy Sheets("Sheet2").Range("S" & dlg + 1) End With Application.ScreenUpdating = True End Sub Test1.xlsm

]حياك الله اخي سعد دائما التفاعل يدفع للاستمرار انت تسال وهذا يسال وذاك يجيب والكل يستفيد اولا الحلقة التكرارية بدات بصفر وليس واحد لان صفحات المالتي البيج تبدا من صفر ولو غيرنا الحلة التكراريةمن صفر الي 1 الكود هايعطيك الخطا لاحظ في الكلاسيك مودل UserForm1.MultiPage1.Value = Right(LblBtn.Name, 1) - 1 Me.MultiPage1.Style = fmTabStyleNone السطر السابق لاخفاء تبيوبات المالتي بيج وهذا السطر عند انطلاق الفورم تكون الصفحة الاولي هي الاكتيف Me.MultiPage1.Value = 0 جزاكم الله خيرا جمعيا

اخى الحبيب ضاحى جزاكم الله خير وجعله الله فى ميزان حسناتك اود الاستفاده من طريقة كتابتك للاكواد اخى الحبيب مع ان الكنترول 1 2 3 4 الى انك اخترت فى الحلقة التكراريه من 0 1 2 3 واعلم انك اضفت واحد +1 لما لم تستخدم من 4:1 حاولت اعطتنى خطا For AddEvent = 0 To 3 Set LblEvent(AddEvent).LblBtn = Me("Btn" & AddEvent + 1) Next AddEvent لا اجد فى الكود ما يخفى اسماء التبويبات رغم انها تظهر فى التصميم ولا تظهر فى التشغيل page1 page2 page3 page4

مبروك الأستاذ حسونة إنضمامك لأسرة فريق الموقع ,أسأل الله لك التوفيق والنجاح دائما ..وأعانك الله على هذه المسئولية الجديدة وسدد الله خطاك .. وأهلاً ومرحباً بك بين أخوتك من أسرة فريق المنتدى الكريم ..ويسعدنا انضمامك لفريق العمل

أخي قم بالدخول إلى محرر الاكواد وشغل الكود او أعد ربط الزر بالكود copy ملاحظة في حالة كانت لك رغبة بالاحتفاظ بالبيانات السابقة بمعنى انك تريد ترحيل بيانات جديدة كل مرة في اخر صف فارغ دون حدف البيانات القديمة قم بتعطيل هدا الصف من الكود Range("A2:A200,C2:C200,E2:E200,G2:G200,I2:I200,k2:k200,M2:M200,O2:O200,Q2:Q200,S2:S200").ClearContents واليك كود اخر للترحيل بنفس الطريقة مع نسخ البيانات في اخر صف فارغ من العمود الاول Oracle_Sub Sub CopyDataBlocks() Dim SourceSheet As Worksheet Dim TargetSheet As Worksheet Dim ColHeaders As Range Dim MyDataHeaders As Range Dim DataBlock As Range Dim c As Range Dim Rng As Range Dim i As Integer Set SourceSheet = Sheets("Sheet1") Set TargetSheet = Sheets("Sheet2") With TargetSheet Set ColHeaders = .Range(.Cells(1, 1), .Cells(1, .Columns.Count).End(xlToLeft)) Set Rng = .Cells(.Rows.Count, 1).End(xlUp).Offset(1) End With With SourceSheet Set MyDataHeaders = .Range("A1:U1") Set DataBlock = .Range(.Cells(2, 1), .Cells(.Rows.Count, 2).End(xlUp)) Set Rng = Rng.Resize(DataBlock.Rows.Count, 1) For Each c In MyDataHeaders If Application.WorksheetFunction.CountIf(ColHeaders, c.Value) <> 0 Then i = Application.WorksheetFunction.Match(c.Value, ColHeaders, 0) Rng.Offset(, i - 1).Value = Intersect(DataBlock.EntireRow, c.EntireColumn).Value End If Next c End With End Sub اليك الملف مرة اخرى عليه جميع الاكواد ولك الاختيار Exmple2.xlsm

سبقتني في الرد☝️احسنت بارك الله فيك

جرب الكود التالي في حدث KeyDown في خصائص التقرير If KeyCode = vbKeyP Then MsgBox "عذرا لا يسمح لك بالطباعة", vbCritical, "ERROR" KeyCode = 0 End If If KeyCode = vbKeyV Then MsgBox "عذرا لا يسمخ بنسخ صورة التقريرm", vbCritical, "ERROR" KeyCode = 0 End If If KeyCode = vbKeyC Then MsgBox "عذرا لا يسمح بأخذ نسخة من شاشة التقرير", vbCritical, "ERROR" KeyCode = 0 نعدل لتعطيل نسخ الشاشة و لصقها أي تعطيل Ctrl C و Ctrl V

نعم ممكن الفكرة باستخدام ماكرو نسمية AutoKeys وماكرو فرعي ^p واجعل التقرير منبثق نعم ومشروط نعم مرفق مثال test.accdb

ان شاء الله احاول تكون الشروحات فيديو

جرب الان Database61(1).accdb

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

مادام الامر لم يجد اقتراحات او افكار ماعدا مشاركة الاستاذ rockjone33 فسوف اشرح فكرتي المتواضعة اولا انا ضد مثل هذا التقيد بوضع حدث عند الخروج او وضع خاصية حقل مطلوب او استخدام قناع ادخال وهو رأي شخصي غير ملزم لاحد ثانيا في رأس محرر الاكواد للنموذج وضعنا متغيير Dim x As Byte في حدث عند الخروج للحقل pname فقط وضعنا في بدايته الشرط If x = 0 Then If IsNull(Me.PNAME) Or Me.PNAME = "" Then MsgBox "حقل الاسم مطلوب", , "!!!" Cancel = -1 Undo Exit Sub Else End If End If في خصائص النموذج تبويب حدث غيرنا مفتاح المعاينة الى نعم اخير في حدث عند مفتاح للاسفل وضعنا الامر التالي x = 1 If KeyCode = 27 Then DoCmd.GoToRecord , , acPrevious x = 0 Else End If مرفق مثال بسيط Database61.accdb

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

وعليكم السلام ..بعد حذف الاسم استخدم هذا الكود للاستاذ سليم جزاه الله خيرا Sub salim() Range("A2:A" & Cells(Rows.Count, 1).End(2).Row).SpecialCells(4).EntireRow.Delete End Sub

Declare PtrSafe Function قبل الفنكشن وليس بعده

لا يمكن اضافه موقع الشبكه كمموقع موثوق الا بالطريقه التي ذكرتها في الاعلي

تفضل اخي الكريم تمكين الشفت.mdb

من اكتر المشاكل اختلاف الخطوط عند نقل الملف الي العميل ف لقيت عندي ملف من زمان لتغيير نوع الخط تقريبا كنت نزلته من هنا والله اعلم المهم عدلت عليه بحيث نقدر نختار نوع الخط بدون ما مندخل لوضع التصميم او نتقيد بخط واحد تغيير نوع الخط.rar

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

برنامج Generate QR Code إنشاء رمز الاستجابة السريعة لاحظت في الفترة الاخيرة عدة طلبات تدور حول QR Code لحاجته بالفواتير الاكترونية وهو عبارة عن كود يضم اسم السلعة او الخدمة وسعرها او حسب الحاجة اليه وما يحتويه من بيانات عن الخدمة او المنتج . البرنامج سهل ويسير ويمكن تعديله بسهولة بما يتناسب الاحتياجات المختلفة شرح البرنامج البرنامج لا يحتاج اضافة اي خطوط للويندوز يعمل من خلال https://developers.google.com/chart/infographics/docs/qr_codes تحديدحجم الكود(الطول ×العرض) من خلال QR Code Size الخيارات المتاحة اولا : لاستخدامه علي سلعة واحدة نختار حجم الكود من خلال QR Code Size القيمة الافتراضية 1 دبل كليك علي اسم السلعة في الليست بوكس ثم نضغط علي Generate In Sheet لتوليد الكود امام السلعة في نفس الشيت ثانيا: لاستخدامه علي كافة السلع او الخدمات مرة واحدة لاختيار الجميع نختار All قم Generate In Sheet ثالثا : لتصدير الكود كصورة بامتداد JPG لتصدير كود لسلعة واحدة نفس الخطوات السابقة دبل كليك علي السلعة ثم Save QR لتصدير الكود لجميع السلع مرة واحدة نختار All ثم Save QR المجلد لحفظ نفس مسار الملف داخل مجلد Dahy اتمني ان تكون فيه الفائدة مع تحياتي الملف بالمرفقات ملف مضغوط يحتوي علي البرنامج ومجلد حفظ ال QRCode QR Code Dahy Algharieb.rar

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

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

السلام عليكم أخي الكريم بالنسبة لحذف رد متعوب عليه و يمكن ان يفيد الاخرين ، فاتفق معك بان ذلك غير مناسب ، ولا اردي ما سبب حدوث ذلك، و باذن الله ساناقش الأمر مع الأحوة لتجنب حدوث ذلك مرة أخرى. و أعتذر على حدوث ذلك. بالنبسة للموضوع المغلق، تم فتحه الان لفترة اضافية، و السبب فى غلق المواضيع السابقة المكتملة هو تجنب رفعها عند الرد بالشكر مثلا بعد فترة طويلة مما يشتت متابعي الموضيع الجديدة بالقسم، سواء المتابعين بغرض القراءة او بعرض محاولة الرد. و السبب فى ذلك هو تكرار تعقيبات متتالية على مواضيع قديمة مغلق من قبل بعض الاخوة كانت تؤدي لرفع المواضيع القديمة بصورة قد تجعل الصفحة الاولي فى المنتدى كلها مواضيع من هذا النوع ، فتنتقل كافة المواضيع الجديدة للصفحة التالية و يصعب على المتابعين متابعة الجديد، حيث يتعين عليهم فتح كافة المواضيع الجديدة لمعرفة انها فقط قد تم رفعها بكلمة شكر. بينما يمكن استخدام الرموز التعبيرية للاعجاب او الشكر و التقييم دون اضافة رد و رفع الموضوع. و هذا الاجراء و غيره بالطبع قابل للتعديل وفق الظروف والمستجدات، و لكن هذا ما اجتمع الرأي عليه من فترة و لم يكن مطبقا من البداية، فقد وجد أنه الأفضل لعموم المستفيدين من الموقع باغلاق المواضيع المكتملة، و بالطبع لا يوجد رأي أو قرار ثابت ، بل يمكن تعديل أي شيء أو تعديله أو تضمين بعض الاستثناءات. مع ملاحظة أن غلق الموضوع لا يمنع التعقيب عليه وانما يمكن الاشارة له فى موضوع جديد لاستكمال الحوار و اذا لزم الامر و حينها يتم دمج الموضوعان. وهذه الحالة من حيث العدد هي الاقل مقارنة برفع المواضيع من خلال كلمات الشكر، و التي نفضل استبدالها بالعلامات التعبيرية كل لا يتم رفع المواضيع. و في حال وجود موضوع مميز يمكن الاقتراح على الاخوة المشرفين اضافته لقائمة المواضع المميزة المثبتة أو تثبيته لفترة كي تعم الفائدة بصورة اكبر ، و ايضا يمكن اضافته لمكتبة الموضع ليظهر ضمن عدد اقل من المواضيع المميزة ، فقسم الاكسيل بالمكتبة به اقل من 150 موضوع ، و اقترح عليك اضافة الموضوع المشار اليه الي مكتبة الموقع ليسهل الوصول اليه ، و عند الاضافة يتم فتح موضوع خاص بالحوار حول الموضوع بصورة آلية فى القسم المناظر و مواضيع الحوار حول ملفات المكتبة عادة لا يتم اغلافها حيث ترتبط بالملف المرفوع للمكتبة. و اقترح عمل مثال بسيط واضافته للمكتبة سواء بعمل مثال و ضمه لقسم الاكسيل بالمكتبة او رفعه ككود فى القسم المناظر. وفي حال اضافة مثال للمكتبة يمكن تعميمه على الاعضاء بالبريد ليصل للجميع . https://www.officena.net/ib/files/ و يسعدني استكمال الحوار معك اذا رايت هناك حاجة لذلك. و كما ذكرت لا توجد قواعد ثابتة ، و انما عندما نجد حاجة نناقش ما يلزم و نتفق على أي تعديل مطلوب للقواعد المتبعة.

شكرا لردك واهتمامك ، في الموضوع سبب المشكلة أنا تصديت لموضوع لم يتقدم له أحد من أعضاء المنتدى ولا يزال صاحبه يعاني ، وقد بذلت فيه جهدا كبيرا جدا لم ولن تعرفه لأن المشاركات حذفت وضاع الأثر للأسف. هذا موضوع آخر عبارة عن موضوع مميز "بحسب تقديري" المتواضع ، حيث به فكرة جديدة لاستخدام تقويم أم القرى ، وهو ليس سؤالا تم الإجابة عليه وانتهى الموضوع بانتهاء السبب/العلة. يفترض أن يترك الموضوع مفتوحا لمزيد من المشاركات التي ترجع بآرائها وافتراحاتها ونتائج تجاربها ، أعتقد الأمور واضحة ، هناك خلل يحتاج إلى إصلاح. دالتان vba لتقويم أم القرى تحياتي لكم.

اها ها هو الموضوع الذى اشرت عليه بردكم اخى ومعلمى العزيز

استخدم الدالة التالية اكتب مصدر الحقل المراد الترقيم فيه كما يلي =RowNum([Forms]![Data]) حيث data هو اسم النموذج ضع الدالة التالية في موديول جديد Public Function RowNum(frm As Form) As Variant On Error GoTo Err_RowNum 'Purpose: Numbering the rows on a form. 'Usage: Text box with ControlSource of: =RowNum([Forms]![theNameoftheForm]) With frm.RecordsetClone .Bookmark = frm.Bookmark RowNum = .AbsolutePosition + 1 End With Exit_RowNum: Exit Function Err_RowNum: If Err.Number <> 3021& Then 'Ignore "No bookmark" at new row. Debug.Print "RowNum() error " & Err.Number & " - " & Err.Description End If RowNum = Null Resume Exit_RowNum End Function

بسم الله الرحمن الرحيم هذا أول وبرنامج وسوف تجد به التالي 1- شؤون الأيتام أ- شاشة أيتام غير مكفولين ب - أحصائية الأيتام ج - أيتام لم يستلموا أستحقاقاتهم د - أيتام أستلموا أستحقاقاتهم هـ - أضافة يتيم و - أستلامات يتيم 2- شؤون الكفلاء أ - شاشة الكفلاء وأيتامهم ب - شاشة أضافة كفيل ج - شاشة أضافة وسيط د - شاشة الوسطاء وكفلائهم 3- الشؤون المالية أ - شاشة صرف ب - شاشة أستلام ج - شاشة الأرصدة د - شاشة الكشف العام و - شاشة كشف كفيل هـ - شاشة كشف يتيم 4- الخدمات 5- دليل هاتف 6- نموذج لتسجيل المواعيد 7- نموذج لأظافة البنوك 8- شؤون الموظفين والكثير مما لا يتسع المجال لذكره تمعن في هذا البرنامج وأذا رغبت في تعديل أي شئي فالجميع سوف يقوم بخدمتك والله نسأل أن يجعلها لنا في موازيننا يوم لا ينفع لا مال ولا بنون وتقبل تحياتي وسوف أبحث لك عن غيره وأضيفه لك أخيك سهل أحمد ( ابو نعيم ) Aytam.rar

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