د.كاف يار

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

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

تفضل التعديل اخي الكريم 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

تفضل هذه فكرة مبدئية تم عملها على VB.NET مرفق ملف التثبيت و ملف المشروع بالكامل اسم المستخدم : 1 كلمة المرور : 1 WindowsApplication1.zip publish.zip

تفضل الكريم سيتم اظهار اخر دورتين فقط db1.accdb

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

لاجبار المستخدم على ملئ جميع الحقول اضف الفكشن التالي Function IsNullTextbox() Dim ctlNull As Control, I As String, X As Integer For Each ctlNull In Me.Controls If ctlNull.ControlType = acTextBox Or ctlNull.ControlType = acComboBox Then If IsNull(ctlNull) Then I = ctlNull.Name & vbCrLf & I X = X + 1 End If End If Next ctlNull If X > 0 Then MsgBox I, , " توجد حقول فارغة " Else MsgBox "تم الحفظ بنجاح" End If End Function في الازرار استدعي الفكشن Call IsNullTextbox()

اخي و حبيبي @ابا جودى انت معلمنا و استاذنا الفاضل تأمر علينا و نحن ننفذ حبا لك مرفق التعديل مثال للتعامل مع الصور (1).mdb

اتفضل اخي الكريم Dim Rs, RsFile As Recordset Set Rs = CurrentDb.OpenRecordset("اسم الجدول") Rs.MoveFirst Do While Not Rs.EOF If IsNull(DLookup("ID_User", "Users", "ID_User='" & [ID_User] & "'")) Then Rs![ID_User] = [ID_User] Rs![ID_Group] = [ID_Group] Rs![IAM] = [IAM] Rs![BIRTHDATE] = [BIRTHDATE] Rs![Email] = [Email] Rs![PHONE] = [PHONE] Rs![ImagePath] = [ImagePath] Else If Rs![ID_User] = [ID_User] Then Rs.Edit Rs![ID_Group] = [ID_Group] Rs![IAM] = [IAM] Rs![BIRTHDATE] = [BIRTHDATE] Rs![Email] = [Email] Rs![PHONE] = [PHONE] Rs![ImagePath] = [ImagePath] Rs.Update End If End If Rs.Update Rs.MoveNext Loop Rs.Close

اكثر جمل الاتصال الآمن استخدمها تكون على النحول التالي في رأس موديل الفورم Option Explicit Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _ ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Private Const SW_HIDE As Long = 0 Private Const SW_SHOWNORMAL As Long = 1 الاتصال ( اضف الأيبي + اسم المستخدم + كلمة المرور ) ShellExecute Me.hwnd, "Open", "C:\Windows\System32\mstsc.exe", "/P pinghost=Enter server IP address: '' \\%pinghost% /user:''\username ''", "C:\", SW_SHOWNORMAL اذا استطعت الاتصال و الدخول لسطح المكتب يصير الأمر بسيط فقط بتعديل السطر اعلاه

اخوي جرب بهذي الطريقة و اعطيني خبر ايش يصير معاك بحيث لو ماضبط فكرة اخرى عند محاولة الدخول يتم زراعة باتش و اعتقد هذي اسهل طريقة لتمرير معلومات الدخول "\\192.168.1.2\Pro\IP.accdb" & "UserName" & "password"

جرب اعمل نسخة احتياطية و قارن النتائج هذا كود لعمل نسخة احتياطية Dim MyFile, DstFile As String Dim Syso As Object On Error GoTo ErrH MyFile = CurrentProject.FullName DstFile = CurrentProject.Path & "\Backup-" & Format(Date, "dd-mm-yyyy") & ".accdb" DBEngine.Idle Set Syso = CreateObject("Scripting.FileSystemObject") Syso.copyfile MyFile, DstFile Set Syso = Nothing Name DstFile As DstFile & ".ptc" DBEngine.CompactDatabase DstFile & ".ptc", DstFile Kill DstFile & ".ptc" MsgBox "تم انشاء قاعدة البيانات بنجاح" & vbNewLine & "Database successfully created" , vbOKOnly, "emphasis" & "/" & "تاكيد" Exit Sub ErrH: Select Case Err.Number End Select