jjafferr

حياالله كاسر رجاء تتبع الخطوات هذه وتخبرني بالنتيجة تفصيلا: 1. اجعل النموذج في وضع التصميم ، ثم افتح اعدادات الزر "حفظ" ، ثم تبويب الحدث ، والمفروض ان ترى امام الحدث "On Click" الكلمات "[Event Procedure]" ، ثم انقر على الزر الصغير الذي به 3 نقاط (على يمين الصورة) ، هذا سوف يُدخلك في الكود: . 2. على العمود الذي يشير اليه السهم ، وبمحاذات الجملة التي تراها ، انقر بالفأرة اليسار على العمود ، فستلاحظ انه تم عمل نقطة في العمود (كما في الصورة) . 3. ارجع الى النموذج ، وقم بتشغيل النموذج ، واضغط على الزر "حفظ" . 4. سيأخذك البرنامج الى صفحة الكود ، وسترى التظليل الاصفر لنفس السطر الذي عملنا نقطة بجواره . 5. اضغط على الكيبورد على الزر F8 ثلاث مرات ، وسترى ان السطر الاصفر المظلل ذهب الى السطر ، كما اصبح في الصورة . 6. عند الضغط على الزر F8 مرة اخرى ، المفروض ان ترى النموذج وبه صورة الرسالة . رجاء تخبرني اذا كنت ترى ما ارى ، او ان كمبيوترك يرى ما لا ارى جعفر

شكرا على الايضاح اختي للأسف لا يمكن هذا بدون حفظ البيانات ولو في جدول مؤقت ، او تصدير البيانات الى ملف txt مثلا ، او حتى csv بحث يتم قراءته بالاكسل. جعفر

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

الظاهر ان الكود عندك غير مفعّل !! هل تستخدم الاوفيس 2007 او 2010 لأول مرة على جهازك؟ هل لما تشغل البرنامج ، يظهر لك شريط اصفر تحت شريط الادوات في الاكسس: هذا معناه ان الاكسس في حالة حماية لكمبيوترك من هذا البرنامج ، وانه لا يجعل الكود يعمل ، لذلك ، اضغط على الزر في الشريط الاصفر ، وسيعمل البرنامج ان شاء الله اما اذا لم تكن هذه المشكلة ، فعد ، وسنحاول اشياء اخرى لا جعفر

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

وعليكم السلام هذا لأنك لم تختار اي يوم للتدريب على العموم ، عملت تغييرات في البرنامج ، حتى يحذرك اذا لم تختار الايام او تدخل التواريخ ، واذا تم ادخال التاريخ مسبقا للـ PcDigit فانه يحذرك كذلك وعملت لم الملاحظات في البرنامج ، اذا اردت تغيير اي شئ فيه Private Sub cmd1_Click() 'التاكد ان الحقول المطلوبة تم اختيارها في النموذج If Len(Me.StarteDate & "") = 0 Then MsgBox "رجاء ادخال تاريخ البداية" Me.StarteDate.SetFocus Exit Sub ElseIf Len(Me.EndDate & "") = 0 Then MsgBox "رجاء ادخال تاريخ النهاية" Me.EndDate.SetFocus Exit Sub ElseIf (Len(Me.iSunday & "") = 0 Or Me.iSunday = 0) And _ (Len(Me.iMonday & "") = 0 Or Me.iMonday = 0) And _ (Len(Me.iTuesday & "") = 0 Or Me.iTuesday = 0) And _ (Len(Me.iWednesday & "") = 0 Or Me.iWednesday = 0) And _ (Len(Me.iThursday & "") = 0 Or Me.iThursday = 0) Then MsgBox "رجاء الاختيار من ايام التدريب" Exit Sub End If 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 = "الاحد" ElseIf Me.iMonday = -1 And Next_Day = "Monday" Then add_Day = "الاثنين" ElseIf Me.iTuesday = -1 And Next_Day = "Tuesday" Then add_Day = "الثلاثاء" ElseIf Me.iWednesday = -1 And Next_Day = "Wednesday" Then add_Day = "الاربعاء" ElseIf Me.iThursday = -1 And Next_Day = "Thursday" Then add_Day = "الخميس" End If 'لدينا تاريخ يجب ادخاله If add_Day <> "" Then 'ولكن هل تم ادخال هذا التاريخ سابقا لهذا PCDigit rst.FindFirst "[PcDigit]=" & Me.PcDigit & " And [TDate] ='" & Next_Date & "'" If rst.NoMatch Then 'غير موجود rst.AddNew rst!TDate = Next_Date: rst!TDay = add_Day: rst!PcDigit = Me.PcDigit: rst!auto_id = Me.auto_id rst.Update Else 'موجود MsgBox "الموظف رقم " & Me.PcDigit & vbCrLf & _ "يوجد لديه تدريب سابق يوم " & add_Day & vbCrLf & _ "بتاريخ " & Next_Date & vbCrLf & vbCrLf & _ "هذا التاريخ لم يتم ادخاله مرة اخرى" End If End If Next i rst.Close: Set rst = Nothing End Sub . جعفر 471.tdate.mdb.zip

أخي 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 جعفر