محمد أبوعبدالله

السلام عليكم ضع Date() بدون = متاخرات.rar تحياتي

تفضل اخي الكريم تحياتي

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم =Nz(DMax("[ID]";"tbl1");0)+1 تحياتي

ما شاء الله عليك استاذنا الفاضل ربنا يوفقك ويزيدك تحياتي

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم تحياتي

وعليكم السلام ورحمة الله وبركاته نفضل اخي الكريم تحياتي

ةعليكم السلام ورحمة الله وبركاته وتقبل الله منا ومنكم صالح الاعمال وكل عام وانتم الى الله اقرب تحياتي

جزاك الله خيرا اخي الكريم وبارك الله فيك تحياتي

Me.SER = يمثل حقل موجود في الجدول وهو ترقيم تلقائي يستخدمه صاحب الموضوع ككود للسجل وحيث انه ترقيم تلقائي أي انه لا يتكرر اخترت ان يكون هو اسم الملف الجديد حتى لا يتكرر اسم الملف مرة اخرى ويحدث استبدال للملف تحياتي

الكود التالي لفتح مربع حوار لاستعراض مكان الصورة مع عمل فلتر بانواع الملفات المطلوب اظهارها With Application.FileDialog(3) .Title = "Choose File" .Filters.Clear .Filters.Add "Pic Files", "*.jpg ; *.bmp" .AllowMultiSelect = False .InitialFileName = "" If .Show = -1 Then حقل الصورة = مسار ةاسم الملف المجدد IMG = .SelectedItems(1) نسخ الملف الى المجلد الذي بجوار البرنامج وتحديد اسم جديد له Dim varFile As Variant For Each varFile In .SelectedItems Me.IMG = Application.CurrentProject.Path & "\" & "image" & "\" & Me.SER & "." & Right$(varFile, Len(varFile) - InStrRev(varFile, ".")) FileCopy varFile, Me.IMG تحياتي

بالتوفيق اخي الكريم وبارك الله فيك تحياتي

تفضل اخي الكريم With Application.FileDialog(3) .Title = "Choose File" .Filters.Clear .Filters.Add "Pic Files", "*.jpg ; *.bmp" .AllowMultiSelect = False .InitialFileName = "" If .Show = -1 Then IMG = .SelectedItems(1) Dim varFile As Variant For Each varFile In .SelectedItems Me.IMG = Application.CurrentProject.Path & "\" & "image" & "\" & Me.SER & "." & Right$(varFile, Len(varFile) - InStrRev(varFile, ".")) FileCopy varFile, Me.IMG Next End If End With test.rar تحياتي

وعليكم السلام ورحمة الله وبركاته ضع هذا المعيار في جقل التاريخ مع تغيير ما يلزم between [forms]![frm1]![Xdate] and [forms]![frm1]![Xdate] تحياتي

السبب واضح اخي الكريم ظهور الم5دن مباشرتا عنداختيار الدوله.rar تحياتي

تفضل اخي الكريم ضع هذا الكود قبل كود الاستيراد مع تغيير اسم الجدول CurrentDb.Execute ("Delete * From tbl1") تحياتي

اعتقد المشكلة بسبب اختلاف نسخ الويندوز تحياتي مقارنة هامة بين كابلات Cat5, Cat5e, Cat6, Cat6a http://www.networkset.net/2014/09/20/cat5-vs-cat5e-vs-cat6-vs-cat6a/

بسبب ان مصدر ال2 كمبوبو بوكس واحد = Account نفس السبب الاول وضح بارك الله فيك هل تريد اظهار الرقم بدلا من الاسم ؟ تحياتي

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

تفضل اخي الكريم هذا مثال لما طلبت نموذج frmIndex هو المسئول عن عملية التحويل db1.rar تحياتي

السلام عليكم سنفرض ان لديك حقل في نموذج الواجهة عبارة عن checkbox اذا وضعت علامة صح يقوم بالتحويل الى نموذج Update واذا لم توضع علامة صحيقوم بالتحويل الى نموذج Home وهذا الكود if checkbox = true then DoCmd.OpenForm "frmUpdate" else DoCmd.OpenForm "frmHome" endif تحياتي

بالتوفيق اخي الكريم تحياتي

وعليكم السلام ورحمة الله وبركاته يمكن عن طريق دالة Dsum او SumIf تحياتي

السلام عليكم تفضل هذا الموضوع سيفيدك جدتا ان شاء الله تحياتي

تفضل ظهور المدن مباشرتا عنداختيار الدوله.rar

تفضل اخي الكريم انظر الى حقل المادة في النموذج اضفت لك الشعبة 5 FF.rar ولكن حقيقة لا افهم لماذا المسافات الزائدة D: " " & [sub] & " " تحياتي