jjafferr

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

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

اليك الشرح كاملا : 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

وعليكم السلام 🙂 بعد فتح النموذج ، جرب الامر DoCmd.MoveSize Right, Down, Width, Height . الابعاد هذه بوحدة التويب twips ، اذا وحدة القياس في اعدادات الوندوز بالمتر ، ومثلا تريد العرض يكون 12سم ، فيجب ان تضرب العرض في 567 : 567*12=6804 ، وهكذا مع بقية الاطوال ، اما اذا اعدادات الوندوز بالبوصة ، فيجب ان تضرب الرقم في 1440 جعفر

جرب هذه المعادلة Format([total],"0.0") & 0 جعفر

لتكبير/تصغير حجم الكائنات داخل النموذج، عند تغيير حجم النموذج : . الموضوع فيه اشارة الى موضوع آخر ، واقرأ جميع المشاركات ، فالمشاركة الاخير مهمة : . . جعفر

وعليكم السلام 🙂 اذا انا كتبت اسمك هكذا: العراقيالمدللمنالعراق فهل هو اسمك !! الجواب لا ، لأني ما عملت مسافة بين الاسم والآخر ، وهذا حال امر الحذف الذي عملته، الاكسس لا يعرف الامر ، لأنك ما عملت مسافة بين الاسماء 🙂 DoCmd.RunSQL "delete*form al الرئيسي.تاريخ استحقاق العلاوة الثانية,الرئيسي.تاريخ استحقاق العلاوة الاولى WHERE (((الرئيسي.تاريخ استحقاق العلاوة الاولى) Is Null)) OR (((الرئيسي.تاريخ استحقاق العلاوة الثانية) Is Null));" . الطريقة الصحيحة: 1. يجب ترك مسافة بين الاسماء "delete * form 2. يجب ان تضع الاسماء التي بها مسافة بين قوسين [] ]الرئيسي].[تاريخ استحقاق العلاوة الثانية],[الرئيسي].[تاريخ استحقاق العلاوة الاولى] WHERE (((]الرئيسي].[تاريخ استحقاق العلاوة الاولى]) Is Null)) OR (((]الرئيسي].[تاريخ استحقاق العلاوة الثانية]) Is Null));" جعفر

وعليكم السلام 🙂 docmd.RunCommand acCmdAppMaximize 'لتكبير شاشة الاكسس docmd.maximize 'لتكبير شاشة النموذج او التقرير . هذا الكود يجعل حجم النوذج يملئ الشاشة ، ولكن لا علاقة له بحجم الكائنات داخل النموذج، فحجم الكائنات يبقى كما هو 🙂 جعفر

المعادلة صحيحة ، ولكن المشكلة هي اننا لا نستعمل الاكسس في تنفيذ امر فتح البرنامج ، فعليه ، لا توجد مكتبة في الملف التنفيذي لتقوم بتعريف المتغير acCmdAppMaximize ، ومن مساعد الاكسس نرى ان قيمته = 10 : . اذن عندنا الخيار في استعمال الرقم 10 مباشرة ، او الاعلان عن المتغير acCmdAppMaximize بأن قيمته 10 : Dim appAccess Set appAccess = CreateObject("Access.Application") appAccess.OpenCurrentDatabase "C:\Users\Tharwt\OneDrive\Desktop\Database_Backup.accdb", True, "123" appAccess.UserControl = True 'نستعمل السطرين التاليين const acCmdAppMaximize = 10 appAccess.RunCommand acCmdAppMaximize 'لتكبير شاشة الاكسس 'او استعمال السطر التالي 'appAccess.RunCommand 10 appAccess.docmd.maximize 'لتكبير شاشة النموذج او التقرير جعفر

وعليكم السلام 🙂 نعم ، قد تكون الدوال Round ، RoundUp ، RoundDown بديلة : . ولكن ، لو تخبرنا بالضبط عن المطلوب ، فقد نستطيع عمل التعديل المطلوب بدوال اخرى 🙂 ويمكنك استخدام دوال الاكسل من الاكسس مباشرة ، ولكن لا يُحبذ عمل ذلك ، لأن البرنامج سيكون ابطأ في العمل ، واليك طريقة العمل: . او استعمال الكود التالي، وبدون اختيار مكتبة الاكسل (كما في المثال اعلاه) : Dim objExcel as Object Set objExcel = CreateObject("Excel.Application") msgbox objExcel.WorksheetFunction.Floor (me.Filed_Name_in_Form, 0.1) set objExcel=nothing جعفر

وعليكم السلام 🙂 1. الصورة جدا صغيرة ، وبالكاد اقدر اميز الكتابة فيها ، يا ريت ترفق نسخة اكبر ، 2. ارفق لنا الكود الكامل اللي عندك. جعفر

وعليكم السلام اخي بلال 🙂 المنتدى مليان بالامثلة ، ومنها : . . جعفر

وعليكم السلام 🙂 حسب مساعد الاكسس Help ، فيمكنك استعمال اي من الاوامر ، مثل تلك التي تبدأ بـ DoCmd ، وجميع اوامر RunCommand ، مثلا: لفتح نموذج معين appAccess.DoCmd.OpenForm "Form1" وفي حالتك، جرب الامرين التاليين مع بعض appAccess.runcommand (acCmdAppMaximize) 'لتكبير شاشة الاكسس appAccess.docmd.maximize 'لتكبير شاشة النموذج او التقرير . في مساعد الاكسس ، ابحث عن كلمة application ، وسترى جميع الاوامر : . جعفر

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

وعليكم السلام 🙂 هذا كود اخي حسام بعد التعديل: Dim appAccess Set appAccess = CreateObject("Access.Application") appAccess.OpenCurrentDatabase "C:\Users\User10\Database1.accdb", , "كلمة سر قاعدة البيانات" appAccess.UserControl = True جعفر

السلام عليكم 🙂 اختي الفاضلة روان 🙂 وكما قال اخي المهندس قاسم ، فالتعامل بالايميل يخالف قوانين المنتدى ، والسبب ، نريد لبقية الاعضاء الاستفادة مما تستفيدين منه 🙂 جعفر