كل الانشطه

كيف اجعل ملف 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 ولا يمكن التعديل عليه يا صديقي

تم تعديل الكود والتأكد منه وتجربته . انسخه إلى مديول جديد ، واستدعيه بالأمر : ( CopactMyDb ) فقط حدد اسم قاعدة البيانات الخلفية التي بجانب القاعدة الرئيسية . Public Function compactDb(ByVal mydb As String, ByVal mydbb As String, ByVal mypass As String, Optional openIt As Boolean = False) Dim f As Integer Dim filenoext As String, extension As String, Access As String Access = """" & SysCmd(acSysCmdAccessDir) & "MSACCESS.EXE""" filenoext = Left(mydb, InStrRev(mydb, ".")) extension = Right(mydb, Len(mydb) - InStrRev(mydb, ".")) f = FreeFile Open CurrentProject.Path & "\compact.bat" For Output As f Print #f, "CHCP 1256" Print #f, ":checkldb1" Print #f, "if exist """ & filenoext & "l" & extension & """ goto checkldb1" Print #f, Access & " """ & mydbb & """" & mypass & " /compact" If openIt Then Print #f, ":checkldb2" Print #f, "if exist """ & filenoext & "l" & extension & """ goto checkldb2" Print #f, Access & " """ & mydb & """" Else Print #f, "del ""%~f0""" End If Close f End Function Public Function CopactMyDb() On Error Resume Next Dim Mypath, CurrDB, BEndTBL As String BEndTBL = "B-TBL.accdb" 'اسم قاعدة البيانات الخلفية CurrDB = CurrentProject.Path & "\" & CurrentProject.Name Mypath = CurrentProject.Path & "\" & BEndTBL Call compactDb(CurrDB, Mypath, "", True) Shell """" & Left(Mypath, InStrRev(Mypath, "\")) & "\compact.bat""", 0 DoCmd.Quit acQuitSaveAll End Function Desktop.zip

ألا يوجد حل آخر أخي دون الإخفاء لأن الملف يومياً يدخل عليه بيانات وعند إخفاء الصفوف تظهر هذه الرسالة " لا يمكن إزاحة العناصر خارج الورقة "

السلام عليكم أساتذتى وأحبائى الكرام مشرفين المنتدى الأفاضل .. كنت أود الإستفسار عن هذا , فهل هذا عطل ومشكلة بالمنتدى أم هذا أمر طبيعى ؟!!! وهو ان يكون هناك تفاعل وردود بالمشاركات على الرغم ان عدد القراءات 0 . صفر ؟!!! كما بالصورة باليسار

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