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

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

وكل عام وانتم بخير

الف مليون مبروك اخونا وحبيبنا الغالي ابو جودي

تستاهل كل خير استاذنا الفاضل

راجياً من الله لك ولجميع الاخوة دوام التوفيق

تجياتي

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

تفضل اخي الكريم

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 في اكسيس

برجاء توضيح الاستخدام حتى يتم فهم المطلوب

تحياتي

17 دقائق مضت, almosafer almasry said:

جزاك الله الف خير 

كدا تمام 

والف شكر

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

تحياتي

تفضل اخي الكريم

    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

تحياتي