د.كاف يار

تفضل هذا التعديل اخي الكريم ج جلب اقل سعر من جدول movement_t movementDT.Clear() movementDA = New OleDbDataAdapter("SELECT Min(movement_t.[price]) AS price FROM movement_t GROUP BY movement_t.[itembarcode] HAVING (((movement_t.[itembarcode]) Like '%" & tbSearch.Text & "%'));", Conn) movementDA.Fill(movementDT) حفظ قيمة اقل سعر Dim srsh As String srsh = dt(0)("price") movementDT.Clear() movementDA = New OleDbDataAdapter("Select * From MOVEMENT_T Where ((Price) = '" & srsh & "')", Conn) movementDA.Fill(movementDT)

يرجى توضيح المشكلة بالتحديد

تفضل هذا التعديل اخي الكريم 1.accdb

يوجد لديك خطأ في جملة الاتصال احصل على جملى الاتصال المناسبة لك من هذا الموقع و احفظه في مفضلتك connectionstrings

تفضل التعديل اخي الكريم تنسيق شرطي لمعرفة الاشتراكات.accdb

اخواني الافاضل شكرا من القلب على هذه الكلمات الطيبة و المؤثرة في النفس تفضل التعديل اخي الكريم Pupil Names_UPDate.accdb

تفضل هذا الكود اخي الكريم فهو يقوم بالربط تلقائيا بقاعدة البيانات المهم ان يكون مسار قاعدة البيانات في نفس مسار البرنامج او ضع المسار كامل ضع الكود في حدث عند الفتح للنموذج الرئيسي Option Compare Database Option Explicit Public Function updateTableLinks() On Error GoTo updateTableLinks_Err Dim varThis As Variant Dim strBEFileSpec1 As String strBEFileSpec1 = CurrentProject.Path & "\" & "اسم قاعدة البيانات"& ".mdb" For Each varThis In CurrentDb.TableDefs With varThis If Trim(Nz(.Connect)) Like ";DATABASE=*" Then .Connect = ";DATABASE=" & strBEFileSpec1 .RefreshLink End If End With Next varThis updateTableLinks_Exit: Exit Function updateTableLinks_Err: If Err.Number > 0 Then Resume Next Else MsgBox Err.Description Resume updateTableLinks_Exit End If End Function

تفضل التعديل اخي الكريم 1 (1).accdb

اخي الكريم اشكرك على كلماتك الجميلة في ما يخص المخزون اقترح عليك الآتي لديك - جدول المواد - لا يوجد لديك جدول لحركة المواد ( دخول / خروج ) ! اذا كان لديك هذا الجدول سوف تجد ان البرنامج الخاص بك قد تنظم بشكل كبير سواء اثناء الجرد السنوي او معرفة المخزون الحقيقي بسبب انه لابد ان يحتوي على ( قيود سحب - قيود توريد - قيود مرتجع ) بالتالي المخزون الحالي = (قيود التوريد) - ( قيود السحب + قيود مرتجع ) *** النتيجة ( بحذف الطلببية ( أي حذف قيد السحب ) تكون المواد قد تم اعادتها للمخزون بشكل آلي )

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

تفضل التعديل اخي الكريم Pupil Names.accdb

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

تفضل هذا التعديل اخي الكريم تم اضافة تنسيقات شرطية حتما ستنال اعجابك اربعة الوان ابيض = ليس لديه اشتراك اخضر = لديه اشتراك اكثر من خمسة ايام ازرق = لديه اشتراك يساوي او اقل من خمسة ايام احمر = لديه اشتراك منتهي GYM.accdb

اجعلها بهذه الطريقة بدون الاشارة الى اسم النموذج [q] = [q] + [qq]

اخي الكريم تم عمل بعض التعديلات على الجدول أمل ان تفي بالمطلوب مرفق الملف بعد التعديل ,, شكرا لك GYM.accdb

تفضل هذا التعديل اخي الكريم في حدث القائمة المسندلة لأختيار الوظيفة انسخ الكود و الصقه On Error Resume Next DoCmd.RunCommand acCmdSaveRecord DoCmd.SetWarnings False Dim x1, x2, x3 x1 = DLast("[m1]", "[jobs]", "[wazefa]= [Forms]![frm_rateb]![job]") x2 = DLast("[m2]", "[jobs]", "[wazefa]= [Forms]![frm_rateb]![job]") x3 = DLast("[m3]", "[jobs]", "[wazefa]= [Forms]![frm_rateb]![job]") DoCmd.RunSQL "UPDATE tb_rateb SET tb_rateb.amount1 = '" & x1 & "', tb_rateb.amount2 = '" & x2 & "', tb_rateb.amount3 = '" & x3 & "' WHERE [tb_rateb.id)=[Forms]![frm_rateb]![id];" DoCmd.SetWarnings True استعلام تحديث لاعمدة القائمة المنسدلة.accdb

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

اخي الكريم حين تريد البحث عن كلمة معينة لا تكتفي بالبحث من بداية الجملة استخدم هذه الطريقة و ستجد انها تفي بالغرض Me.Form.Filter = "[Last_Name] LIKE '%" & [Text1] & "%' " Me.FilterOn = True

بعد اذن اخواني لكي تتعدد الخيارات اخي الكريم لكي يسهل عليك الامر استخدم الكود التالي Dim dbsNorthwind As DAO.Database Dim rstShippers As DAO.Recordset Set dbsNorthwind = CurrentDb Set rstShippers = dbsNorthwind.OpenRecordset("Table_Name") With rstShippers .AddNew !User_Name = [text1] !Password = [text2] .Update End With

اخي الكريم يجب عليك تثبيت Framework 4.5 يرجى تجربة الملفات المرفقة Setup.rar Debug.rar

اجعلها بهذا الشكل بدون تحديد اسماء النماذج [الكمية المتوفرة]=[الكمية المتوفرة]-[الكمية]

تم بالفعل عمل استعلام الحاقي مضافا اليه تاريخ آخر ( تجديد - نوع اشتراك - نوع كورس - سعر كورس ) يتم جلب اخر سجل للمشترك و الحاقه بسجل جديد تم تحديد اليوم الأول من كل شهر للتجديد تم وضع الكود في حدث عند الفتح GYM.accdb

دائما مبدع و متألق اخي خالد اسأل الله لك التوفيق و منكم ما زلنا نتعلم الكثير شكرا لك

تفضل هذا التعديل اخي الكريم GYM.accdb

المشكلة لديك اتوقع في جملة الاتصال تفضل هذا الموقع لجمل الاتصال https://www.connectionstrings.com/access/ ادناه جملة اتصال جاهزة فقط قم باختيار اصدار الاوفيس و بتغيير اسم قاعدة البيانات ' 2003 "Provider=Microsoft." & " Jet.OLEDB.4.0 " & ";Data Source=|DataDirectory|\" & "Database" & ".mdb;" & "Jet OLEDB:System Database=system.mdw;" ' 2007 "Provider=Microsoft." & " ACE.OLEDB.12.0 " & ";Data Source=|DataDirectory|\" & "Database" & ".accdb;" & "Jet OLEDB:System Database=system.mdw;"