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

الف مبروك استاذنا الفاضل @ناقل وتستاهل كل خير وكل عام وانتم بخير

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

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم 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 تحياتي

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم Dim myPath As String myPath = CurrentProject.Path & "\frm_msar_folder\" If LenB(Dir(myPath, vbDirectory)) = 0 Then MkDir myPath End If DoCmd.OutputTo acOutputForm, "ÊÐÇßÑ_äãæÐÌ_ÇÓÊÚáÇã", acFormatPDF, myPath & Format(Now, "DD-MM-YYYY") & ".pdf", False تصدير حسب المسار.rar تحياتي

وعليكم السلام ورحمة الله وبركاته الافضل بالنسبة لك وباعتبار ان المستخدمين سيكون لديهم اوفيس 2010 اذن استخدم اوفيس 2010 حتى لا تحدث مشاكل فيما بعد وأياً كان الاوفيس عربي او انجليزي جاول الا تسخدم اسماء العناصر عربي فالافضل ان يكون ابسم انجليزي ( اسم الموظف = Emp_Name ) وهذه بعض النصائح باذن الله تفيدك تحياتي

تفضل اخي الكريم =Dmain("Field_Name"; "Table_Name"; "Field_Name3 =" & myWhere) =Dmax("Field_Name"; "Table_Name"; "Field_Name3 =" & myWhere) =Dfirst("Field_Name"; "Table_Name"; "Field_Name3 =" & myWhere) =Dlast("Field_Name"; "Table_Name"; "Field_Name3 =" & myWhere) تحياتي

تفضل اخي الكريم test.rar تحياتي

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

اعلى قيمة استخدم دالة DMax اقل قيمة استخدم دالة DMin اول قيمة استخدم دالة DFirst اخر قيمة استخدم دالة DLast تحياتي

تفضل اخي الكريم test.rar تحياتي test.rar

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم يمكنك البحث باسم رب الاسرة او احد افرد الاسرة test.rar تحياتي

وعليكم السلام ورحمة الله وبركاته لديك مشكلة في حقل التنسيق مسافة زائدة yyyy/mm/ dd والصحيح ان تكون هكذت yyyy/mm/dd البي1انات.rar تحياتي