jjafferr

وعليكم السلام 🙂 تفضل هذا جوابك سؤالك 🙂 فقط عليك ان تنادي الوحدة النمطية مرة واحدة حتى تقوم بإدخال جميع بيانات الاستعلام 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

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

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

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

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

لاحظ نفس طلبك هنا جعفر

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