jamal2080

شكرا على اهتمامكم

Private Sub Field1_DblClick(Cancel As Integer)
On Error Resume Next
    
    If Me.RD.value = "RD" Then
        With Forms![frm_ReceiptRD].Form
            If Not IsNull([Field1]) Then
                .k_1 = [Field3]
            Else
                .k_1 = Null ' تعيين قيمة Null لـ k_2 إذا كان Field1 فارغًا
            End If
        End With
    
        ' تعيين قيمة Null لـ Text100 و Text106 في نموذج frm_ReceiptRD
        Forms![frm_ReceiptRD]![Text100] = Null
        Forms![frm_ReceiptRD]![Text106] = Null
    End If
    
    If Me.RS.value = "RS" Then
        With Forms![frm_ReceiptRS].Form
            ' تعيين قيمة k_2 بقيمة Field3 إذا كان Field1 غير فارغ
            If Not IsNull([Field1]) Then
                .k_1 = [Field3]
            Else
                .k_1 = Null ' تعيين قيمة Null لـ k_1 إذا كان Field1 فارغًا
            End If
        End With
    
        ' تعيين قيمة Null لـ Text100 و Text106 في نموذج frm_ReceiptRS
        Forms![frm_ReceiptRS]![Text100] = Null
        Forms![frm_ReceiptRS]![Text106] = Null
    End If
    
    If Me.RS.value = "RR" Then
        With Forms![frm_ReceiptRR].Form
            ' تعيين قيمة k_2 بقيمة Field3 إذا كان Field1 غير فارغ
            If Not IsNull([Field1]) Then
                .k_1 = [Field3]
            Else
                .k_1 = Null ' تعيين قيمة Null لـ k_1 إذا كان Field1 فارغًا
            End If
        End With
    
        ' تعيين قيمة Null لـ Text100 و Text106 في نموذج frm_ReceiptRS
        Forms![frm_ReceiptRR]![Text100] = Null
        Forms![frm_ReceiptRR]![Text106] = Null
    End If
    
    If Me.RS.value = "RQ" Then
        With Forms![frm_ReceiptRQ].Form
            ' تعيين قيمة k_2 بقيمة Field3 إذا كان Field1 غير فارغ
            If Not IsNull([Field1]) Then
                .k_1 = [Field3]
            Else
                .k_1 = Null ' تعيين قيمة Null لـ k_1 إذا كان Field1 فارغًا
            End If
        End With
    
        ' تعيين قيمة Null لـ Text100 و Text106 في نموذج frm_ReceiptRS
        Forms![frm_ReceiptRQ]![Text100] = Null
        Forms![frm_ReceiptRQ]![Text106] = Null
    End If
    
    If Me.RS.value = "RZ" Then
        With Forms![frm_ReceiptRZ].Form
            ' تعيين قيمة k_2 بقيمة Field3 إذا كان Field1 غير فارغ
            If Not IsNull([Field1]) Then
                .k_1 = [Field3]
            Else
                .k_1 = Null ' تعيين قيمة Null لـ k_1 إذا كان Field1 فارغًا
            End If
        End With
    
        ' تعيين قيمة Null لـ Text100 و Text106 في نموذج frm_ReceiptRS
        Forms![frm_ReceiptRZ]![Text100] = Null
        Forms![frm_ReceiptRZ]![Text106] = Null
    End If
    

End Sub

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

تم تصميم نمادج 

1. نمودج استلام مواد مباشرة
2. نمودج استلام مواد مخزونية
3. نمودج استلام مواد عشوائى
4. نمودج استلام مواد مباشرة اللجنة
5. نمودج استلام مواد مخزونية اللجنة

كل شاتات فى ادخال البيانات الاساسية متشابة 

عندى اضافة او تعديل نقر نقر مزدوجة على مربع النص وصفة الطلبية ينبق نمودج ادخال البيانات الاساسية :-

1. وصف الطلبية 
2. اسماء الموردين
3. اسماء الموظفين
4. اسماء المندوبين المشتريات
5. اسم فحص الطلبية من وحدة الاستلام
6. اسم معاينة الطلبية من قبل الادارة الطالبة

اريد استعمال النمودج ادخال البيانات الاساسية على نمادج الرئسية .

ولقد وجد كود من الذكاء الاصناعى 

Private Sub Field3_DblClick(Cancel As Integer)
On Error Resume Next
    Dim currentForm As Form
    Set currentForm = Forms.ActiveForm ' الحصول على النموذج الحالي
    
    If Not currentForm Is Nothing Then ' التحقق من وجود نموذج مفتوح
        Dim currentFormName As String
        currentFormName = currentForm.Name ' الحصول على اسم النموذج الحالي
        
        Select Case currentFormName ' التحقق من اسم النموذج
            Case "frm_ReceiptRD", "frm_ReceiptRS", "frm_ReceiptRR", "frm_ReceiptRQ", "frm_ReceiptRZ"
                Dim receiptForm As Form
                Set receiptForm = currentForm.Form ' الحصول على النموذج داخل النموذج الحالي
                
                If Not receiptForm Is Nothing Then ' التحقق من وجود النموذج الفرعي
                    Dim parentForm As Form
                    Set parentForm = receiptForm.Parent ' الحصول على النموذج الأب المفتوح
                    
                    ' قم بتنفيذ الإجراءات الإضافية هنا
                    MsgBox "تم النقر المزدوج على حقل في نموذج الطلبية!"
                End If
        End Select
    End If
End Sub

كل عام والجميع بالف خير صوماً مقبولاً وذنباً مغفوراً وإفطاراً شهياً بإذن اللّه

اريد تصميم برنامج الاصوال الثابتة ولا اعرف كيف ابد اريد منكم لتمس من سيادتكم تقديم يد العون لي

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

عندى مربع نص فى نمودج اريد اظهر رسائل تنبهات اريد تعديل الكود وتصحيحة من فضلكم...

' **عرض الرسالة في مربع النص "Message_box" بتأثير الانتقال:**
Dim i As Integer
For i = 1 To 10
Me.Message_box.Left = Me.Message_box.Left + 10
DoEvents
Application.Wait (Now + TimeValue("0:00:01")) ' تأخير لمدة ثانية واحدة
Next i
For i = 1 To 10
Me.Message_box.Left = Me.Message_box.Left - 10
DoEvents
Application.Wait (Now + TimeValue("0:00:01")) ' تأخير لمدة ثانية واحدة
Next i
' **تعيين القيمة الافتراضية بعد انتهاء الانتقال:**
Me.Message_box.Value = "قيمة افتراضية"

شكرا اخى على التوضيح ....

اريد انا يصل الى تنسيق جميل من حيث العرض التقارير معرف الكثير على الاكسس

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

اريد من الاخوة الكرام تعديل حتى نصل الى فكره جميلة 

REPEPORT.rar

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

اريد مثل تصميم نمودج يعرض معاينة تقرير مثل مستعرض الصور او pdf

ولكم منى جزيل الشكر والتقدير

اريد تعديل كود تحجيم النمودج وتوسيطة 

Private Sub Form_Open(Cancel As Integer)
On Error Resume Next
' تعيين القيم المطلوبة لعرض النموذج
    Me.WindowWidth = 1920
    
    ' تعيين القيم المطلوبة لارتفاع المساحة الداخلية للنموذج
    Me.WindowHeight = 1080
    
    ' توسيط النموذج على الشاشة
    Me.Left = (Screen.Width - Me.Width) / 2
    Me.Top = (Screen.Height - Me.Height) / 2
    
    On Error GoTo 0
   
End Sub

ولكم من جزيل الشكر

شكرا على الاهتمام اخى الفضل 

انا لااملك فكرة معين اريد مثال ارجوا ارسالها

شكرا اخى على اهتمامك .

عندما تقوم استلام مواد من مورد يكون عدد البنود الاستلام 10 وتم استلام جزئى 5 بنود من اصل 10 وتخذ معامل رقم RD000112223 

اريد انا اعرف الاستلام المواد الى المخازن

- استلام بند محلى - مباشرة

- استلام بند محلى - مخزونية

- استلام بند خارجى - مياشرة 

- استلام بند خارجى - مخزونية

- استلام عشوائى

وجميع انواع الاستلام   1- استلام كلية  2- استلام جزئى

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

- انا ليس عندى فكرة معين فى الاستلام الجزئى -

- اريد من الاخوة الكرام مساعد فى ادرج مثال لو تفضلتوا.........

ولكم منى جزيل الشكر والتقدير

اريد تعديل الكود لان يوجود خطاء لم اتمكن من حل المشاكل ....

Private Sub cmdpro_04_Click()
On Error Resume Next

    Dim reports() As Variant
    Dim i As Integer

    ' تعريف أسماء التقارير
    reports = Array("Month_RQ", "Month_RQ_01", "Month_RQ_02", "Month_RQ_03")

    ' فحص وجود بيانات في كل تقرير قبل فتحه
    For i = LBound(reports) To UBound(reports)
        If ReportHasData(reports(i)) Then
            DoCmd.OpenReport reports(i), acViewPreview
        Else
            MsgBox "لا توجد بيانات لفتح التقرير: " & reports(i)
        End If
    Next i

End Sub

' دالة للتحقق من وجود بيانات في تقرير محدد
Function ReportHasData(reportName As String) As Boolean
On Error Resume Next
   Dim RS As Recordset

    ' فتح التقرير واستنساخ السجلات
    Set RS = reports(reportName).RecordsetClone

    ' التحقق من وجود سجلات
    If Not RS.EOF Then
        ReportHasData = True
    End If

    ' إغلاق السجلات
    RS.Close
    Set RS = Nothing
End Function

Dim frm As Form
Dim intScreenWidth As Integer
Dim intScreenHeight As Integer
Dim intFormWidth As Integer
Dim intFormHeight As Integer
Dim intLeft As Integer
Dim intTop As Integer

' احضار مرجع للنموذج الحالي
Set frm = Screen.ActiveForm

' الحصول على عرض الشاشة وارتفاعها
intScreenWidth = Screen.Width / Screen.twipsPerPixelX
intScreenHeight = Screen.Height / Screen.TwipsPerPixelY

' الحصول على عرض وارتفاع النموذج
intFormWidth = frm.Width / frm.ScaleX
intFormHeight = frm.Height / frm.ScaleY

' حساب الموضع الأفقي المتوسط
intLeft = (intScreenWidth - intFormWidth) / 2

' حساب الموضع الرأسي المتوسط
intTop = (intScreenHeight - intFormHeight) / 2

' تعيين الموضع الجديد للنموذج
frm.Move intLeft * frm.ScaleX, intTop * frm.ScaleY

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

اريد تقديم مساعد فى رابط الجدوال بطريقة صحيحة 

ولكم منى جزيل الشكر والتقدير

BE_DataReceipt.rar

اريد معرفة خطاء فى هذا الكود 

Public Function InputBoxDK(Prompt, Optional Title, Optional Default, Optional XPos, _
                        Optional YPos, Optional HelpFile, Optional Context) As String
    Dim lngModHwnd As Long, lngThreadID As Long

    lngThreadID = GetCurrentThreadId
    lngModHwnd = GetModuleHandle(vbNullString)

    hHook = SetWindowsHookEx(WH_CBT, AddressOf NewProc, lngModHwnd, lngThreadID)

    InputBoxDK = InputBox(Prompt, Title, Default, XPos, YPos, HelpFile, Context)
    UnhookWindowsHookEx hHook

End Function

يوجد خطاء فى هذا الكود :- 

hHook = SetWindowsHookEx(WH_CBT, AddressOf NewProc, lngModHwnd, lngThreadID)

رسالة تحذير :- 

اريد معرفة خطاء فى هذا الكود 

Private Sub hide_link_Table_Click()
Dim db As Database
Dim tdf As TableDef
Set db = CurrentDb
For Each tdf In db.TableDefs
If tdf.Attributes = 1073741824 Then tdf.Attributes = 1
Next
txt.Value = " تم إخفاء الجداول المرتبطة بنجاح"
    txt.ForeColor = 255

db.Close
Set tdf = Nothing
Set db = Nothing
End Sub

Public Function InputBoxDK(Prompt, Optional Title, Optional Default, Optional XPos, _
                        Optional YPos, Optional HelpFile, Optional Context) As String
    Dim lngModHwnd As Long, lngThreadID As Long

    lngThreadID = GetCurrentThreadId
    lngModHwnd = GetModuleHandle(vbNullString)

    hHook = SetWindowsHookEx(WH_CBT, AddressOf NewProc, lngModHwnd, lngThreadID)

    InputBoxDK = InputBox(Prompt, Title, Default, XPos, YPos, HelpFile, Context)
    UnhookWindowsHookEx hHook

End Function

يوجد خطاء فى الكود 

hHook = SetWindowsHookEx(WH_CBT, AddressOf NewProc, lngModHwnd, lngThreadID)

قائمة مستدلة.rar

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

انشاء قائمة منسدلة اريد منكم تعديل علية 

ولكم منى جزيل الشكر

تفضل اخى ابو خليل .

تم تعديل على الكود ولكن اريد منكم تعديل علية ليظهر بافضل صورة 

test.rar

هل يوجد طريقة معينة فى تعين كود مربع النص مثل مربع السرد وتحرير انة يعمل على مربع نص غير منظم .

* - اريد تعديل على مربع نص منظم

اريد منكم مساعدها 

هذا الكود يعمل على مربع نص غير منظم اريد تعديل على مربع نص منظم .

ولكم منى جزيل الشكر والتقدير

Private Sub Command10_Click()
Forms![frm_RD]![k_1] = [Field1]
Forms![frm_RD]![ID_descr] = [Field3]
Forms![frm_RD]![Text100] = Null
Forms![frm_RD]![Text102] = Null
Forms![frm_RD]![Child102].Height = 0
End Sub

 شكر على تشجعك تم ارفق ملف اليكم  مطلوب

عند كتب فى مربع نص خاص باسم المورد نخرج نمودج كما موضح فى الصورة تم بحث على اسم المورد مدخل فى مربع نص

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

اريد منكم مساعدها فى هذا الطريقة بدل من مربع سرد 

1080.rar

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

اريد منكم مساعدة فى انشاء نمودج تسليم عهده 

هل  إنشاء نمودج عهدة الأجهزة الحاسوبية باستخدام الخطوات التالية:

 - التقرير بعنوان المستند، وتاريخ العهدة، واسم الموظف أو الشخص الذي يتولى المسؤولية عن الأجهزة الحاسوبية.

- بإدراج قائمة بجميع الأجهزة الحاسوبية الموجودة في العهدة، وتضمن تفاصيل كل جهاز، مثل النوع والموديل ورقم التسلسل وحالتهم الفنية الحالية.

 - يفضل توضيح الحالة الفنية والعامة لكل جهاز، وإذا كان هناك مشاكل تقنية معينة تؤثر على أدائه.

يجب توضيح تواريخ استلام الأجهزة وتواريخ التسليم المتوقعة، بالإضافة إلى أي شروط خاصة للاستخدام أو الصيانة.

يجب تضمين بنود العهدة والاستلام والتسليم، وتوقيع الموظف أو المستلم والمدير المباشر على التقرير لتأكيد أنهما قرأا التقرير ووافقا على شروطه.

يمكن إضافة أية ملاحظات أو تعليقات إضافية إذا لزم الأمر.

يجب عليك التحقق من أن التقرير يتوافق مع سياسات الشركة أو المؤسسة المعنية، وأنه يتضمن جميع المعلومات اللازمة. كما يمكنك الرجوع إلى شركة المحاسبة أو القانونية المعنية للحصول على المزيد من المعلومات والتوجيهات في هذا الصدد.