د.كاف يار

اخي هنالك فرق بين التحديث Edit و الإلحاق AddNew فإستعلام الإلحاق يقوم فقط بتحديث البيانات و بناء على طلبك يكون التحديث لكافة للسجلات دفعة واحدة بالطريقة التالية من خلال الاستعلام لكن اذا اردت تحديث سجل محدد بالطريقة التالية سؤالك عام بشكل جدا موسع ماهي المشكلة التي تواجهك تحديدا ً ؟؟

نعم صحيح يا عم ابو الحسن

اتفضل التعديل يابو الحسن DATA1041-5.mdb

وهذي مشاركتي ايضا فقط اضافة انشاء نسخة احتياطية 1297791160_.accdb

الواضح عند الفتح بأنها تظهر خالية لكن جرب هذا التعديل Aziz.accdb

تفضل هذا المثال سيتم حفظ معلومات الدخول في ملف خارجي و سيتم استدعاء معلومات الدخول بعد ادخال اسم المستخدم Database2 (1).mdb

في الاستعلام ضع المعيار التالي Is Not Null تفضل التعديل asd.accdb

تفضل Aziz.accdb

خليتني ارجع اقرأ السؤال اكثر من عشرة مرات لكن دامك وصلت للنتيجة المطلوبة هذا هو المهم شكرا شكرا لك على كلماتك الطيبة و اسأل الله لك التوفيق و الرزق الوفير و ستجدني دائما في الخدمة

تفضل التعديل Database2.accdb

تفضل التعديل rrr (2).accdb

تفضل هذا التعديل الرتب.mdb

تفضل التعديل rrr.accdb

تفضل في حال كانت القيمة رقمية "[TextBox1] = " & Me.TextBox في حال كانت القيمة تاريخ "[TextBox1] = #" & Me.TextBox & "#" في حال كانت القيمة نص "[TextBox1] Like '" & Me.TextBox &"' "

تفضل هذا التعديل الصق هذا الكود في اي مكان داخل محرر الأكواد سيتم انشاء مجلد بإسم Im في حال عدم وجوده و سيتم حفظ نسخة من الصورة Public Function SaveImag(ImagtPath As String, FileNewName As String) On Error GoTo ErrH Dim fso As Object, Syso As Object, fldrname As String, fldrpath As String, MyFile As String, DstFile As String fldrname = "Im" Set fso = CreateObject("scripting.filesystemobject") fldrpath = CurrentProject.Path & "\" & fldrname If Not fso.FolderExists(fldrpath) Then fso.createfolder (fldrpath) End If MyFile = ImagtPath DstFile = CurrentProject.Path & "/" & fldrname & "/" & FileNewName & ".jpg" DBEngine.Idle Set Syso = CreateObject("Scripting.FileSystemObject") Syso.copyfile MyFile, DstFile Set Syso = Nothing SaveImag = DstFile MsgBox "تم اضافة الصورة بنجاح", vbInformation + vbMsgBoxRight, "تأكيد" Exit Function ErrH: MsgBox "رقم الخطأ" & " : " & Err.Number & vbNewLine & "وصف الخطأ" & " : " & vbNewLine & Err.Description, vbExclamation + vbMsgBoxRight, "تنبيه" End Function من المفترض انه يوجد لديك العناصر التالية - مربع نص اسم الصورة - مربع نص مسار الصورة - ازرار اختيار الملف - ازرار تنفيذ الإجراء او حفظ الصورة في ازار اختيار الصورة استخدم الكود التالي Dim Addfile As Object Set Addfile = Application.FileDialog(3) With Addfile .AllowMultiSelect = False .InitialFileName = "" .title = "اختيار صورة" .Filters.Clear .Filters.Add "All Files", "*.jpg,*.png" If .Show = True Then ImagePathText = Trim(.SelectedItems(1)) ' مربع النص الذي سيتم تخزين مسار الصورة به Else Exit Sub End If End With و في ازرار الحفظ ضع الكود التالي call SaveImag(ImagePathText, FileName) ImagePathText تعني مربع نص مسار الصورة FileName تعني اسم الصورة مرفق مثال تطبيق لذلك MyData16.accdb

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

احفظ التقرير مباشرة داخل مجلد البرنامج على السيرفر او الشبكة ارفق مثال لكي يتم التعديل عليه

Kill ImagePath 'مسار الصورة

هل تقصد مثل هذا Database2.accdb

فقط قم بإضافة المكتبة

تفضل هذا التعديل للتوضيح salary.accdb

تفضل هذا التعديل كما بالجدول salary.accdb

اذا لا داعي لوجود راتب للدرجة و الاكتفاء براتب المرحلة هل هذا صحيح ؟

تفضل هذا التعديل salary.accdb و الله يا بش مهندس اني متابعك عن قرب الكون هذا الي عايشين فيه و سهل على البشر المعيشة في كوكب الأرض بناه مهندسين امثالك فكيف لا اعجب بتفكيرك و رؤيتك

الحسبة المستخدمة هي راتب الدرجة + راتب المرحلة تفضل هذا التعديل لتفادي ظهور رسالة الخطأ salary.accdb