mrnooo2000

بعد اذنك اخ سلمان تفضل اخى السائل هذا الكود يعطيك المطلوب بصورة أفضل cmbsearch.rar

بعد اذن اخى محمد اليك اخى ماتريد ( كما ذكرت من قبل ) ادخل اسم الصورة ( اى اسم تريده ليتم تسميتها به ) و بدون امتداد اختر الصورة و الكود سيقوم بنسخ الصورة الى مجلد البرنامج و تستطيع نقل البرنامج الى اى مكان pic.rar

ضع مرفق به النموذج الذى يتم التعديل به (تعديل الاجازة )

يمكنك اخى الكريم عمل جدول جديد من اربع اعمدة و تضع به بيانات الاستعلامين و تعرضه بعد ذلك

بالاضافة الى ما ذكر اخى محمد اليك اخى هذه الدالة و هى لا تحتاج الى مراجع Function FileExists(ByVal strFile As String, Optional bFindFolders As Boolean) As Boolean 'Purpose: Return True if the file exists, even if it is hidden. 'Arguments: strFile: File name to…

اقصد الكود الذى يحدث عنده الخطأ

فى حدث بعد التعديل لزر الخيار استدعى الدالة مرة ثانبة Call mansour_1

تفضل اخى الكريم اليك هذه الدالة Round.rar

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

اخى ضع هذا الكود قبل كود التنقل لسجل اخر if me.dirty then me.dirty=false

تفضل اخى اولا الكود يعمل و لا يوجد به مشكلة ثانيا تم ضبط مشكلة التاريخ sa22.rar

ضع المثال الذى حدث به الخطـأ

الاخ السائل انت تريد اضافة زر الخيار الى الكود استبدل هذا السطر If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Then بهذا السطر If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Or ctl.ControlType = acCheckBox Then لاحظ تم اضافة نوع…

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

اخى استخدم خاصية البحث بعد اذن استاذنا محمد فؤاد فهناك موضوعات كثيرة عن الصور و طرق ادراجها عموما الحل بسيط 1- ضع الصور فى مجلد البرنامج 2- احفظ الصور بالجدول باسمها فقط و ليس بامتدادها 3- فى حدث الحالى للنموذج ضع هذا الكود me.img.picture=currentproject.path &…

لاضافة قيم اخرى استخدم الكود بعد ان تم تعديله If MsgBox("åá ÊÑíÏ ÈÇáÊÃßíÏ ÍÝÙ ÇáÈíÇäÇÊ ¿", vbInformation + vbYesNo, "ÍÝÙ") = vbYes Then CurrentDb.Execute "UPDATE a2 SET a2.Paid = " & Me.a2 & ", a2.chn = " & Me.a3 & ", a2.bank = " & Me.a4 & ", a2.dpaid = " & Me…

تفضل اخى ضع هذا الكود فى حدث عند الضغط للزر (حفظ ) CurrentDb.Execute "UPDATE a2 SET a2.Paid = " & Me.am & " WHERE (((a2.Ns)=" & DLookup("ns", "a2", "paid=" & 0 & " and n=" & Me.n) & "));" Me.a2_äãæÐÌ_ÝÑÚí.Requery

وضح ما تريد

تفضل اخى و بالطريقتين لكن عدل نوع موضوعك الى سؤال ‫ارقام التسلسل المفقودة -للتعديل.rar

الاخ السائل تفضل اخى الحل الامثل للتحقق من البريد الالكترونى اتمنى ان يلبى طلبك ان شاء الله MRNO2000_VALIDATEMAIL.rar