كل الانشطه

سلمك الله مهندس قاسم 🥰

تفضل استاذ @الحياري هذا البرنامج بيفيدك بطلبك لأن طلبك من ضمن مكتبات الويندوس. سكانر.rar

ماعندك الا العافية استاذ فادي

وجزاكم مثله اخى

كيف اجعل ملف twain32d.lld يعمل على ويندوز 10 ال64 بت لايعمل عندي على برنامج اكسس ليستكشف لي اجهزة السكانر او الكاميرا

اشكرك فووكش والحمدالله على سلامتك 🌹🌹

تفصل اخی If Forms!separet!Check71 = "-1" Then DoCmd.OpenReport "SeparetrBySelection", acViewPreview, "", "", acNormal DoCmd.PrintOut Else DoCmd.OpenReport "separetr", acViewPreview, "", "", acNormal DoCmd.PrintOut End If

السلام عليكم انا عامل كود بفتح تقريرين مختلفين عن طريق اختيار قيمه yes or No ) Check Box ) عايز اخليه يطبع بدل معاينه التقرير ......... اعدل فيه ازاااى؟؟؟ وشكرا ليكم Private Sub ÃãÑ20_Click() If Forms!separet!Check71 = "-1" Then DoCmd.OpenReport "SeparetrBySelection", acViewPreview Else DoCmd.OpenReport "separetr", acViewPreview End If End Sub

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

حياك الله يا مهندس Foksh وسامحنا اذا كثرناها عليك ما ضبط معي حياك الله يا مهندس Foksh وسامحنا اذا كثرناها عليك ما ضبط معي

تفضل أخي @Bshar ، تم الإستعانة بنموذج مؤقت Temp ، لإدراج قيم الفلترة فيه ومن ثم انشاء تقرير مبني على هذا الجدول . وهذا الكود ليقوم بتنفيذ المهمة :- Private Sub Rep_Btn_Click() ApplyFilter DoCmd.SetWarnings False DoCmd.RunSQL "DELETE FROM Temp" DoCmd.SetWarnings True Dim rs As DAO.Recordset Set rs = Me.tape5.Form.RecordsetClone If IsNull(Foksh) Then DoCmd.CancelEvent Exit Sub Else rs.MoveFirst Do Until rs.EOF Dim selectedValues() As String selectedValues = Split(Me.Foksh, ",") Dim i As Integer For i = LBound(selectedValues) To UBound(selectedValues) If InStr(1, rs!color, Trim(selectedValues(i)), vbTextCompare) > 0 Then CurrentDb.Execute "INSERT INTO Temp (ID, namee, [code-work], [t-namber], type, lincec, color) " & _ "VALUES (" & rs!ID & ", '" & Forms![add-tab]![xxf] & "', " & rs![code-work] & ", '" & rs![t-namber] & "', " & _ "'" & rs![type] & "', '" & rs![lincec] & "', '" & rs![color] & "')" Exit For End If Next i rs.MoveNext Loop rs.Close Set rs = Nothing DoCmd.OpenReport "Table1", acViewPreview End If End Sub Foksh.accdb وأعتذر عن التأخير بسبب ظرف صحي .

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

تفضل اخى ارسال واتساب.xlsm

اشكرك على الاهتمام استاذ @Moosak يبدو ان الموضوع الذي نصحتني به شيق ومفيد جزاك الله خيرا

ضع كلمة المرور بين علامتي التنصيص ، جرب وبانتظار ردك 🤗

الف شكر يا استاذنا نفعنا الله بك وزادك من علمه

الملف بعد التعديل لا يعمل لا يرسل اي رسالة بالواتساب سواء تم الاختيار او لا

وعليكم السلام بارك الله فى سيادتكم وشكراً على ردكم الكريم ..وأعانكم الله وسدد خطاكم دائماً

السلام عليكم اريد برنامج عند كتابة رقم الموظف يكتب لي مكان تواجده يعني المنطقة 1 او 2 او 3 يعني داخل الشركة اذا كان الموظف في المنطقة 1 ارسل له رسالة ورقة الحظور الفوري ويطبع اليا في الطابعة رقم 1 اذا كان الموظف في المنطقة 2 ارسل له رسالة وتطبع في طابعة المنطقة 2 هل يمكن عمل هذا كما اريد معرفة من ناديته في اليوم بالوقت والتاريخ شكرا لكم مسبقا

السلام عليكم عملية عد عدد المشاركات ، هي عملية مجدولة تتم كل فترة ولا تنعكس فى نفس وقت الرد ، و عليه فمن الطبيعي حدوث تأخير

جزاك الله خير اخي الكريم Foksh بيض الله وجهك .. فيه ملاحظة بسيطة وهي اذا كانت القاعدة لها كلمة مرور فكيف يكون العمل علما ان طريقتك يتم فيها الضغط والاصلاح لكن يطلب منك كلمة المرور والذي اريده ان لا يطلب مني كلمة المرور على كل عملية ضغط واصلاح بل تتم المعالجة اوتوماتيكي بدون الرجوع الي ... جزاك الله خير وتحملنا شوي 🤗

عادت للعمل بعد تنصيب اوفيس من جديد اشكرك اخي

@Foksh حاولت ان اعمل تقرير على ما تم الفلتره عليه من لونين ولم انجح بسبب ان معيار الاستعلام يفلتر على لون واحد فقط وعند اختيار اكثر من ذلك لا يعمل الاستعلام ,, كيف لي ان اعمل تقرير على ماتم الفلتره عليه اذا اخترت اكثر من لون 😬

الاخوة الاكارم هل اجد لديكم تصورا لتنسيق نموذج frmgiab افضل من التنسيق الحالي وانا لكم من الشاكرين New Microsoft Access Database.accdb

الملف بصيغة ACCDE ولا يمكن التعديل عليه يا صديقي