نجوم المشاركات

يعني تريد الرقم الذي يحمله الـــ id اذا فهمي صحيح اكتب السطر التالي في حدث قبل التحديث للحقل الأخير msgbox me.id

مداخلة جانبية مع معلمي الفاضل @ابوخليل . جرب هذا الكود Private Sub Form_AfterUpdate() Dim recordId As Long Dim allFieldsFilled As Boolean allFieldsFilled = True ' قم بفحص ملء كل الحقول Dim ctl As Control For Each ctl In Me.Controls If ctl.ControlType = acTextBox Then ' التأكد من أن الحقل هو حقل نصي If IsNull(ctl.Value) Then allFieldsFilled = False Exit For ' توقف الفحص عندما يتم العثور على حقل غير ممتلئ End If End If Next ctl ' إذا كانت جميع الحقول ممتلئة، قم بعرض رسالة بمحتوى الحقل Id If allFieldsFilled Then recordId = Me.ActiveControl.Value ' استخدم الحقل النشط حاليًا MsgBox "تم إنشاء السجل برقم: " & recordId End If End Sub واعلامنا بالنتيجة 😊

في حدث بعد التحديث لمربع النص Prog Private Sub prog_AfterUpdate() If Me.prog.Value Like "*plan*" Then Me.cast.Value = "complete" End If End Sub جرب الكود واخبرنا بالنتيجة 😊

على افتراض أن اسم المجلد هو Pdf_File ، جرب هذا الكود:- Sub PrintAllPDFsInFolder() Dim objFSO As Object Dim objFolder As Object Dim objFile As Object Dim strFolderPath As String strFolderPath = CurrentProject.Path & "\Pdf_File\" Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder(strFolderPath) For Each objFile In objFolder.Files If Right(objFile.Name, 4) = ".pdf" Then ShellExecute 0, "Print", objFile.Path, 0, 0, SW_HIDE End If Next objFile Set objFSO = Nothing Set objFolder = Nothing Set objFile = Nothing End Sub في الزر الذي تريده ، في حدث عند النقر ، استدع الدالة بهذا الأمر :- PrintAllPDFsInFolder وأخبرنا بالنتيجة 😊

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

تمام ساقوم بتجربة الحلين وان شاء الله أبلغ سيادتكم بالنتيجة لكم من كل التقدير والاحترام @ابوخليل @Foksh

عجيب شغلك لا ارتباط بين الجداول ، المفروض معرف الموظف يكون في جدول الاسماء ويدخل آليا ولا يدخل يدويا .. حتى جهة العمل لانه يوجد الاسماء مكررة مرة بجهة ومرة اخرى بدون جهة تفضل تم تحقيق طلبك بدون استخدام الدالة data2.rar

=DLookUp("[gehat]","[karz]","[nam]='" & [com1] & "'")

كلمة شكرا لا تفي حقك..اسئل الله ان يرفع مقامك ويعطيك ماتتمناه.. وان يجزيك خير الجزاء.. تقبل شكري وامتناني ودعواتي..

شكرا جزيلا لك ا/احمد عبدالحليم على هذا الكود ولك منا كل احترام وتقدير شكرا لك على هذا الاهتمام

تفضل اخى جرب الملف قكت بتعديل كود MajStkProv وكود xx() لتاكيد الحصول على الرصيد الصحيح وتم اضافة هذا الكود الى كود التحويل او الحفظ Dim rng As Range Dim cll As Range Dim cll2 As Range Dim lastRow As Long lastRow = ThisWorkbook.Sheets("Stock").Cells(Rows.Count, "A").End(xlUp).Row Set rng = ThisWorkbook.Sheets("Stock").Range("A4:A" & lastRow) For Each cll In rng If cll.Value = Me.CB_Pièce.Text And cll.Offset(0, 11).Value = Me.ComboBox1.Value Then cll.Offset(0, 3).Value = Val(Me.stocktr.Value) - Val(Me.Quantitetr.Value) Exit For End If Next cll For Each cll2 In rng If cll2.Value = Me.CB_Pièce.Text And cll2.Offset(0, 11).Value = Me.ComboBox2.Value Then cll2.Offset(0, 3).Value = Val(Me.TextBox_Stock_Initial.Value) + Val(Me.Quantitetr.Value) Exit For End If Next cll2 تقبل تحياتى نقل المخزون بين المخازن.xlsm

بعد اختيار افضل اجابة من الافضل لو تقوم بفتح موضوع جديد كي يتسنى للجميع مساعدتك عموما تفضل صديقي test (2)w.accdb

ادخال معلومات بالاختيار من ليست بوكس للجدول واصدار تقرير متعدد الاختيارات . المرفق متاح ومفتوح المصدر لكل مايريد استخدامه أو استخدا مابه ... DDChoseMulty Items to Report.rar

لا يوجد أي مشاكل طالع الفيديو والمرفق بعد التعديل . طبابة 2024-2.rar

بارك الله فيك ..... انظر الصورة لهذا الموظف قبل التحديث وبعد التحديث ( هل هذا هو المطلوب ) ؟؟؟؟؟؟ جرب المرفق واعلمنا بالنتيجة ..... الغياب والتاخير.accdb