محمد ايمن

اخي الكريم انا ام اعمل كافة مربعات النص فقط اول خمسة اما بالنسبة الى اتجاه التاريخ لم افهم ؟؟؟؟؟ (هناك مشكلة في اتجاه التاريخ )

اخي الكريم طبعا من الافضل عمل جدولين الجدول الاول يتم تخزين اسماء العملاء فيه الجدول الثاني يتم تسجيل الدفعات و الاقساط الخ

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

جرب المرفق اخي الكريم Ay_Scan1.rar

اخي الكريم اين سيتم حفظ الصورة ؟؟؟؟

اخي الكريم جرب المرفق التالي انقر نقرا مزدوجا في حقول التاريخ التي طلبتها ليظهر التقويم اما بالنسبة لمدة الاجازة فبعد ادخال المدة أدخل تاريخ بداية الاجازة و سيظهر تاريخ الانتهاء مباشرة REPORT1.rar

لم افهم معنى الطلب اخي الكريم ؟؟؟

طبعا اخي الكريم يجب ان تضغط التالي لان تصميم النموذج هكذا ( نموذج مفرد ) اما لو كان نماذج مستمرة فستظهر جميع النتائج امامك

تم حل المشكلة ad2 = "SELECT " & Me.RecordSource & ".name" & vbCrLf & "FROM " & Me.RecordSource & vbCrLf & "WHERE (((name) Like ""*"" & [forms]![payment]![nameser] & ""*""));" والكود يعمل تمام

اصدقائي الاكارم الكود التالي يبحث عن اسم في جدول ولكن مصدر النموذج يتغير نسبة الى حقل نصي المكشلة صادفتني عند تطبيق الشرط حيث لم استطع ان اعبر عن المتغير في جملة where الكود ad2 = "SELECT " & Me.RecordSource & ".name" & vbCrLf & "FROM " & Me.RecordSource & vbCrLf & "WHERE ((([aaa]) Like ""*"" & [forms]![payment]![nameser] & ""*""));" حيث aaa يعبر عن اسم الاستعلام الذي اصبح مصدرا للنموذج وهذا المرفق db1.rar

؟؟؟؟؟؟؟

اخي الكريم من قائمة أدوات ثم خيارات ضع صح جانب اشارة كائنات مخفية

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

اخي الكريم رقم الريكورد لا علاقة له بالترقيم التلقائي لان رقم الريكورد هو رقم السجل وهو في النهاية مجموع السجلات التي لديك معلمي ( ابو آدم ) بصراحة لم افكر في الغاية من حقل الترقيم التلقائي من قبل ولكن استخدمه في برنامج عندما اريد اصدار فواتير تسلسلية

اخي الكريم المدينة و القسم اصبحق قائمة منسدلة يوجد جدولين جديدين وهما city , section يتم ادخال المدينة و القسم فيهما كما تم جعل الترتيب ابجديا اما بالنسبة للبحث فهو يتضمن البحث بواسطة ( الاسم , المدينة , القسم ) طبعا يجب ان تلاحظ انه يتم البحث حسب تعبئة الحقول بالبيانات اقصد اذا كتبت في حقل الاسم محمود فهو يبحث عن محمود اكتب الان في حقل المدينة القاهرة يبحث عن محمود ضمن القاهرة اكتب اتصالات يبحث عن محمود ضمن القاهرة ضمن الاتصالات يعني يمكن البحث حسب حقل او حقلين او ثلاثة جرب ووافني بالنتيجة دليل الهاتف 2012 3.rar

جرب المرفق Accidents2.rar

جزاك الله الجنة و كل خير

اخواني الاكارم البرنامج التالي يخص محلات بيع النظارات و اطباء العينية و هو مأجور و ليس مجاني الأجرة ( دعوة صالحة لي و لمعلمي ( أبو آدم )) :rol: اترككم مع المرفق و انا بانتظار الردود ( في حال وجود خطأ لا سمح الله ) -------------------------------------------------------------------------------------------------------------------------- اعتذر لجميع الاخوة يرجى اضافة المرفق التالي مع المرفق الأول وهو وحدة نمطية لمنع التحرك بين السجلات عن طريق دولاب الفارة فقط استخرج المف المرفق وضعه في فولدر البرنامج MyCustomerData.rar std.rar

اخي الكريم استخدم الكود openreport"reportname", acViewPreview اعذرني لا استطيع رفع مرفقات و لا تحميل مرفقات

اخي الكريم جرب الكود me.refresh ضع الكود بعد كود الحذف

انا بانتظار النتائج

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

اخي الكريم بالنسبة الى ادخال المدينة طبعا يمكن ان تكون قائمة منسدلة ولكن الم تسال نفسك من اين ستاتي قيم هذه القائمة اذا لابد من جدول تدخل فيه المدينة و القسم وهذا سيزيد من صعوبة الاستخدام وفهم التعامل مع البرنامج اما بالنسبة للبحث فكما قلت لك البحث عن طريق الرقم عملية صعبة قليلا ( اربع اعمدة ( هاتف 1 - هاتف 2 - هاتف 3 - جوال )) واخيرا بالنسبة للطباعة يمكن الترتيب ابجديا او حسب تسلسل الادخال ( يعني من الاقدم للاحدث ) فكر في الموضوع ووافني بالنتيجة

اخي الكريم البحث عن طريق رقم الهاتف عملية صعبة قليلا ( لان البحث سيتم في اربع حقول ) اما المدينة فهي محلولة دليل الهاتف 2012 2.rar

اخي الكريم هذه المشكلة حصلت معي كثيرا ولم اجد حلا لها ولكن تستطيع فقط الحصول على الكود Option Compare Database Private Sub bag_dfah_AfterUpdate() If Not Me.NewRecord Then DoCmd.OpenForm "sdad", , , "[id]=" & Me![bag_dfah].Column(0) End Sub Private Sub comp1_AfterUpdate() Me.f6.Visible = False Me.f7.Visible = True Me.f7.Requery End Sub Private Sub comp2_AfterUpdate() Me.f7.Visible = False Me.f6.Visible = True Me.f6.Requery End Sub Private Sub Detail_Click() On Error Resume Next Me.f7.Visible = False Me.f6.Visible = False Me.comp1.SetFocus End Sub Private Sub Form_Load() 'On Error Resume Next 'ReSizeForm Me 'اعادة تحجيم النموذج الرئيسي 'ReSizeForm SubForm.Form 'اعادة تحجيم النموذج الفرعي '[DBOld] = CurrentDb.Name اختيار قاعدة البيانات الحالية Dim bg Dim stDocmstajr As String Dim stLinkCriteria As String bg = DLookup("Result", "Q_bageEgama") If bg > 0 Then If MsgBox("يوجد شخص او اكثر قارب عقدهم على الانتهاء" & vbCrLf & _ "هل تريد رؤيتهم", _ vbInformation + vbYesNo, _ "العقود قريبة الانتهاء") = vbYes Then stDocmstajr = "frm_agd_nhayh" DoCmd.OpenForm stDocmstajr, , , stLinkCriteria End If Else bg = DLookup("Result", "Q_bageEgama1") If bg > 0 Then If MsgBox("يوجد شخص او اكثر انتهت عقودهم " & vbCrLf & _ "هل اريد رؤيتهم", _ vbInformation + vbYesNo, _ "العقود النتهية") = vbYes Then stDocmstajr = "frm_agd_mnthy" DoCmd.OpenForm stDocmstajr, , , stLinkCriteria DoCmd.CancelEvent End If End If End If End Sub Private Sub Form_Open(Cancel As Integer) Me.ico.Picture = Application.CurrentProject.Path & "\images_5.JPG" DoCmd.Maximize Call CountClass1 End Sub Private Sub malk_jdyd_AfterUpdate() If Not Me.NewRecord Then DoCmd.OpenForm "malk", , , "[id]=" & Me![malk_jdyd].Column(0) End Sub Private Sub malk_jdyd_DblClick(Cancel As Integer) DoCmd.OpenForm "frm_malk_jdyd" End Sub Private Sub mstajr_Click() If Not Me.NewRecord Then DoCmd.OpenForm "frm_byan_mstajr", , , "[id]=" & Me![mstajr].Column(0) End Sub Private Sub no_tsdyd_AfterUpdate() If Not Me.NewRecord Then DoCmd.OpenForm "sdad_sabg", , , "[id]=" & Me![no_tsdyd].Column(0) End Sub Private Sub sdad_sabg_AfterUpdate() If Not Me.NewRecord Then DoCmd.OpenForm "sdad_sabg", , , "[id]=" & Me![sdad_sabg].Column(0) End Sub Private Sub sknid_AfterUpdate() If Not Me.NewRecord Then DoCmd.OpenForm "sdad", , , "[sknId]=" & Me![sknid].Column(0) End Sub Private Subامر0_Click() On Error GoTo Err_امر0_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = "msakn" DoCmd.OpenForm stDocName, , , stLinkCriteria Exit_امر0_Click: Exit Sub Err_امر0_Click: MsgBox err.Description Resume Exit_امر0_Click End Sub Private Sub امر1_Click() On Error GoTo Err_امر1_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = "sdad" DoCmd.OpenForm stDocName, , , stLinkCriteria Exit_امر1_Click: Exit Sub Err_امر1_Click: MsgBox err.Description Resume Exit_امر1_Click End Sub Private Sub امر2_Click() On Error GoTo Err_امر2_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = ChrW(1575) & ChrW(1604) & ChrW(1605) & ChrW(1576) & ChrW(1575) & ChrW(1606) & ChrW(1610) DoCmd.OpenForm stDocName, , , stLinkCriteria Exit_امر2_Click: Exit Sub Err_امر2_Click: MsgBox err.Description Resume Exit_امر2_Click End Sub Private Subامر3_Click() On Error GoTo Err_امر3_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = ChrW(1576) & ChrW(1610) & ChrW(1575) & ChrW(1606) & ChrW(1575) & ChrW(1578) & ChrW(32) & ChrW(1575) & ChrW(1604) & ChrW(1605) & ChrW(1587) & ChrW(1578) & ChrW(1575) & ChrW(1580) & ChrW(1585) & ChrW(1610) & ChrW(1606) DoCmd.OpenForm stDocName, , , stLinkCriteria Exit_امر3_Click: Exit Sub Err_امر3_Click: MsgBox err.Description Resume Exit_امر3_Click End Sub Private Sub امر5_Click() On Error GoTo Err_امر5_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = "wajh_sdad" DoCmd.OpenForm stDocName, , , stLinkCriteria Exit_امر5_Click: Exit Sub Err_امر5_Click: MsgBox err.Description Resume Exit_امر5_Click End Sub Private Sub امر6_Click() On Error GoTo Err_امر6_Click DoCmd.Close Exit_امر6_Click: Exit Sub Err_امر6_Click: MsgBox err.Description Resume Exit_امر6_Click End Sub Private Subامر11_Click() On Error GoTo Err_امر11_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = "kdmh" DoCmd.OpenForm stDocName, , , stLinkCriteria Exit_امر11_Click: Exit Sub Err_امر11_Click: MsgBox err.Description Resume Exit_امر11_Click End Sub Private Sub wajb_AfterUpdate() If Not Me.NewRecord Then DoCmd.OpenForm "sdad", , , "[id]=" & Me![wajb].Column(0) End Sub Private Subامر12_Click() Beep If MsgBox("ها انت متأكد من رغبتك في الخروج من البرنامج" & vbCrLf & _ "", _ vbMsgBoxRtlReading + vbMsgBoxRight + vbExclamation + vbYesNo, _ "تنبيه") = vbYes Then DoCmd.Quit End If Exit_امر300_Click: Exit Sub Err_امر300_Click: MsgBox err.Description Resume Exit_امر300_Click End Sub Private Subامر14_Click() On Error GoTo Err_امر14_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = "sdad_sabg" DoCmd.OpenForm stDocName, , , stLinkCriteria Exit_امر14_Click: Exit Sub Err_امر14_Click: MsgBox err.Description Resume Exit_امر14_Click End Sub Private Sub امر15_Click() On Error GoTo Err_امر15_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = "frm_byan_mstajr" DoCmd.OpenForm stDocName, , , stLinkCriteria Exit_امر15_Click: Exit Sub Err_امر15_Click: MsgBox err.Description Resume Exit_امر15_Click End Sub Private Sub امر22_Click() On Error GoTo Err_امر22_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = "frm_mbany_2" DoCmd.OpenForm stDocName, , , stLinkCriteria Exit_امر22_Click: Exit Sub Err_امر22_Click: MsgBox err.Description Resume Exit_امر22_Click End Sub Private Sub امر25_Click() On Error GoTo Err_امر25_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = "Control Panel" DoCmd.OpenForm stDocName, , , stLinkCriteria Exit_امر25_Click: Exit Sub Err_امر25_Click: MsgBox err.Description Resume Exit_امر25_Click End Sub Private Subامر26_Click() On Error GoTo Err_امر26_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = "wajh_tgaryr" DoCmd.OpenForm stDocName, , , stLinkCriteria Exit_امر26_Click: Exit Sub Err_امر26_Click: MsgBox err.Description Resume Exit_امر26_Click End Sub Private Subامر29_Click() On Error GoTo Err_امر29_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = "frm_malk_jdyd_2" DoCmd.OpenForm stDocName, , , stLinkCriteria Exit_امر29_Click: Exit Sub Err_امر29_Click: MsgBox err.Description Resume Exit_امر29_Click End Sub Private Subامر38_Click() On Error GoTo Err_امر38_Click DoCmd.Close Exit_امر38_Click: Exit Sub Err_امر38_Click: MsgBox err.Description Resume Exit_امر38_Click End Sub Private Sub امر43_Click() On Error GoTo Err_امر43_Click DoCmd.Close Exit_امر43_Click: Exit Sub Err_امر43_Click: MsgBox err.Description Resume Exit_امر43_Click End Sub Private Sub امر61_Click() On Error GoTo Err_امر61_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = "frm_asasyh" DoCmd.OpenForm stDocName, , , stLinkCriteria Exit_امر61_Click: Exit Sub Err_امر61_Click: MsgBox err.Description Resume Exit_امر61_Click End Sub Private Subامر62_Click() On Error GoTo Err_امر62_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = "frm_grop_noa_agar" DoCmd.OpenForm stDocName, , , stLinkCriteria Exit_امر62_Click: Exit Sub Err_امر62_Click: MsgBox err.Description Resume Exit_ÃãÑ62_Click End Sub Private Sub امر63_Click() On Error GoTo Err_امر63_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = "frm_grop_dwlh" DoCmd.OpenForm stDocName, , , stLinkCriteria Exit_امر63_Click: Exit Sub Err_امر63_Click: MsgBox err.Description Resume Exit_امر63_Click End Sub Private Sub امر64_Click() On Error GoTo Err_امر64_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = "frm_grop_mdynh_f" DoCmd.OpenForm stDocName, , , stLinkCriteria Exit_امر64_Click: Exit Sub Err_امر64_Click: MsgBox err.Description Resume Exit_امر64_Click End Sub Private Sub امر65_Click() On Error GoTo Err_امر65_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = "frm_grop_mdynh" DoCmd.OpenForm stDocName, , , stLinkCriteria Exit_امر65_Click: Exit Sub Err_امر65_Click: MsgBox err.Description Resume Exit_امر65_Click End Sub Private Subامر67_Click() On Error GoTo Err_امر67_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = "frm_grop_alhi" DoCmd.OpenForm stDocName, , , stLinkCriteria Exit_امر67_Click: Exit Sub Err_امر67_Click: MsgBox err.Description Resume Exit_امر67_Click End Sub Private Subامر68_Click() On Error GoTo Err_امر68_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = "frm_grop_jensya" DoCmd.OpenForm stDocName, , , stLinkCriteria Exit_امر68_Click: Exit Sub Err_امر68_Click: MsgBox err.Description Resume Exit_امر68_Click End Sub Private Sub امر69_Click() On Error GoTo Err_امر69_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = "frm_grop_wdifh" DoCmd.OpenForm stDocName, , , stLinkCriteria Exit_امر69_Click: Exit Sub Err_امر69_Click: MsgBox err.Description Resume Exit_امر69_Click End Sub