Shivan Rekany

طباعة ملصق باركود بعدد مرات محددة في تقرير (1).rar

اهلا بك يا ابن بلادي اتفضل استخدمت هذا الكود Private Sub Text1_AfterUpdate() Dim sql As String sql = "UPDATE Table1 SET Table1.Active ='نعم' WHERE (((Table1.[كود الموظف])=[Forms]![Form1]![Text1]));" If DCount("*", "table1", "[كود الموظف]=" & Me.Text1) > 0 Then DoCmd.OpenForm "form2", acNormal Forms!form2!Text0 = DLookup("[اسم الموظف]", "table1", "[كود الموظف]=" & Me.Text1) Forms!form2!Text2 = Me.Text1 DoCmd.SetWarnings False DoCmd.RunSQL (sql) DoCmd.SetWarnings True Forms!form2!Text3 = DLookup("[Active]", "table1", "[كود الموظف]=" & Me.Text1) Else MsgBox "ليس لدينا ھذا الكود في الجدول" Me.Text1 = "" End If End Sub واليك مرفقك بعد تعديل sample.rar

عندك طريقتين اولا والاولى هو ان تكتب هذا تلصق في محرر فيجوال للتقرير Private Sub Report_NoData(Cancel As Integer) MsgBox "لا يوجد طلاب" Cancel = True End Sub والطريقة الثانية هو كتابة الكود عند الضغط على زر فتح التقرير وهو Private Sub أمر0_Click() If DCount("*", "main1") = 0 Then MsgBox "لا يوجد طلاب" Else DoCmd.OpenReport "Rep2", acViewPreview DoCmd.Maximize End If End Sub اتفضل اليك قاعدتك بعد تعديل بكلا طريقين dgree (2).rar

اليك هذا لكي تعلم اكثر

الیک ماطلبت طباعة ملصق باركود بعدد مرات محددة في تقرير.rar

قم بنقل مربع النصي اللي مكتوب فيها المعادلة من PageFooter الى اسفل ReportFooter

هل جربت على جهاز اخر ؟ ممكن تعطينا المرفق ؟

ليس عندنا الوان مكررة بارقام سجلات التكرار !! اذا تريد ان تحذف كل سجلات المكررة ويبقى سجل واحد ؟ هذا شيء اخر!

وعلیکم السلام ورحمة الله وبركاته اتفضل انا عملت جدول جديد للحقول المطلوبة لكي يطبع مع ملصق باركود وفي تقرير استعملت فونت للباركود وفي نموذج استخدمت هذا الكود Dim sql As String sql = "DELETE BARCO.* FROM BARCO;" DoCmd.SetWarnings False DoCmd.RunSQL (sql) DoCmd.SetWarnings True Dim rst As DAO.Recordset Set rst = CurrentDb.OpenRecordset("Select * From barco") Dim i As Integer For i = 1 To 56 rst.AddNew rst!PER3 = Me.COJO1 rst!PER8 = Me.PER8 rst!bar = Me.bar rst.Update Next i rst.Close: Set rst = Nothing DoCmd.OpenReport "rep1", acViewPreview اليك ملفك بعد تعديل طباعة ملصق باركود بعدد مرات محددة في تقرير.rar

على الرغم ان القاعدة الاعلاه بيعمل الطلوب لكن اليك طريقة اخرى اعمل كوبى باست هذا في وحدة نمطية جديدة Option Compare Database Public Declare Function ShowWindow Lib "user32.dll" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long Public Sub HideAccess() Call ShowWindow(Access.hWndAccessApp, 0) End Sub Public Sub ShowAccess() Call ShowWindow(Access.hWndAccessApp, 5) End Sub وفي اي حدث تريد لاخفاء خلفية اكسس اكتب Call HideAccess ولاظهار اكتب Call ShowAccess اليكقاعدة على ذلك اخفاء شاشة اكسس.rar

كمل الطريق انا جربت انه بيكتب الباركود في شاشة سوداء سي ام دي كيف نقدر نتحوله الى اكسس ؟

اکپر من رائع

موضوع جميل .. شكرا استاذ ابو خليل لماذا لا نفتح قسم تابع هذا المنتدى لهذه المواضيع المهمة .. ونخلي هنا للاسئلة فقط ؟ اي نفرق بين المواضيع و الاسئلة لكي نعرف من يسأل و نرد عليه ولمن يريد موضوع يشوف المواضيع ويشارك معه

اعطاك استاذنا جعفر سبب الخلل اما انا ساعطاك نافذة الخيارات لليست بوكس هل تريده ام لا من قائمة تولس اختار اوبشنس اذا تعمل علامة صح امام الخيار الثالث سيعطيك القائمة واذا تمسح علامة صح امامه ماراح يعطيك

قبل انزل المرفق هل نقدر ان نعدل على التقرير كالاتي القي نظرتا الى صورة قبل الاخير ... والتقرير الفرعي الثاني اللي عنده 3 ريكوردات هل نقدر ان يكون التسلسل كالاتي 1 3 2 وليس كما في الصورة هكذا 1 2 3 وايضا في صورة الاخيرة نغير التسلسل كالاتي 1 6 11 16 2 7 12 17 3 8 13 4 9 14 5 10 15 اي يعني النقصان بيكون في العمودالاخير وليس في العمود الاولى

اتفضل ملف بعد تعديل 703.a555.rar

ھل نسیت المنتدى ؟! نحن هنا لمساعتكم

احذف هذا السطر من زرين Call أمر20_Click واضف هذا بدل منه Call cmd_Search2_Click 703.a555.rar

افتح مصدر النموذج وهو استعلام القي نظرتا الى حقل سبجيكت انا كتبت Like "*" & [نماذج]![اسم النموذج]![اسم مربع نصي للبحث] & "*" تقدر تكتب في شرط اي حقل لكن لا تكتب في صف اللي انا كتبت الشرط بل اكتب في صف اسفل اللي انا كتبته لان اذا كتبت في نفس الصف سيعطيك نتائج اللي فيها شرطين واعتذر من الجميع اذا انا تجاوزت قوانين المنتدى

الیکم ھذا الرابط لعل تستفيدون منه ... https://boundstatesoftware.com/blog/4-ways-to-get-your-ms-access-database-on-an-android-tablet-or-phone وهذه اثنان من برامج لكي يقدرون توصل الى قاعدة اكسس وفي رابط الاول تم اعطاكم مزايا و عيوب كل الطرق ... https://play.google.com/store/apps/details?id=com.kmsoft.access_db_viewer https://play.google.com/store/apps/details?id=com.microsoft.rdc.android

الملف السابق یعمل لک المطلوب ولیس ھناک خلل الصور بیحکی

اتفضل اكتب مثلا كلمة رحلة شوف ماستجد New folder (1).rar

نعم اتفضل login (17) (1).rar

ھل ھذا هو قصدك login (17) (1).rar

اتمنى لك النجاح