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

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

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم Private Sub فتح_ادخال_تذاكر_Click() DoCmd.Close On Error GoTo Err: DoCmd.OpenForm "تذاكر_ادخال" Err: If Err.Number = 3043 Or Err.Number = 3024 Or Err.Number = 3044 Or Err.Number = 3078 Then MsgBox "فشل الاتصال بالسيرفر يرجى ابلاغ المسؤول", vbExclamation, "حالة الاتصال بالشبكة" Exit Sub End If End Sub اثناء انقطاع الشبكة.rar تحياتي

تفضل اخي الكريم Private Sub رقم_الهوية_Exit(Cancel As Integer) If DCount("[رقم الهوية]", "[BeneficiaryT]", "[رقم الهوية] =" & Me.رقم_الهوية) = 0 Then Exit Sub Else MsgBox "هذا الرقم مكرر", vbCritical Dim rst As Recordset Set rst = Me.RecordsetClone rst.FindFirst "[رقم الهوية] = " & Me.رقم_الهوية Me.Bookmark = rst.Bookmark Set rst = Nothing End If End Sub مساعدات.rar تحياتي

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

وعليكم السلام ورحمة الله وبركاته لا يوجد as commandbuttoncontrol في اكسيس برجاء توضيح الاستخدام حتى يتم فهم المطلوب تحياتي

بالتوفيق اخي الكريم تحياتي

تفضل اخي الكريم If Len(Me.[الخدمة] & vbNullString) = 0 Then Me.[السعر] = 0 Else Me.السعر = IIf([الخدمة] = "ايواء", [مبلغ الشراء], IIf([الخدمة] = "يومي", (Nz([عدد الايام]) * Nz([الايجار])), 0)) End If بيانات القيد.rar تحياتي

جرب الكود التالي If Len(Me.[الخدمة] & vbNullString) = 0 Then Me.[السعر] = 0 Else Me.السعر = IIf([الخدمة] = "ايواء", [مبلغ الشراء], (Nz([عدد الايام]) * Nz([الايجار]))) End If تحياتي

تفضل اخي الكريم رقم DLookup = DLookup("My_Filde", "My_Table", "My_Filde1 =" & myWhere) نص DLookup = DLookup("My_Filde", "My_Table", "My_Filde1 ='" & myWhere & "'") تاريخ DLookup = DLookup("My_Filde", "My_Table", "My_Filde1 = #" & myWhere & "#") تحياتي

وعليكم السلام ورحمة الله وبركاته يمكنك استخدام الكود التالي Dim MyPath As String MyPath = CurrentProject.Path & "\" DoCmd.OutputTo acOutputForm, "جدول1", acFormatPDF, MyPath & "1.pdf", False او وضع المعايير في استعلام والتصدير بالكود التالي Dim MyPath As String MyPath = CurrentProject.Path & "\" DoCmd.OutputTo acOutputQuery, "Query1", acFormatPDF, MyPath & "1.pdf", False تحياتي

تفضل اخي الكريم Private Sub Form_BeforeUpdate(Cancel As Integer) Me.السعر = IIf([الخدمة] = "يومي", [مبلغ الشراء], (Nz([عدد الايام]) * Nz([الايجار]))) End Sub بيانات القيد.accdb تحياتي

تفضل اخي الكريم توزيع الأعلاف++.rar تحياتي

وعليكم السلام ورحمة الله وبركاته المشكلة موضحة بالصورة _برنامج .rar تحياتي

اذا كان الملف ACCDE لن يعمل الملف الا على نسخة 32bit تحياتي

مع اني لا احبذ كثرة الاكواد بدون هدف يُذكر وارشح لك اول مشاركة لي فبها الفائدة ولا يوجد الى كود من سطر صغير تفضل اخي الكريم test.rar تحياتي