jjafferr

السلام عليكم 🙂 اخي @Gamor شو المشكلة؟ في تاريخ 28 / 10 اخونا محمد عبد الله اعطاك طريقتين للحل ، في الاستعلام وفي النموذج: فكل اللي عليك فعله ، هو نسخ الكود اعلاه ، الى برنامجك ، سواء في الاستعلام او في النموذج ، مع تغيير اسماء الحقول. جعفر

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

تفضل 🙂 تصحيح فني ، ولا علاقة له بالموضوع: هذه الطريقة خطأ Option Compare Database Dim UserRS As Recordset Option Explicit Public UsN Public UsM والطريقة الصحيحة Option Compare Database Option Explicit Dim UserRS As Recordset Public UsN Public UsM . والخطأ كان في هذا السطر: Set UserRS = DB.OpenRecordset(" SELECT tbl_User.* FROM tbl_User WHERE tbl_User.user_name ='" & UsN & "' AND tbl_User.City='" & UsM & "';", dbOpenDynaset) ولكنك لم تخبر البرنامج ما هو المتغير DB ، لهذا السبب يمكننا تغيير الكود الى التالي: Set UserRS = CurrentDb.OpenRecordset(" SELECT tbl_User.* FROM tbl_User WHERE tbl_User.user_name ='" & UsN & "' AND tbl_User.City='" & UsM & "';", dbOpenDynaset) ويمكن اختصاره الى Set UserRS = CurrentDb.OpenRecordset(" SELECT * FROM tbl_User WHERE user_name ='" & UsN & "' AND City='" & UsM & "';", dbOpenDynaset) . جعفر

تفضل 🙂 Private Sub TabCtl0_Change() 'page name Me.ss1 = Me.TabCtl0.Pages.Item(TabCtl0.Value).Name 'OR 'page caption Me.ss1 = Me.TabCtl0.Pages.Item(TabCtl0.Value).caption End Sub جعفر

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

السلام عليكم 🙂 تفضل 🙂 'FileCopy varFile, destpath Name varFile As destpath جعفر

السلام عليكم 🙂 اخي إمام ، قوانين المنتدى تقول ، سؤال واحد لكل موضوع ، وقد تمت الاجابة على سؤالك ، فرجاء عمل موضوع جديد لسؤالك الاخير 🙂 يُغلق. جعفر

وعليكم السلام 🙂 اخي بلال ، رجاء تخبرنا بالتفصيل ، عن الخطأ والمشكلة ، وفي اي مكان في برنامجك!! جعفر

السلام عليكم 🙂 اخي إمام ، قوانين المنتدى تقول ، سؤال واحد لكل موضوع ، وقد تمت الاجابة على سؤالك ، فرجاء عمل موضوع جديد لسؤالك الاخير 🙂 يُغلق. جعفر

وعليكم السلام 🙂 بالبيانات الموجودة في المرفق ، لم استطع معرفة المطلوب !! ياريت تدخل بيانات اكثر وترفق البرنامج من جديد ، ومن واقع بياناتك تخبرنا خطوة بخطوة الذي تريده 🙂 جعفر

وعليكم السلام 🙂 ضع هذا الكود في وحدة نمطية ، بغض النظر عن الطرق اعلاه ، ثم اعمل ماكرو ينادي هذه الوحدة النمطية. جعفر

وعليكم السلام 🙂 يمكنك فتح نموذج في برنامج آخر ، هكذا : Private Sub cmd_View_Kids_info_Click() On Error GoTo err_cmd_View_Kids_info_Click 'From Personnel Application, open sfrm_Family 'if the Remote Application/Form is open, close it first appAccess.DoCmd.Quit 'now open the Form for the new Employee_ID Set appAccess = CreateObject("Access.Application") DB_Path = "\\DBs\FE\Finance_FE.accdb" appAccess.OpenCurrentDatabase (DB_Path) appAccess.DoCmd.OpenForm "sfrm_Family" appAccess.Visible = True appAccess.UserControl = True 'Set appAccess = Nothing Exit_cmd_View_Kids_info_Click: Exit Sub err_cmd_View_Kids_info_Click: If Err.Number = 91 Or Err.Number = 462 Then 'the application is NOT open, ignore the error Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub . ويمكن ان نفتح النموذج اعلاه للقراءة فقط: Private Sub cmd_View_Kids_info_Click() On Error GoTo err_cmd_View_Kids_info_Click 'From Personnel Application, open sfrm_Family 'if the Remote Application/Form is open, close it first appAccess.DoCmd.Quit 'now open the Form for the new Employee_ID Set appAccess = CreateObject("Access.Application") DB_Path = "\\DBs\FE\Finance_FE.accdb" appAccess.OpenCurrentDatabase (DB_Path) appAccess.DoCmd.OpenForm "sfrm_Family", , , , acFormReadOnly appAccess.Visible = True appAccess.UserControl = True 'Set appAccess = Nothing Exit_cmd_View_Kids_info_Click: Exit Sub err_cmd_View_Kids_info_Click: If Err.Number = 91 Or Err.Number = 462 Then 'the application is NOT open, ignore the error Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub . كما يمكن ان نفتح النموذج اعلاه للقراءة فقط ، مع تصفية : Private Sub cmd_View_Kids_info_Click() On Error GoTo err_cmd_View_Kids_info_Click 'From Personnel Application, open sfrm_Family 'if the Remote Application/Form is open, close it first appAccess.DoCmd.Quit 'now open the Form for the new Employee_ID Set appAccess = CreateObject("Access.Application") DB_Path = "\\DBs\FE\Finance_FE.accdb" appAccess.OpenCurrentDatabase (DB_Path) myWhere = "[Full_Name]='" & Me.frm_1_All!Full_Name & "'" myWhere = myWhere & " And [Relation]<>'زوجة'" myWhere = myWhere & " And [Relation]<>'زوج'" appAccess.DoCmd.OpenForm "sfrm_Family", , , myWhere, acFormReadOnly appAccess.Visible = True appAccess.UserControl = True 'Set appAccess = Nothing Exit_cmd_View_Kids_info_Click: Exit Sub err_cmd_View_Kids_info_Click: If Err.Number = 91 Or Err.Number = 462 Then 'the application is NOT open, ignore the error Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub جعفر

اخي امام 🙂 رجاء ، لازم تعطي توضيح اكثر. فإرفاق قاعدة بيانات ، واحنا اللي لازم نفكر ، وين ، ومتى ، وكيف !! ما يصير. جعفر

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

السلام عليكم 🙂 رجاء انزال الملف الجديد ، فالتعديلات التي فيه تساعد على التغلب من الكثير من العوائق 🙂 جعفر

نفس تعليقي اعلاه 🙂 جعفر

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

يا سلام عليك اخوي خالد ، لازم تنهي الموضوع بلمسة لم تكن على البال 🙂 جعفر

وعليكم السلام 🙂 هل كلامك في نفس الكمبيوتر ، وإلا عن طريق الشبكة؟ جعفر

وفي سطر واحد للاستعلام 🙂 Bobus: iif(int([A]) = [A] ; [A] ; 0) جعفر

اذن ، اي رقم يكون عشري ، تريد النتيجة = 0 استخدم: A = (10 / 4) if int(A) = A then Bonus = A else Bonus = 0 end if جعفر

اذا تريد 4.8 تجعلها 4 ، استخدم: int(4.8) جعفر

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

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

وعليكم السلام 🙂 رجاء وضع سؤال واحد في كل موضوع ، فقوانين المنتدى لا تسمح بأكثر من سؤال في موضوع !! عند إضافة مادة عن طريق النموذج add_ietem ، فيتم حفظ البيانات في الجدول tabl1 ، صحيح يوجد رقم خاص لكل صنف (الحقل d_f) ، ولكن لا يوجد اسم موحد لكل صنف ، فلا يمكن القيام بجمع المادة !! واذا اردت الجمع باسم الصنف ، فالمادة الجديدة قد تكون قيمتها غير عن السابقة !! ونموذج الفاتورة farey2 يحفظ بياناته في جدول tabl2 ، ويأخذ اول سعر بيع لإسم الصنف. لازم تعيد النظر في استعمال البرنامج ، فالظاهر انها ليست النسخة الاخيرة !! جعفر