jjafferr

أخي seef2003 رجاء فتح موضوع آخر بإسم واضح يوضح طلبك ، وان شاء الله ستحصل على الرد جعفر

ايش رايك ، لما تضغط على زر "أضف سجلات" (لاحظ اننا سنغير الاسم) ، يظهر لك نموذج فيه قائمة بأسماء المأكولات ، وجنب كل أكلة علامة صح ، فانت تختار الاكلات التي تريد جلبها للقائمة ، وبغض النظر عن عددها ، والكود يجيب اللي تختاره بس ياريت اعرف شو قصدك بـ: وأمْرٍ دُبِر بِليلْ جعفر

تفضل . والكود الذي يقوم بهذا العمل: Private Sub cmd1_Click() Dim rst As DAO.Recordset Set rst = CurrentDb.OpenRecordset("Select * From Tbl_2") How_Many_Days = UmDateDiff("d", Me.StarteDate, Me.EndDate) For i = 1 To How_Many_Days Next_Date = UmDateAdd("d", i, Me.StarteDate) Next_Day = UmWeekDayName(UmWeekday(Next_Date)) 'MsgBox Next_Date & " " & Next_Day add_Day = "" If Me.iSunday = -1 And Next_Day = "Sunday" Then add_Day = "Sunday" ElseIf Me.iMonday = -1 And Next_Day = "Monday" Then add_Day = "Monday" ElseIf Me.iTuesday = -1 And Next_Day = "Tuesday" Then add_Day = "Tuesday" ElseIf Me.iWednesday = -1 And Next_Day = "Wednesday" Then add_Day = "Wednesday" ElseIf Me.iThursday = -1 And Next_Day = "Thursday" Then add_Day = "Thursday" End If If add_Day <> "" Then rst.AddNew rst!TDate = Next_Date: rst!TDay = add_Day: rst!PcDigit = Me.PcDigit: rst!auto_id = Me.auto_id rst.Update End If Next i rst.Close: Set rst = Nothing End Sub جعفر 471.tdate.mdb.zip

اسم الموضوع مخالف ، يُقفل الموضوع . جعفر

حياك الله

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

تفضل وتدلل يا باشا . الكود Private Sub cmd_Add_Command_Button_and_Code_Click() Dim str As String, theForm As String Dim ctl As Control theForm = Me.form_list.Value DoCmd.OpenForm theForm, acDesign, , , , acHidden Set ctl = CreateControl(theForm, acCommandButton, acDetail, , , 1440, 2160, 2880, 600) ctl.Name = Me.Button_Name ctl.Caption = "للتجربة" str = "Private Sub " & Me.Button_Name & "_Click" & vbCrLf & _ DLookup("[CLine]", "tbl_secur_add_code", "[SN]=1") & vbCrLf & _ "End Sub" Forms(theForm).Module.AddFromString str DoCmd.Close acForm, Forms(theForm).Name, acSaveYes End Sub جعفر 472.اضافة كود فى محرر الاكواد بزر امر.mdb.zip

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

طيب ، عرفنا موضوع كود الزر ، والزر شخصيا ، هل تريد ان تضيفه برمجيا للنموذج كذلك؟ واين في النموذج (س ، ص) ؟ او انه موجود مسبقا؟ جعفر

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

اول كود عملته لك يعمل هذا الشئ بالضبط ، إلا انه بدل ان يأخذ قيمته من مربع نص ، فانه يأخذ قيمته من القيمة التي تختارها من مربع السرد واذا تريد تاخذ القيمة من مربع نص اسمه TextBox1: Private Sub Command1_Click() Dim str As String, theForm As String theForm = Me.TextBox1 DoCmd.OpenForm theForm, acDesign, , , , acHidden str = "Private Sub Form_Open(Cancel As Integer)" & vbCrLf & _ DLookup("[CLine]", "tbl_secur_add_code", "[SN]=1") & vbCrLf & _ "End Sub" Forms(theForm).Module.AddFromString str DoCmd.Close acForm, Forms(theForm).Name, acSaveYes End Sub جعفر

ومن وين لي اعرف كل هذا ، وانت طلبك كان: جعفر

معلش ، العتب على النظر ، تفضل يا سيدي Private Sub Command1_Click() Dim str As String, theForm As String For i = 0 To Me.form_list.ListCount - 1 theForm = Me.form_list.ItemData(i) DoCmd.OpenForm theForm, acDesign, , , , acHidden str = "Private Sub Form_Open(Cancel As Integer)" & vbCrLf & _ DLookup("[CLine]", "tbl_secur_add_code", "[SN]=1") & vbCrLf & _ "End Sub" Forms(theForm).Module.AddFromString str DoCmd.Close acForm, Forms(theForm).Name, acSaveYes Next i End Sub جعفر

تفضل . جعفر 473.db1.mdb.zip

تفضل ولكن بكود آخر: Private Sub Command1_Click() Dim str As String, theForm As String theForm = Me.form_list.Value DoCmd.OpenForm theForm, acDesign, , , , acHidden str = "Private Sub Form_Open(Cancel As Integer)" & vbCrLf & _ DLookup("[CLine]", "tbl_secur_add_code", "[SN]=1") & vbCrLf & _ "End Sub" Forms(theForm).Module.AddFromString str DoCmd.Close acForm, Forms(theForm).Name, acSaveYes End Sub جعفر 472.اضافة كود فى محرر الاكواد بزر امر.mdb.zip

وعليكم السلام الاستعلام qry_Count_Grades لا يحتاج الى تغيير ، فاتركه كما هو ، واربطه بالجدول الذي به علامات "تقدير العربي" ، بالحقلين كما في الصورة ، ولكن ، هذا مجرد اضافة الى طلبك ، فاذا حصلت على النتيجة المطلوبة بمعادلتك Dcount ، فلا تهتم بالطرق الاخرى جعفر

وعليكم السلام استخدم هذا الكود المُعدل ، للحدث على زر "اضف 5 سجلات" Private Sub cmd_add_5_Click() On Error GoTo err_cmd_add_5_Click 'Call Form_main.Check_Record 'Exit Sub Dim rst As DAO.Recordset Dim rst2 As DAO.Recordset Dim food_list 'save the Record of the Main Form, if not saved If Me.Dirty Then Me.Dirty = False Set rst = Me.main.Form.RecordsetClone Set rst2 = CurrentDb.OpenRecordset("Select * From sprt") rst.MoveLast: rst.MoveFirst RC = rst.RecordCount 'this should be a new set, make sure we don't have Records If RC <> 0 Then MsgBox "لا يمكن الاضافة ، توجد سجلات مسبقا" & vbCrLf & "Can't add on existing Records" GoTo Exit_cmd_add_5_Click End If food_list = Array("hamor", "zbedy", "nweby", "sheep", "tona") For i = 1 To 5 rst.AddNew rst!cid = Me.ID rst!food = food_list(i - 1) rst2.FindFirst "[food]='" & food_list(i - 1) & "'" rst!unit = rst2!unit rst!price = rst2!price1 rst.Update Next i Exit_cmd_add_5_Click: rst.Close: Set rst = Nothing rst2.Close: Set rst2 = Nothing Exit Sub err_cmd_add_5_Click: If Err.Number = 3021 Then 'No Records Resume Next ElseIf Err.Number = 3201 Then 'No Record in main Form MsgBox "رجاء تعبئة بيانات النموذج الرئيسي اولا" & vbCrLf & "Please fill Main Form first" Resume Exit_cmd_add_5_Click Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub . عفوا لم افهم قصدك جعفر

نعم يمكن ، ولمعرفة اسم المجموعة وعمل الكود لها/بها ، راجع الرابط الذي تركته في مشاركتي الاخيرة ، فالفيديو يوضح ذلك جعفر

اخي صالح ذكرت Crystal Reports ، فاخذت بذاكرتي الى بعض مواضيع اختنا الدكتورة أم عهود حفظها الله ، والتي قد تكون ضالتك: http://arabteam2000-forum.com/index.php?/topic/100740-كيف-تربط-مشروعك-بتقارير-الكريستال-ريبورت/ واما الرابطين التاليين ، فبهما مثال ، ولا زالت اختنا تعدل فيه حسب الطلب ، ففيه مجموعة امثلة: http://arabteam2000-forum.com/index.php?/topic/217035-تمت-الإجابة-اضافة-ازرار-امر-في-تقرير/&page=1 http://arabteam2000-forum.com/index.php?/topic/217035-تمت-الإجابة-اضافة-ازرار-امر-في-تقرير/&page=2 جعفر

ومرة اخرى ، الذي كنا نراه من نتائج الجدول ، ليست هي النتائج المتوقعة (شكرا استاذ رمهان) فبعد النظر الى معادلة الاستاذ رمهان ، والتي لا يمكن ان تعمل اذا كان حقل اليوم والتاريخ سطر واحد ، نظرت في الجدول مرة اخرى ، واوسعت خانة السجلات عموديا ، واذا بها هكذا: . جعفر

وعليكم السلام في عدة طرق لهذا العمل ، واليك احدها ، والذي يعتمد على مكان كل حرف في الجملة من النظرة الاولى لجٌملة الحقل اليوم والتاريخ في الجدول ، نرى ان اول حرف على اليسار هو رقم . ولكن من تجربتنا بالحروف العربية في الكود ، حيث لا يبقى الكود على حاله حين نستعمل الحروف العربية ، ويلخبط مكان متغيرات الدوال ، لذا وجب علينا التأكد بالكود عن اول حرف بالجملة ، لهذا عملنا كود لها في الاستعلام ادناه: . 1. واتضح من نتائج الاستعلام ، ان اول حرف ليس الرقم كما كنا نعتقد ، وانما هي بداية كملة اليوم (الأحد ، الاثنين ، ...) 2. بما ان التاريخ ثابت: عددين لليوم ، ثم / ، ثم عددين للشهر ، ثم / ، ثم اربعة اعداد للسنة ، اي 2 + 1 + 2 + 1 + 4 =10 مسافات عليه ، بإمكاننا عمل نوعين من المعادلات للتاريخ واليوم (وانت تختار) . والنتيجة . جعفر 470.TEST_DATE.accdb.zip

وعليكم السلام لا ادري اذا كان هناك طريقة اخرى للمقارنة وجلب النتائج ، فطريقتي طويلة نوعا ما نعمل حقل نربط فيه رقم الصيدلية والشهر ، حتى نحصل على على مقارنة حسب طلبك (رجاء لاحظ اسماء الجداول في الاستعلام): . . نقارن بين الجدولين ، ونطلب جميع السجلات التي في الجدول store والتي قد لا توجد في الجدول الاخر . هنا حصلنا على السجلات التي لا توجد في الجدول الاخر (في المربعات الحمراء) ، وسنعمل نفس الشئ بالنسبة للجدول الثاني: . . . والان نريد ضم الاستعلامين مع بعض ن حتى نحصل على استعلام واحد . ومن نتائج الجمع ، نعمل استعلام اخير لتصفية السجلات الغير مرغوب فيها . والنتيجة ، لاحظ العمودين الذين على اليمين ، فكل عمود تابع لاحد الجداول: الحقل الذي فيه _ معناه انه لا يوجد سجل في الجدول (لاحظ اسم الجدول مسمى الحقل) . طبعا ستستخدم الاستعلام الاخير فقط في جلب النتائج واستعمالها ، والاستعلامات الاخرى هي لتهيئة السجلات بالطريقة المطلوبة جعفر 469.Order.accdb.zip

مشاركتي هذه صار لها 3 سنوات والان ، اشرح طلبك بمثال لوسمحت ، حتى نستطيع مساعدتك جعفر

وعليكم السلام اذا اردت الدالة بشرطين ، فاليك الطريقة (ولكن ولأنها بالعربي ، فللأسف لن تستطيع قرأتها بالطريقة الصحيحة) . ولكن ، بدل هذه الدالة ، رأيت ان اتوسع في الاجابةلتكون فائدتها اعم اليك الاستعلام الجديد ، والذي يحسب مجموع التقدير لجميع الصفوف: . . والنتيجة . وعندما نربطه بالاستعلام الذي قمت انت بعمله: . والنتيجة . جعفر 468.الصفوف العليا 2016.accdb.zip

بكل اعتذار ، انا اسحب نفسي من هذا الموضوع جعفر