ابو ياسين المشولي

الى الامام بارك الله فيك وزادك من علمه

NZ تجمع الحقول لو وجد قيها فاضي وايرور هي تابع الى اي اف شرطيه اعذرني ضعيف بالشرح بمعنى انهم دوال شرطيه وهذه غير شرطيه هذ فقط تسمح بالجمع ولو كان الحقل من الحقول فارغ

للافاده استاذي jjafferr كيف باتكون اذا هي في الاستعلام

انت عامل شرطين الشرط الاول الاستعلام المركب والثاني "N3" وهو قام بشرط "N3" هذا والله اعلم

بالتوفيق

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

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

جرب DoCmd.SetWarnings False Dim x1 (x1 = Nz(DLookup("barcode", "tabl1", "[barcode] = " & Me.aa), 0) If x1 = 0 Then "MsgBox "This code is not registered", vbMsgBoxRight + vbCritical, "notes" DoCmd.RunCommand acCmdSelectRecord DoCmd.RunCommand acCmdDeleteRecord else MsgBox " This is a registered code", vbMsgBoxRight + vbCritical, "notes" Exit Sub End If

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

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

بدايه الغيث قطرة بعد العصر ان شاء الله بنشوف له حل

جرب هذا مثال (1).rar

لا اريد احدد النموذج

فاهمك اخي انه بيتم منادته عند فتح النموذج ولكن انا لا اريد تحديد النموذج بالقاعده اريده عبر كود مثل الماكرو مثلا

وما هو البديل عن AUTOEXEC اقصد في بدايه النشغيل

عشان معمول في مسار واحد

اتفضل اخي هذا حسب طلبك BackUp.accdb

هل تريد المسارات ومكان الحفظ عند فتح النموذج

الف الف الف شكر اخي واستاذي ومعلمي الاستاذ jjafferr نعم هذا مرة ممتاز بارك الله فيك وجعلها في ميزان حسناتك

تسلم حبيبي jjafferr بشوفها وبعطيك خبر

من المفترض بيكون الكميه المشتراه ناقص الكميه المباعه

اتفضل اتمنى يكون المطلوب BackUp.accdb

شوف هذا Dim db As DAO.Database Dim rs As Recordset Set db = CurrentDb Set rs = db.OpenRecordset("t2") If DCount("*", "t2", "[nume]='" & Me.nume & "'" & "AND [xdate]=#" & Format(Me.xdate, "yyyy/mm/dd") & "#") > 0 Then MsgBox " الاسم مكرر ", vbExclamation, " : خطــــــــأ " Exit Sub Else rs.AddNew rs!sr = Me.sr rs!xdate = Me.xdate rs!nume = Me.nume rs!xpart = Me.part rs.Update rs.Close db.Close MsgBox " تم الترحيل بنجاح ", vbInformation, " : رسالة " End If عدم التكرار (1).accdb

بارك الله فيك اذا سنحت الفرصه بالتجربه بنوافيك بالنتيجه