jjafferr

تفضل 🙂 كلما تعمل تقرير ، تلقائيا سيتم اضافته في القائمة . جعفر 1528.Reports_in_Combobox.mdb.zip

لو ارفقت البرنامج وبه بعض السجلات ، كان ممكن نفيدك بالكود الصحيح ، ولكن وكما قلت في مشاركتي السابقة ، رجاء عمل الاستعلام يدويا

اخي الفاضل من فيديو الموقع وطريقة تنصيب البرنامج ، فالبرنامج يبدو انه ليس اكسس ، وعليه لا يمكننا في قسم الاكسس من المنتدى مساعدتك ، قد تكون الجداول اكسس ، ولكن هذا لا علاقة له بالطابعة ، وفي الموقع ايميل الدعم الفني ، فيمكنك مراسلتهم وطرح سؤالك هناك 🙂 إذا كان احد الاعضاء هنا عنده علم بالموضوع ، فان شاء تحصل على جواب 🙂 جعفر

جرب هذا التعديل "delete * From الرئيسي WHERE ((detal1) Is Null) OR ((detal2) Is Null)" واذا ما حذف ، فرجاء تعمل استعلام عادي باسم qry_Delete_Records وتتأكد انه يحذف السجلات بطريقة صحيحة ، ثم اجعل الكود كالتالي: Private Sub الرتبة_Change() Dim de As String On Error Resume Next de = MsgBox("حذف العلاوات القديمة ", vbYesNo + vbInformation, "تنبيه") If de = vbYes Then docmd.openquery "qry_Delete_Records" DoCmd.Requery End If End Sub جعفر

وعليكم السلام 🙂 ما فهمت قصدك في سبب اختفاء النموذج !! اما بالنسبة الى الامر MoveandSize ن فيجب ادخال القيم تويبس Twips ، وهذا يعتمد على اعدادات الوندوز في جهازك ، 1 سم = 567 تويبس 1 بوصة = 1440 تويبس 1 بكسل = 15 تويبس وهذه الوحدة النمطية تعطيك حجم الشاشة بالبكسل: Option Compare Database Option Explicit Type RECT x1 As Long y1 As Long x2 As Long y2 As Long End Type #If VBA7 Then Declare PtrSafe Function GetDesktopWindow Lib "user32" () As LongPtr Declare PtrSafe Function GetWindowRect Lib "user32" (ByVal hwnd As LongPtr, lpRect As RECT) As Long Dim hwnd As LongPtr #Else Declare Function GetDesktopWindow Lib "user32" () As Long Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, rectangle As RECT) As Long Dim hwnd As Long #End If Function GetScreenResolution() As String Dim R As RECT 'Dim hwnd As Long Dim RetVal As Long hwnd = GetDesktopWindow() RetVal = GetWindowRect(hwnd, R) GetScreenResolution = (R.x2 - R.x1) & "x" & (R.y2 - R.y1) End Function . جعفر

اذا ممكن ترفقه علشان نشوف الامكانية 🙂 جعفر

الظاهر اننا نتكلم عن شيئين مختلفين !! المثال كما كتبته لك اعلاه 🙂 رجاء ترفق هذه الجزئية من برنامجك، وتخبرنا اي نموذج واي زر فيه المشكلة ، حتى نقدر نساعدك بطريقة افضل 🙂 جعفر

وعليكم السلام 🙂 علشان التقرير ينطبع ، لازم اسم التقرير يكون موجود ، سواء في الكود او في Combobox او ListBox ، وتقدر تخلي لكل تقرير زر ، واذا اردت طباعة جميع التقارير في نفس الوقت ، فتقدر تستخدم الطريقة اعلاه وتجعل طباعتهم على زر واحد 🙂 جعفر

اخي احمد 🙂 حصلت على افضل الاجابات في مشاركتك السابقة: . فرجاء تابع الموضوع هناك 🙂 يُغلق. جعفر

شكرا جزيلا اخوي ابو احمد 🙂 جعفر

استاذ محمد ، هل كان قصدك 2003 🙂 جعفر

الطريقة اللي اعطيتك في مشاركتي الاولى مافيها تكرار ، واذا فيها تكرار ، رجاء تخبرنا 🙂 جعفر

السلام عليكم 🙂 اخوي ابو احمد ، معادلتك السابقة فيها دالتين غير موجودات في مثالك (باللون الاحمر) ، فياريت تكمل جميلك وترفقهم لنا : . جعفر

المعذرة ، وشكرا على ملاحظتك 🙂 تم استبدال الملف 🙂 جعفر

اليك الشرح كاملا : 1. عدد سجلات الجدول ، 2. استخراج رقم عشوائي بين الرقمين 1 وعدد السجلات ، 3. هل الرقم العشوائي موجود في المتغير Number_Exists : 4. نعم موجود ، اذن ارجع لإختيار رقم آخر ، 5. لا ، غير موجود ، اذن اضفه الى المتغير Number_Exists . جعفر

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

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

ارفقت لك المرفق في مشاركتي الاولى 🙂

وعليكم السلام 🙂 شكرا على المداخلة والتوضيح استاذ محمد 🙂 جعفر

وعليكم السلام 🙂 ومشاركة مع اخي kanory 🙂 1. اعمل حقل نص في التقرير لكتابة كلمة جزاءات و ماهيات . 2. اعمل الحقل myText في النموذج الذي سيتم منه الطباعة : . وهذا الكود على حدث زر الطباعة: Private Sub cmd_print_3_Copies_Click() Me.myText = "جزاءات" DoCmd.OpenReport "Report1" Call Pause_Time Me.myText = "ماهيات" DoCmd.OpenReport "Report1" Call Pause_Time Me.myText = "جزاءات + ماهيات" DoCmd.OpenReport "Report1" Call Pause_Time End Sub Sub Pause_Time() Dim PauseTime, Start PauseTime = 2 ' Set duration. Start = Timer ' Set start time. Do While Timer < Start + PauseTime DoEvents ' Yield to other processes. Loop End Sub . قد لا تكون بحاجة الى الدالة Pause_Time ، فهي تجعل الكمبيوتر ينتظر ثانيتين قبل ان يطبع التقرير التالي. جعفر 1527.Report_Label.mdb.zip

وعليكم السلام 🙂 تفضل: . . او بدل Last استعمل Max . جعفر 1526.ALI.accdb.zip

نعم، فقط اكتب اسم الحقل الذي تريدة ، ولا داعي لكتابة بقية الحقول (اذا لم ترد متابعة قيمهم) 🙂 اذا تابعت شرحي في الموضوع اعلاه ، لو لاحظت اني اعطيتك: https://www.officena.net/ib/topic/112991-سِحر-جداول-الاكسس-في-تسجيل-الوقائع/?do=findComment&comment=680635 . فيعني ، اكتب الاسطر المطلوبة لحقل واحد فقط ، ثم اعمل نسخ/لصق لهذه الاسطر ، وفقط قم بتغيير اسم الحقل 🙂 . ونعم ، عملت برنامج خاص يقوم بالعمل كله تلقائيا ، وما يكون "الموضوع متعب شوية 🙂 " : . ولكن يحتاج الى تعديل ، لأنه مصمم لقاعدة بيانات معينة ، لزبون جدا غالي عليّ ، وان شاء الله برفع نسخة منه لما افضى 🙂 جعفر

وعليكم السلام 🙂 وهذه طريقتي : . وهذه محركات العمل : Option Compare Database Dim Number_Exists As String Dim i As Long ' Sub Rnd_Number() Dim Max_Number As Long, Rnd_Number As Long Max_Number = DCount("*", "Char") For i = 1 To 5 Start_Over: Randomize Rnd_Number = Int((Max_Number * Rnd) + 1) 'check if this number was used If InStr(Number_Exists, Rnd_Number) > 0 Then 'this number exists, get another one GoTo Start_Over Else 'its a new number, add it Number_Exists = Number_Exists & Rnd_Number End If 'use the number, get the Char Me("T" & i - 1) = DLookup("Cha1", "Char", "IDW=" & Rnd_Number) Next i End Sub Private Sub cmd_Fresh_Sart_Click() Number_Exists = "" Call Clear_Fields Call Rnd_Number End Sub Private Sub Form_Load() Call Clear_Fields Call Rnd_Number End Sub Sub Clear_Fields() 'clear the lower fields For i = 1 To 5 Me("ch" & i) = "" Next i Me.Word0 = "" End Sub جعفر 1525.GAME WORD.accdb.zip

طلعت النتيجة عندي صحيحة من المعادلة اعلاه !! طيب جرب Mid([total],1,Len([total])-1) & 0