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

انت هنا تقول لا تريده يعمل شي If IsNull(Me.QSold) Then undo ElseIf [QSold] <= [QAvilable] Then MsgBox " الكمية المتاحة لا تكفي" Me.Refresh End If استاذي ابو خليل كان سواله هكذ تصحيح الكود انة في حالة الحقل فارغ لا يفعل شئ ولكن اذا كان فية بيانات يجب ان تتوفر الشروط فيها وهي ان تكون الكمية المباعة اقل من او تساوي الكمية المتوفرة ثم تحديث

اخي على السوال تكون الاجابه جرب هذا لا يتسنا لي فتح المثال لاني بالمبايل If IsNull(Me.QSold) or [QSold] <= [QAvilable] Then MsgBox " الكمية المتاحة لا تكفي" Me.Refresh end if

If IsNull(Me.QSold) Then Me.Refresh ElseIf [QSold] <= [QAvilable] Then MsgBox " الكمية المتاحة لا تكفي" Me.Refresh End If مشاركة مع استاذنا ابو خليل

اتفضل هذا كود للاستاذ صالح حمادي قمت بتعديله كي يتناسب معك On Error Resume Next Dim rst As DAO.Recordset Dim bb As Integer Dim i As Integer, RC As Integer Set rst = CurrentDb.OpenRecordset("SELECT * FROM [sudient]") rst.MoveLast: rst.MoveFirst RC = rst.RecordCount For i = 1 To RC If rst!namestudient = bb Then MsgBox (rst!idstudient & " هناك حقل فارغ للرقم ") Else bb = rst!namestudient End If rst.MoveNext Next i وهو موجود بهذه المشاركة

استخدم في حدث الميه المباعه بعد التحديث Me.Refresh

اخي عبدالله المجرب جرب هذا الكود واعمل في txt وحول صيغته الى vbsبدلtxt واجعله جنب البرنامج واجعل البرنامج يشتغل منه مباشرة dim fso: set fso = CreateObject("Scripting.FileSystemObject") dim CurrentDirectory CurrentDirectory = fso.GetAbsolutePathName(".") dim Directory Directory = CurrentDirectory & "\name.accdb" dim o set o=createobject ("Access.Application") o.automationsecurity=1 ' set macro security LOW. o.opencurrentdatabase Directory o.usercontrol=true o.runcommand 10 set o=nothing غير هذا باسم برنامجك Directory = CurrentDirectory & "\name.accdb"

تسلم اخي أبو إبراهيم الغامدي بارك الله فيك خذ راحتك

نعم استاذي اريد ارسال الرسايل بدون دخول للصفحه

بالتوفيق اخي

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

هل هذا ينفع لا اعلم ما هو البطى ولكن لعل بيكون اسرع في وحده نمطيه وضعت لك الكود UPdate QTY.accdb

بصراحه لم انتبه كل ما انتبهت له انك عملت تشغيل الاستعلام عند الخروج من الحفظ وانا جعلته عند الحفظ

مشاركه مع الاخ ابو زاهر شوف هذا تحديث الكميه.accdb

على الرحب والسعه الكود بيكون بهذا الشكل بالنموذج DoCmd.OpenReport "Sersh_rpt", acViewReport, , "Left(Nz([ItemName],0),50) Like '*' & [Forms]![Sersh_F]![n1] & '*'"

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

العفو اخي بارك الله فيك ان شاء الله يكون كما طلبت

للرفع أبو إبراهيم الغامدي

للرفع

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

اخي الفاضل لازم ارفاق مثال في داله اسمها dsum هي من تقوم بهذا بس لازم مثال

كلام اخي Shivan Rekany سليم ميه في الميه انا جربته مافي اي رساله

شكرا اخي Shivan Rekany نحن تلميذكم منكم نستفيد شكرا لمرورك الكريم تحياتي لك

عند التحميل او عند الفتح الخيار لك ضع هذا الكود Me.صفحه2.Visible = False

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

العفووو اخي