Shivan Rekany

هل تريد ان يظهر لك هكذا كما مبينة في الصورة الاسفل او تريد ان يظهر تواريخ اسم سالم فقط

انت على حق لانك استخدمت الطريقة الاولى استخدم طريقة الثانية اللي شروطه في استعلام هكذا Like [Forms]![frmDate2]![مربع_تحرير_وسرد11] & "*" اي استخدم القاعد في مشاركتي الثانية

اعتذر ما فهمت ماتريد

پیتڤی ب سوپاسیێ ناکەت ... دخزمەت داینە لا داعی للشکر ... نحن فی خدمتکم پێ خوش بوم بنیاسینا وە ل ڤێرە ... بخێر ھاتن سررت بلقائکم ھنا ... اھلا بکم

لا اظن ذلك بل يحتاج راحة البال

اتفضل اليك هذا Private Sub Command29_Click() DoCmd.SetWarnings False DoCmd.RunSQL ("INSERT INTO sub ( [no], price, tests, selecting ) SELECT [Forms]![chem]![MyListNumber] AS MyListNumber, chem.price, chem.test, chem.[select] FROM chem WHERE ((([Forms]![chem]![MyListNumber])=[Forms]![chem]![MyListNumber]) AND ((chem.[select])=Yes))") MsgBox "تم اضافة" DoCmd.RunSQL ("UPDATE chem SET chem.[select] = No;") DoCmd.SetWarnings True DoCmd.Close acForm, Me.name Form_sub.Requery End Sub Tests (1).accdb

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

القي نظرتا الى شرط في استعلام 1

اتفضل بحث بين تاريخين بالاسم.accdb

تم اذا تختار اسم راح يظهر فقط بين تاريخين فقط لاسم المحدد واذا لا تختار سيظهر بين تاريخين لكل اسماء بحث بين تاريخين بالاسم.accdb

اتفضل تقدر تشغل الاستعلام بواسطة كود و تقدر تتحول الاستعلام الى كود اي تفتح استعلام في وضع sql وتنسخه كما مبينة في الاسفل Private Sub BtnAdd_Click() DoCmd.SetWarnings False DoCmd.RunSQL ("INSERT INTO sub ( tests, price, selecting, [no] SELECT chem.test, chem.price, chem.[select], [Forms]![main]![no] AS Expr1 FROM chem WHERE (((chem.[select])=Yes));") DoCmd.SetWarnings True MsgBox "تم اضافة" End Sub Private Sub BtnChemUpdate_Click() DoCmd.SetWarnings False DoCmd.RunSQL ("UPDATE chem SET chem.[select] = No;") DoCmd.SetWarnings True MsgBox "تم تحديث" End Sub Private Sub Command43_Click() DoCmd.SetWarnings False DoCmd.OpenQuery "add chem tests"", acViewNormal" DoCmd.SetWarnings True MsgBox "تم اضافة" End Sub Private Sub Command44_Click() DoCmd.SetWarnings False DoCmd.OpenQuery "chem update"", acViewNormal" DoCmd.SetWarnings True MsgBox "تم تحديث" End Sub Tests.accdb

اولا يجب ان تكتب رقم الفاتورة اذا اليك هذا Option Compare Database Private Sub btnDelete_Click() DoCmd.SetWarnings False DoCmd.RunCommand acCmdSelectRecord DoCmd.RunCommand acCmdDeleteRecord Me.Refresh Set rs = Me.RecordsetClone rs.MoveLast: rs.MoveFirst RC = rs.RecordCount rs.MoveFirst DoCmd.GoToRecord , , acFirst For i = 1 To RC Me.sr = Me.ID1 DoCmd.GoToRecord , , acNext Next i DoCmd.SetWarnings True End Sub Private Sub catname_AfterUpdate() 'Me.sr = Nz(DMax("[sr]", "t2", "[fatorano]='" & [Forms]![t1]![fatorano] & "'"), 0) + 1 DoCmd.RunCommand acCmdSaveRecord Me.sr = Me.ID1 End Sub ترقيم تسلسلي (1).accdb

عفوا لم انتبهت لذلك اليك هذا Private Sub catname_AfterUpdate() If Len(Me.sr & vbNullString = 0) Then Me.sr = Nz(DMax("[sr]", "t2", "[fatorano]='" & [Forms]![t1]![fatorano] & "'"), 0) + 1 End Sub ترقيم تسلسلي.accdb

اتفضل اليك هذا =Nz(DMax("[sr]";"t2";"[fatorano]='" & [Forms]![t1]![fatorano] & "'");0)+1 ترقيم تسلسلي.accdb

بفارق الصبر سانتظر لكي اشوفه لا تردد نحن بنتظارك

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

انا لا استخدم هذا شيء ... ولا اظن ان يحتاج هذا الا بعد عدة سنوات وحسب حركة الشغل واذا احتجت ذلك سنقوم بفتح موضوع اخر وهو تحويل الجداول الى sql

انا اشکرکم جميعا ... لمشاركتكم معنا

وعليكم السلام المصيبة كان في سطر الاول وهو فتح نموذج باسم فورم وليس ليس اي نموذج باسم فورم فقط غيرت الى فورم 1 شوف من هذا DoCmd.OpenForm "form", , , , , acHidden الى هذا DoCmd.OpenForm "form1", , , , , acHidden database1 (1).accdb

حسب فهمي للموظوع يجب ان يكون هكذ انا حذفت الحقول الثلاثة اللي في جدول الرئيسي وخليت فقط في جدول الفرعي لكي لا يتم التكرار لكن اذا قصدك بشي اخر في تكرار تلك الحقول ؟ اضف في نموذج الفرعي لكي تدخله هناك طلبات الشراء.accdb

اتفضل Private Sub Command0_Click() Dim tdf As TableDef Dim i As Integer, TableNames As String Dim strPath As String strPath = Application.CurrentProject.Path & "\b.mdb" ' مسار قاعدة البيانات التي بها الجدول For Each tdf In CurrentDb.TableDefs If Left(tdf.Name, 4) <> "MSys" Then ' DoCmd.DeleteObject acTable, tdf.Name DoCmd.TransferDatabase acImport, "Microsoft Access", strPath, acTable, tdf.Name, tdf.Name, False i = i + 1 TableNames = TableNames & vbCrLf & i & " - " & tdf.Name End If Next End Sub

السبب يرجع لان كلا من النموذج الرئيسي و الفرعي مصدرهم هو جدول pr وهذا لا يجوز يجب ان يكون لكل واحد منهم جدول خاص ومرتبط بواسطة علاقات واحد لمتعدد

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

انا قلت لک مسبقا افتح استعلام اللی مصدر النموذج وشوف انا غيرت حقل الرصيد ... شوف كود الرصيد انا غيرت شوي

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