jjafferr

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

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

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

وعليكم السلام 🙂 تفضل هذا جوابك سؤالك 🙂 فقط عليك ان تنادي الوحدة النمطية مرة واحدة حتى تقوم بإدخال جميع بيانات الاستعلام QAAA الى الجدول TBBBB : Public Function Rows_to_Column() On Error GoTo err_Rows_to_Column Dim Rrst As DAO.Recordset Dim Crst As DAO.Recordset Dim i As Integer Dim fld As Field Dim iField_Caption As String Set Crst = CurrentDb.OpenRecordset("Select * From TBBBB") Set Rrst = CurrentDb.OpenRecordset("Select * From QAAA") Rrst.MoveFirst 'Records Do Until Rrst.EOF 'Field Names For Each fld In Rrst.Fields iField_Caption = fld.Properties("Caption") 'Debug.Print fld.Name & vbTab & Rrst(fld.Name) Crst.AddNew Crst!NSSASASE = iField_Caption Crst!NSSBDEL = Rrst(fld.Name) Crst.Update Next Rrst.MoveNext Loop Exit_Rows_to_Column: Rrst.Close: Set Rrst = Nothing Crst.Close: Set Crst = Nothing MsgBox "Done" Exit Function err_Rows_to_Column: If Err.Number = 3270 Then 'this field does not have a caption for it, give it the field name iField_Caption = fld.Name Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description Resume Exit_Rows_to_Column End If End Function جعفر

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

كيف ؟ انصحك باستعمال المرفق في هذا الرابط ، كلما تنتهي من تجربة في برنامجك ، فهو يحذف بقايا البرمجة القديمة التي لم يحذفها الاكسس من ذاكرته . جعفر

السلام عليكم 🙂 مع ان كود ابو جودي اشتغل عندي: اكسس 2019 ، 64بت ، ولكن بما ان: انا اضفت الكبسة على زر END في كود ابو جودي ، مرتين ، فرجاء تجربته : Private Sub tx0_Change() On Error GoTo Proc_Err Dim txtsearch As String: txtsearch = Me.tx0.Text Me.Filter = "RAWY_NAME" & " Like ""*" & txtsearch & "*""": Me.FilterOn = True Me.tx0.SetFocus Me.tx0 = txtsearch 'Me.tx0.SelStart = Len(txtsearch) Me.tx0.SelStart = vbKeyEnd 'الكبسة على زر END Exit Sub Proc_Err: Select Case Err.Number Case Is = 2185 Me.FilterOn = False Me.tx0.SetFocus 'Me.tx0.SelStart = Me.tx0.SelLength Me.tx0.SelStart = vbKeyEnd 'الكبسة على زر END Beep MsgBox "There are no results" Case Else MsgBox "Error " & Err.Number & vbNewLine & Err.Description End Select End Sub جعفر

وعليكم السلام 🙂 تفضل 🙂 Dim mySQL As String mySQL = "[Date_From]=#" & Me.Date_From & "#" mySQL = mySQL & " And " mySQL = mySQL & "[Date_To]=#" & Me.Date_To & "#" mySQL = mySQL & " And " mySQL = mySQL & "[Car]='" & Me.Car & "'" If DCount("*", "TABLE_NAME", mySQL) > 0 Then MsgBox "تم حجز السيارة بهذا التاريخ سابقا" Exit Sub End If جعفر

السلام عليكم 🙂 بسبب وجود الامر: On error Resume Next (انا دائما انصح بعدم استعمال هذا السطر إلا في الحالات الخاصة جدا، وانما يجب التعامل مع رقم الخطأ مباشرة) ، لم يكن يعطيك البرنامج اي خطأ ، بينما البرنامج لم يكن يستطيع ان يستورد ملف الاكسل الى قاعدة بياناتك !! رجاء اتباع هذه الطريقة لإستيراد ملف الاكسل، الى جدول مؤقت في برنامجك: . ولما تكون البيانات في الاكسس ، يمكنك العمل عليها بطريقة عادية وبسهولة 🙂 جعفر

شكرا جزيلا اخوي ابو ابراهيم على هذه الطريقة الجديدة 🙂 جعفر

السلام عليكم 🙂 بعيد عن مكتبات الوندوز API هناك طريقتين ، جلب التاريخ من السيرفر ، وجلب التاريخ من جهاز آخر . وكذلك جلب الوقت عن طريق جدول اكسس او جدول SQL Server على السيرفر او اي جهاز آخر: . جعفر

اخوي موسى 🙂 عمل جميل ، شكرا على المشاركة 🙂 جعفر

في الواقع هناك دوال لا يجب ان تفصفص (مثل المكتبات وامور اخرى لها علاقة بنظام الكمبيوتر او نظام الاكسس) وانما تُستعمل كما هي 🙂 جعفر

ومحاولة اخرى للأخ موسى 🙂 جعفر

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

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

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

لن يخدمك هذا ، اذا نقلت الكود الى وجدة نمطية ، وفي نظري ، طريقة اباجودي اكثر مرونة ، بحيث كل زر له حدث خاص به ، فيكون الكود واصح ونظيف 🙂 جعفر

وعليكم السلام 🙂 انا اعطيتك هذا الكود ، جعفر

وعليكم السلام 🙂 رجاء تعطينا الخطوات ، واسماء النماذج ، واسماء الازرار ، لأني دخلت في برنامجك ولم اعرف وين اروح !! جعفر

تحية شكر وإجلال لك اخوي اباجودي ، في الواقع العمل اكثر مما كنت اتوقع 🙂 طريقة عملك لكل زر كحدث مستقل ، شيء ابهرني ، لأنه الآن وبكل بساطة يمكن لأي مستخدم ان يستفيد من عملك 🙂 عملت تعديل بسيط على الكود ، حتى تعم الفكرة بشكل اوسع ، وحتى يعرف المستخدم انه غير مربوبط بالنماذج الفرعية فقط: Sub DocmdMnu10() Me.frmSub.SourceObject = "" '"Table.tblSystemConstants" DoCmd.OpenForm "frmEmployees" End Sub Sub DocmdMnu11() Me.frmSub.SourceObject = "" ': Me.frmSub.Visible = False: MsgBox "Welcome to our world of www.officena.net" DoCmd.Close acForm, Me.Name End Sub Public Function BtnClick() On Error GoTo err_BtnClick ClkBtn GoDo (Me.ActiveControl.Name) Me.frmSub.Visible = True Exit_BtnClick: Exit Function err_BtnClick: If Err.Number = 2467 Then 'when closing the Form, cant have the frmSub visible 'so ignore Resume Exit_BtnClick 'or if want to go to the next line: 'resume next Else MsgBox Err.Number & vbCrLf & Err.Description Resume Exit_BtnClick End If End Function . والمدالية اللي فيها اسمي ، لقيتها منين ، انا من زمان ادوّر عليها 🙂 وشكر خاص على المدالية 🙂 جعفر ShowHideSideBareRight (2) Modified.zip

وعليكم السلام 🙂 ماهي رسالة الخطأ ؟ جعفر

الآن توكل على الله واخذ الخطوة التالية ، واطرح سؤالك وقت تدوخ 🙂 جعفر

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