ابو تراب

جميل هذه محاولة..جرب وخبرنا اين الاخطاء Subjects_UPDATE4.accdb

طريقة النجاح و الاكمال تحتاج الى توضيح و شرح على كلا هذا مافهمت.. ارجو الافادة اذا السجل رقم 12 صحيح انظر المرفق تحياتي Subjects_UPDATE3.accdb

ملاحطة ممتازة جرب المرفق و خبرنا Subjects_UPDATE2.accdb

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

حياك الله اخي جرب المرفق Subjects_UPDATED.accdb

هلا اخي هل هذا ماتريدSubjects.accdb

هلا اخي هل استخدمت استعلام SELECT مع تجميع Group مع *

هلا اخي جرب المرفق لا اعتقدALSSAFE.accdb

هلا اخي جرب المرفق test.accdb

هلا اخي جرب الكود من المهم لكي يعمل الكود ان يكن التسلسل صحيح ... اذا كان اخر دفعة لكارت هو رقم 4 فدفعة الجديدة يجب ان تكن 5 db2card_UPDATED2.mdb

هلا اخي جرب المرفق db2card_UPDATED.mdb

هلا اخي جرب هذا الكود DoCmd.TransferDatabase acExport, "Microsoft Access", CurrentProject.Path & "\TESTDB_BACKUP.accdb", acTable, "TABLE1", "TABLE1" مرفق مثال بالتوفيق TEST.zip

هل هذا المطلوب اخي TEST5.accdb

جرب المرفق TEST5-UPDATED.accdb

تفضل اخي حساب المرتب من الجدول المرتبات.accdb

هلا اخي ممكن عمل التالي: 1 - اكتب وصف للاستعلام في خواص الاستعلام كما في الصورة 2- انقر بالزر الايمن و اختار تفاصيل 3- هنا سترى تفاصيل لكل استعلام بالتوفيق

هلا يمكنك تسجيل المستخدم الحالي في متغير تبع TempVars مثال 'خزن المستخدم الحالي TempVars("CurrentUser") = cboLoginUser.value 'اعرض المستخدم الحالي lblCurrentUSer.Caption = TempVars("CurrentUser") بالتوفيق

هلا اخيTEST.mdb جرب المرفق

الاخ العزيز @أحمد الفلاحجى الفديو رائع وهناك شرح للاصناف في الدقيقة 6 كما ان الادخال يكون لكلا الوحدتبن معا في الدقيقة 30

هلا اخي جرب المرفقupdate.accdb

هل هذا ماتريد حساب المرتب من الجدول المرتبات.accdb

هلا اخي جرب المرفق حساب المرتب من الجدول المرتبات.accdb

هلا اخي تجد طلبك هنا

هلا اخي وهذه طريقة اخرى...استدعي الدالة ExecuteFile مصدر الكود من الموقع MS Access VBA – Open a File Option Compare Database Option Explicit 'Source: http://www.pacificdb.com.au/MVP/Code/ExeFile.htm Public Const SW_HIDE = 0 Public Const SW_MINIMIZE = 6 Public Const SW_RESTORE = 9 Public Const SW_SHOW = 5 Public Const SW_SHOWMAXIMIZED = 3 Public Const SW_SHOWMINIMIZED = 2 Public Const SW_SHOWMINNOACTIVE = 7 Public Const SW_SHOWNA = 8 Public Const SW_SHOWNOACTIVATE = 4 Public Const SW_SHOWNORMAL = 1 Public Declare 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 Public Sub ExecuteFile(sFileName As String, Optional ByVal sAction As String = "Open") Dim vReturn As Long 'sAction can be either "Open" or "Print". If ShellExecute(Access.hWndAccessApp, sAction, sFileName, vbNullString, "", SW_SHOWNORMAL) < 33 Then DoCmd.Beep MsgBox "File not found." End If End Sub

هذه احدى الافكار Private Sub Form_BeforeUpdate(Cancel As Integer) If MsgBox("Data has been changed, would you like to save", vbOKCancel) = vbCancel Then Cancel = True Me.Undo End If End Sub