ابو جودي

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

اتفضل 
بسيطة غير للكود الاتى
On Error GoTo Oops Dim db As dao.Database: Set db = CurrentDb() Dim rs As dao.Recordset: Set rs = db.OpenRecordset("file-1") Dim intSpID As Long: intSpID = 0 With rs .MoveFirst Do intSpID = intSpID + 1 rs.Edit rs![الرقم الحسابي] = 11 & intSpID rs.Update .MoveNext Loop Until .EOF .Close End With db.Close function_exit: Set rs = Nothing Set db = Nothing Exit Sub Oops: ' Handle the errors here GoTo function_exit  

على كل حال جرب المرفق ولى عودة ان كان هناك جدوى
 
12.accdb

اتفضل 
 بدون اى جداول فقط حسب الوجدة النمطية 
 
3Dates.accdb

اتفضل 
 بدون اى جداول فقط حسب الوجدة النمطية 
 
3Dates.accdb

اتفضل 
 بدون اى جداول فقط حسب الوجدة النمطية 
 
3Dates.accdb

اتفضل غير الكود بتاعك بالكود ده 
If Nz(DCount("*", "typeDa2wa", "[type]='" & Me![type] & "'"), 0) = 1 Then MsgBox "بيانات مكررة" Exit Sub Else Dim rs As Recordset Set rs = CurrentDb.OpenRecordset("typeDa2wa") rs.AddNew rs![type] = Me.type rs.Update Me.type = "" End If  

اتفضلى يا استاذه 
progressbar.accdb

عنوان الموضوع : كيفية الكتابة على قيم في الاستعلام
وحضرتك طلبت 
وطلبت

 
انا بصراحة صيرت ما افهم شئ وغير قادر على محاولة الفهم حتى 

استبدلها بـ 
dim dBase As DAO.Database  

لابد من اضافة المكتبة
Microsoft ActiveX Data Objects 2.5 Library
ools > References > Check the checkbox in front of "Microsoft ActiveX Data Objects 2.5 Library" Other libraries that work include: Microsoft ActiveX Data Objects 2.6 Library Microsoft ActiveX Data Objects 2.7 Library Microsoft ActiveX Data Objects 2.8 Library Microsoft ActiveX Data Objects 6.1 Library  

الحل كالاتى ادخل الى النموذج فى وضع التصميم
ومربع النص هذا اسمه فى النموذج مربع_تحرير_وسرد95
من الخصائض الخاصة به فقط امسح General Number 
 

https://support.microsoft.com/ar-sa/office/-مواصفات-access-0cf3c66f-9cf2-4e32-9568-98c1025bb47c

تمت كتابة الرسائل بالعربية ولضيق وقتى لم احولها لـ unicode  ولكن لا انصح بكتابة العربى داخل محرر الاكواد
تم تنقيح وتعديل بعد الاخطاء
تم تفعيل الحذف ويتم معه حذف السجلات الفرعية والمرتبطة بالسجل الرئيسي والصورة
تم تعديل ظهور الصورة بالتقرير 
Data Registration (v. 3).mdb

واتفضل
هذا مثال فقط ينقصه اعادة ربط الجداول المرتبطة من قاعدة الخلفية فقط حتى يعمل النسخ الاحتياطى على اكمل وجه
 
 
 
frontend.mdb db.mdb

العفو تحت امر حضرتك... لا شكر على واجب 
انا مش فافهم بصراحة تقصد ايه تحديدا 
ياريت لو توضح اكتر علشان اقدر افهمك 
على حسب فهمى ان كنت لا تريد انشاء زر امر لاضافة سجل جديد وتريد نفس النتيجة بالمرفق 
ممكن فى الحدث الحالى للنموذج تضع الكود فيكون بالشكل الاتى 
 
Private Sub Form_Current() If NewRecord Then maktab = DLookup("[maktab]", "m3lomat") End Sub  

اتفضل 
انا عملت نموذج مستمر مصدر بيانات الجدول tb2  وقمت بوضع زر امر وكود حلقة تكرارية
والكود كالاتى
Dim intCounter As Integer For intCounter = 0 To 1535 Me.id1 = intCounter + 1 Me.xm = "0.0" Me.xn = "0.3" Me.xb = "rem" DoCmd.GoToRecord , , acNext Me.id1 = intCounter + 1 Me.xm = "0.2" Me.xn = "0.4" Me.xb = "in" DoCmd.GoToRecord , , acNext Me.id1 = intCounter + 1 Me.xm = "0.9" Me.xn = "0.0" Me.xb = "out" DoCmd.GoToRecord , , acNext Next MsgBox "Done , successfully", vbOKOnly, "Judy (*_^) "  
New Microsoft Access قاعدة بيانات (4).accdb

شرح دالة DateAdd
 
 تعد دالة DateAdd من دوال الوقت والتاريخ المهمة حيث تستخدم في إضافة مدة معينة على تاريخ معين
تتطلب دالة DateAdd تحديد ثلاثة متغيرات هي :
1- نوع الفترة التي تريد إضافتها وهل هي يوم ِأم شهر أم سنة أم ساعة أو ..... إلخ ( التي تريد إضافتها )
2- العدد أي ما هو عدد الأيام أو الأشهر أو السنوات أو الساعات أو ..... إلخ ( التي تريد إضافتها )
3- التاريخ الذي تريد الإضافة إليه وتستخدم الدالة بالصيغة التالية :
'Syntax : DateAdd(interval, number, date) DateAdd(التاريخ, العدد, نوع الفترة) 'Examples : x = DateAdd("yyyy", 1, Date()) x = DateAdd("m", 5, Date()) x = DateAdd("d", 14, Date())   Interval Description yyyy Year q Quarter m month y Day of the year d Day w Weekday ww Week h hour n Minute s Second

=([gold import])/2)-[gold export]  

=([gold import])/2)-[gold export]  

=([gold import])/2)-[gold export]  

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

اتفضل جرب 
 
 
 
 
New Microsoft Access Database (1).zip

اتفضل
Correct_data_without_duplication(5)

ممكن تستعمل الكود الاتى 
Private Sub Form_Current() If sousf = "laptop" Then CodeInv = "lap" End Sub او
Private Sub sousf_AfterUpdate() If sousf = "laptop" Then CodeInv = "lap" End Sub