AlwaZeeR

استبدل الكود في البطاقات Function setImagePath() If IsNull(Me.PicFile) Or Me.PicFile = "" Then Me.imgPicture.Picture = "" imgPicture.Visible = False Else If Len(Dir(PicFile)) > 1 Then Me.imgPicture.Picture = Me.PicFile imgPicture.Visible = True Else Me.imgPicture.Picture = "" End If End If End Function

تفضل عزيزي testwaz2.rar

تفضل Book_Waz.rar

اخي العزيز ابو سعد انا فقط عدلت على التقرير (RptImage) كالتالي وضعت الوحدة التالية في التقرير Function setImagePath() If IsNull(Me.PicFile) Or Me.PicFile = "" Then Me.imgPicture.Picture = "" Else If Len(Dir(PicFile)) > 1 Then Me.imgPicture.Picture = Me.PicFile Else Me.imgPicture.Picture = "" End If End If End Function ثم في حدث التفصيل لنفس التقرير استدعيتها setImagePath طبق ووافني بالنتيجة :: تحياتي

السلام عليكم ورحمة الله وبركاته كيف حالك اخي ابو خليل عساك بخير وبصحة جيدة اسمح لي بالمداخلة واليك هذا التعديل :: تحياتي testwaz.rar

اسف صديقي الوينرار لدي 5.40 جرب نزل الوينرار من جديد وسوف تحل هذه الاشكالية :: تحياتي

رائع صديقي صالح برنامج مفيد جدا استمر في تطويريه جعله الله في ميزان حسناتك :: تحياتي

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

السلام عليكم ورحمة الله وبركاته تفضل اخي الكريم جرب المرفق تحياتي لكم جميعا For_Pic_1Update.rar

ضع الوحدة التالية في النموذج الموجود فيه أمر اختيار الصورة Function setImagePath() dim Imgdr as String Imgdr = "E:\Qar2018\sd.JPG" If IsNull(Imgdr) Or Imgdr = "" Then imgPicture.Picture = "" Else If Len(Dir(Imgdr)) > 1 Then imgPicture.Picture = Imgdr Else imgPicture.Picture = "" End If End If End Function ثم ضع الاستدعاء تحت حدث زر الأمر setImagePath تستطيع إضافة رسالة ادراج صورة وووو في نفس الفنكشن لم اجرب الكود لضيق الوقت تحياتي

السلام عليكم ورحمة الله وبركاته لا تستغرب اخي الكريم ولا تستهن بالاكسس لا يمكن الاستغناء عن قواعد البيانات مهما كثرت لغات البرمجة :: تحياتي

ان لم تفتح معك قم باعادة تنصيب برنامج الوينرار لديك colorFz.rar

تلوين السجل بالفاتوره.rar

استخدم الكود التالي تحت زر امر وغير اسم الجدول واسم الحقل كما هو في قاعدتك Dim strSQL As String strSQL = "UPDATE TblName " & _ "SET [YrField] = #" & Date & "#" DoCmd.SetWarnings False DoCmd.SetWarnings True

السلام عليكم ورحمة الله وبركاته كيف حالكم جميعاااا عساكم بخير استخدم دالة switch مع مراعاة عدم تسمية الحقل الاساسي بنفس اسمه في الجدول هكذا: =Switch(Nz([Ehdaa],0)=صواب,0,Nz([Ehdaa],0)=False,[upric]) تحياتي ::

السلام عليكم ورحمة الله وبركاته بعد اذنك استاذنا ابو خليل اخي الكريم طارق: قم بادراج مربع وسمه ما شئت ثم اجعل ترتيبه ارسال للخلفية في حدث عند التنسيق في التقرير او الطباعة كما تحب ضع الكود التالي: If morte = -1 Then Mr.BackColor = 255 Else Mr.BackColor = 16777215 End If مع مراعاة ان Mr هو اسم المربع الذي تم وضعه في الخلفية :: تحياتي waz-beirut ifradi akeli.rar

يعتمد على مكان وضع الكود يجب وضعه قبل امر فتح Navigation waz3-Navigation.rar

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

استخدم Forms![ManagementLogin].Visible = False بدل امر الاغلاق :: تحياتي

وعليكم السلام ورحمة الله وبركاته نفس الامر اخي بو عبد الله ولكن يوضع بعد اغلاق نموذج login مع مراعاة تغيير اسم الزر لخيار التركيز تفضل اخي الكريم بو عبدالله waz2-Navigation.rar

ملف مرفق فيه استخدامين بطريقة وحدة نمطية او بدون ان لم تستطع التطبيق ارفق مثالك :: تحياتي waz-Sample.rar

السلام عليكم ورحمة الله وبركاته أخي أحمد: عندي اقتراح استخدمه في برامجي وهو تحويل علامة 50 الى رقم 1 واقل من ذلك 0 w1=IIf([A1]<50,1,0) طبق السابق على جميع الحقول a1 a2 a3 a4 الى اخره بعد ذلك نقوم بجمع الحقول التي قمنا بتطبيق الكود عليها w1+w2+w3+w4 مع استخدام Nz طبعا وليكن اسم حقل الجمع مثلا: AllMrks الآن نقوم بوضع شرط النجاح او الرسوب IIf([AllMrks]=4,"راسب","ناجح") جرب ووافني بملاحظاتك\ :: تحياتي

وعليكم السلام ورحمة الله وبركاته ضع هذا الكود في الاستعلام الخاص بك مع تغيير YourField xx : Left((Replace([YourField],".","")),Len(Replace([YourField],".",""))-1)

في حدث عند الفتح ضع هذا الكود Forms![navigation]!navbtnAdmin.SetFocus SendKeys "{Enter}" :: تحياتي

السلام عليكم ورحمة الله وبركاته تفضل اخي بوعبد الله :: تحياتي waz-Navigation.rar