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

السلام عليكم ورحمة الله وبركاتة تم تصميم نمادج نمودج استلام مواد مباشرة نمودج استلام مواد مخزونية نمودج استلام مواد عشوائى نمودج استلام مواد مباشرة اللجنة نمودج استلام مواد مخزونية اللجنة كل شاتات فى ادخال البيانات الاساسية متشابة عندى اضافة او تعديل نقر نقر مزدوجة على مربع النص وصفة الطلبية ينبق نمودج ادخال البيانات الاساسية :- وصف الطلبية اسماء الموردين اسماء الموظفين اسماء المندوبين المشتريات اسم فحص الطلبية من وحدة الاستلام اسم معاينة الطلبية من قبل الادارة الطالبة اريد استعمال النمودج ادخال البيانات الاساسية على نمادج الرئسية . ولقد وجد كود من الذكاء الاصناعى 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