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

اريد معرفة خطاء فى هذا الكود 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

السلام عليكيم ورحمه الله وبركاته اريد منكم مساعدة فى انشاء نمودج تسليم عهده هل إنشاء نمودج عهدة الأجهزة الحاسوبية باستخدام الخطوات التالية: - التقرير بعنوان المستند، وتاريخ العهدة، واسم الموظف أو الشخص الذي يتولى المسؤولية عن الأجهزة الحاسوبية. - بإدراج قائمة بجميع الأجهزة الحاسوبية الموجودة في العهدة، وتضمن تفاصيل كل جهاز، مثل النوع والموديل ورقم التسلسل وحالتهم الفنية الحالية. - يفضل توضيح الحالة الفنية والعامة لكل جهاز، وإذا كان هناك مشاكل تقنية معينة تؤثر على أدائه. يجب توضيح تواريخ استلام الأجهزة وتواريخ التسليم المتوقعة، بالإضافة إلى أي شروط خاصة للاستخدام أو الصيانة. يجب تضمين بنود العهدة والاستلام والتسليم، وتوقيع الموظف أو المستلم والمدير المباشر على التقرير لتأكيد أنهما قرأا التقرير ووافقا على شروطه. يمكن إضافة أية ملاحظات أو تعليقات إضافية إذا لزم الأمر. يجب عليك التحقق من أن التقرير يتوافق مع سياسات الشركة أو المؤسسة المعنية، وأنه يتضمن جميع المعلومات اللازمة. كما يمكنك الرجوع إلى شركة المحاسبة أو القانونية المعنية للحصول على المزيد من المعلومات والتوجيهات في هذا الصدد.