محمد أبوعبدالله

تفضل اخي الكريم strSQL = "SELECT tblCity.strCountry_ID, tblCity.strCity FROM tblCity WHERE (((tblCity.strCountry_ID)=[forms]![frmComboBox]![cmbCountry]));" ظهور المدن مباشرتا عنداختيار الدوله.rar تحياتي

نعم اخي في النموذج غير قيم مربح وتحرير وسرد = text3 الى الشعب الموجودة عندك او غير text2 الى الشعب الموجودة عندك >>> وغير في الاستعلام من text3 الى text2 تحياتي

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

السلام عليكم مرحبا اخي الكريم المشكلة عندك في معيار الاستعلام فمثلا الاستعلام يقوم باشاء جدول بمعيار الاسم [Forms]![FORM2]![text1] ومعيار الشعبة [Forms]![FORM2]![text3] بينما انت عندك text3 = المادة ايضا لديك مشكلة بوجد زيادة في النص مرة في اول النص ومرة في اخره مثال : في النموذج وفي مربع وتحرير وسرد text3 انسخ كلمة " احياء "2 والصقها في نوت باد ستجد انها بها زيادة في اول الكلمة مثال اخر : في الجدول ستجد مسافة زائدة في نهاية الصف "الأول الثانوي " تحياتي

تفضل اخي الكريم موضوع اكثر من رائع لتفعيل البرنامج اون لاين تحياتي

وعليكم السلام ورحمة الله وبركاته استبدل Me.x = "" بالتالي Me.x = Null xxxxxx.rar

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم السطر الاول يقوم بفتح النموذج الثاني السطر الثاني يغلق النموذج الاول DoCmd.OpenForm "frmUpdate" DoCmd.Close acForm, "frmIndex" ملاحظة لا تقم بتسمية الجداول او الاستعلامات او النماذج او التقارير او العنار باسماء محجوزة مثل ( Update او Index ... الخ ) تحياتي

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

تفضل اخي الكريم متابعة الشيكات v391.rar تحياتي

السلام عليكم تفضل اخي الكريم تم الانتهاء من ( البحث العام - البحث بين تاريخين - البحث بقيمة الشيك ) Option Compare Database Option Explicit Dim myCriteria As String Private Sub X0_Exit(Cancel As Integer) Me.Search2.Requery End Sub Private Sub X2_Exit(Cancel As Integer) If IsNull([X1]) Or IsNull([X2]) Then MsgBox "يجب أن تدخل التاريخين الافتتاحي والختامي", vbInformation, "Acoade 2019" DoCmd.GoToControl "X1" Else If [X1] > [X2] Then MsgBox "يجب أن يكون التاريخ الختامي أكبر من التاريخ الافتتاحي", vbInformation, "Acoade 2019" DoCmd.GoToControl "X2" Else myCriteria = myCriteria & "(" myCriteria = myCriteria & "[الشيك].[تاريخ الاصدار] between #" & Format(Me.X1.Value, "mm/dd/yyyy") & "# and #" & Format(Me.X2.Value, "mm/dd/yyyy") & "#" myCriteria = myCriteria & ")" Debug.Print myCriteria Me.Search2.Form.Filter = myCriteria Me.Search2.Form.FilterOn = True End If End If End Sub Private Sub X3_Exit(Cancel As Integer) If Not IsNull(Me.X3) Then myCriteria = myCriteria & "(" myCriteria = myCriteria & "[الشيك].[المبلغ ارقام]= " & Me.X3 & "" myCriteria = myCriteria & ")" Debug.Print myCriteria Me.Search2.Form.Filter = myCriteria Me.Search2.Form.FilterOn = True End If End Sub متابعة الشيكات v391.rar تحياتي

خيرا ان شاء الله الليلة ان شاء الله اكمل لك نموذج البحث تحياتي

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم تحياتي

تفضل اخي الكريم Db3.accdb تحياتي

مرحبا استاذي الفاضل ابوياسين الملف يعمل على نسخة 2007 واعلى عمما قمت بانشاء قاعدة جديدة واستيراد الكائنات اليه تفضل يا غالي Db3.rar تحياتي

تفضل اخي الكريم متابعة الشيكات v1001.rar تحياتي

التقارير لا يتم فيها ادخال بيانات مباشرة ادخال البيانات يكون غالباً في النماذج تحياتي

لانك جعلت خاصية AllowAdditions = No والصحيح ان تكون = Yes متابعة الشيكات v1001.rar تحياتي

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم وجدت لك هذا الموضوع تحياتي

لمنع التعديل نستخدم الكود التالي Me.نوع_الغياب.Locked = True Me.سبب_الغياب.Locked = True Me.تاريخ_الغياب.Locked = True Me.تاريخ_العودة.Locked = True للسماح بالتعديل نستحدم الكود التالي Me.نوع_الغياب.Locked = False Me.سبب_الغياب.Locked = False Me.تاريخ_الغياب.Locked = False Me.تاريخ_العودة.Locked = False

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم Private Sub Command19_Click() Me.نوع_الغياب.Locked = False Me.سبب_الغياب.Locked = False Me.تاريخ_الغياب.Locked = False Me.تاريخ_العودة.Locked = False End Sub Private Sub Form_Current() Me.نوع_الغياب.Locked = True Me.سبب_الغياب.Locked = True Me.تاريخ_الغياب.Locked = True Me.تاريخ_العودة.Locked = True End Sub 1الموظف.rar تحياتي

وعليكم السلام ورحمة الله وبركاته تقضل اخي الكريم A.rar تحياتي

اميييييييييين وجزاكم الله خيرا اخي الكريم تحياتي

العفو استاذنا الفاضل وزادك الله رفعةً وعلماَ تحياتي

وعليكم السلام ورحمة الله وبركاته اعتقد ان استخدام النسخة يعتمد على المبرمج اولاً حسب ما يراه مناسب بالنسبة له فنرى مثلاً النقلة الكبيرة بين اوفيس 2003 واوفيس 2007 واعلى نقلة كبيرة حتى صيغة الملف نفسه اختلف وبالنسبة للعميل فلا اعتمد على النسخة التي يعمل عليها بل ادمج access runtime في ملف التجميع ( قاعدة البيانات - access runtime - الخطوط - الايفونات - الصور - ملف reg لتخفيض الامان ... الخ ) وبهذا لا تعارض بيني وبين العميل ان شاء الله تحياتي