نجوم المشاركات

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

ما هوه انا انتبهت لها اخي الاستاذ جعفر قبلك ومعادلتك لن تعمل لو اختلف تنسيق التاريخ او لو حصل ان الايام بدأت بحرف أ بدل ا . او لو كانت الايام بالانجليش فقلت استخدم البحث عن المسافة ومالي شغل باي شي ثاني . فالتاريخ لن يحوي مسافة وكذلك الاسم لن يحوي مسافة . المسافة تكون حتما بين التاريخ واليوم . وماتجيش اخوي جعفر وتعقدها وتقول لي ممكن ينشبك الاسم مع التاريخ !! تحياتي ياغالي وهذا لاستخراج التاريخ Expr2: Replace([اليوم والتاريخ],Left([اليوم والتاريخ],InStrRev([اليوم والتاريخ],Chr(10))),"")

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

مشاركة مع الاستاذ جعفر ضع هذا التعبير في استعلام Expr1: Left([اليوم والتاريخ],InStrRev([اليوم والتاريخ],Chr(10))) بالتوفيق

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

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

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

تفضل وتدلل يا باشا . الكود 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

وعليكم السلام استخدم هذا الكود المُعدل ، للحدث على زر "اضف 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 . عفوا لم افهم قصدك جعفر

::: في المثال المرفق بعد البحث انقر على حقل الاسم ولاحظ ماذا يحدث ... بالتوفيق البحث والنقر المزدوج.rar

السوال الأول طلب وضع الدالة hlookup والسؤوال الثاني طلب إضافة الدالة ifferror للدالة السابقة

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

اخي صالح ذكرت 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 جعفر

اخي حلبي انا لم استوعب الى حد الان اعطاء فرصة للمتلاعب ان يلعب ! ولكن اختصار للموضوع : مارايك ان يتم تسجيل حضور تاريخين واحد من الجهاز وواحد من النت وانت تتحكم فيما بعد بهذا المدخلين زي ماتحب ؟ تحياتي

السلام عليكم اخي العزيز انظر للملف بعد التعديل باستخدام التنيسق الشرطي للخلايا رد لي الجواب وشكرا Follow up.rar

المعادلة تعمل بكفاءة لا اعلم ما المشكلة عندك انظر الى المرفق(ربما تكون الارقام ليست في العامودين F & D من الورقة اعتمادية 3) نقل اسم salim.rar

حاول استبدال الفاصلة ","بفاصلة منقوطة ";" في كل المعادلة لتصبح هكذا =IFERROR(INDEX(اعتمادية3!$G$2:$G$10;MATCH('تسهيل مهمة'!A2;اعتمادية3!$F$2:$F$10;0));INDEX(اعتمادية3!$G$2:$G$10;MATCH('تسهيل مهمة'!A2;اعتمادية3!$D$2:$D$10;0)))

جرب هذا الماكرو Sub LAST_CEL() Application.Goto Reference:=Range("A" & Application.Max(Range("a:a")) + 13) End Sub

ربما كان المطلوب HM4-salim.rar

السلام عليكم ورحمة الله أهلا بك أخي.. لو استعملت البحث عن طلبك في المنتدى لوجدت العديد من الأمثلة وبعد إذن أخونا الكريم محمد نجار تفضل هذا المثال تحياتي Find Name.rar