kkhalifa1960

استاذ @أبو أحمد بالنسبة للطلب الأول الأثنين صح لكن الأفضل . If Len(Me.Text & "") = 0 Then MsgBox "The field is empty, please fill it", vbCritical Undo Me.Text.SetFocuse End If أما الطلب الثاني تحديث يعني الحقل مملوء وانت بتغير مابه أو تغير مابه بواسطة كود المهم حدث تعيير به >>> افعل كذا . تغيير الحقل خالي أو مملوء المطوب كذا (مع شرط) واذا لم يتم الشرط لا ينفذ الامر ويرجع ......... .

بعد ماتم عمله من الاستاذ @Foksh عند اختيار الصورة من الليست بوكس وظهورها بالفورم 1- حفظ مسار واسم الصورة بجدول . 2- حفظ الصورة بفولدر بجوار القاعدة . . وإليكم شرح المطلوب و المرفق . GetImageTest1.rar

تمام استاذ @Foksh ولكن لي طلب أخر بنفس الموضوع سأفتح به مشاركة جديدة .

عندي نموذج به (WebBrowser) ومنه بفتح صفحة بها صور وملفات وغيره ... هل يوجد امكانية إذا حددت صورة منه وبالنقر عليها ينقل مسارها الى (Textbox). وإليكم المرفق . GetImageTest.rar

مداعبة ............... هتاخد الملف وش وحرف بعد ماتربطه بالفتيل !!!!!!!!!!!!!1 . تحياتي .

أنا انتظرت لهذه اللحظة ومابرد لأني أعطيتك الحل الصحيح لطلبك (كامل طلباتك وبالضبط 4 شروط) ولكنك رفضته . الله يكون بالعون أستاذ .

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

ليست فكرة جانبية بل فكرة عبقرية ................ حسب معلوماتي وبحثي في جميع المواقع العربية والاجنبية المفتوحة .. الكل رامي المشكلة على الطابعة . أما فكرتك العبقرية حلت هذه المشكلة . وأرشحها أفضل حل وبعد اذنك أستاذ @Foksh سأستخدم فكرتك العبقرية في أعمالي . وتحيتاً شكراً لك .وطالما (الخرنفعية) نفعت زودها وانطلق .

استاذ @Elsayed A Eldiasty اقرأ هذه المشاركة .

تفضل استاذ @ابو محمد 4 أخر محاولاتي ووافني بالرد . النجارة-2.rar

تفضل استاذ @ابو نزار محاولتي حسب ما فهمت . النتائج كما تريد بالاستعلام والتقارير. ووافني بالرد . test (22).rar

استاذ @ali almalki من نموذج لنموذج أما سويته بمشاركتي السابقة أما إذا تقصد من حقل لحقل . تفضل المرفق . لا تنسى الضغ على أفضل اجابة اذا كانت هذه طلباتك . Database5-2.rar

استاذ @ali almalki أنت مسويها صح............... أم أنت عاوزها بالكود حتى لو أغلقت فورم N1 وتفتح N2 يظهر الناتج ؟؟؟؟؟. عموماً أنا سويتها مرة بالكود ومرة بالاسنعلام . اختار الاسم واغلق فورم N1 وافتح فورم N2 وطالع الناتج . Database5-1.rar

تفضل استاذ @ابو محمد 4 محاولتي ووافني بالرد . النجارة-1.rar

تفضل استاذ @Abdelaziz Osman المرفق بعد التعديل حسب مافهمت . ووافني بالرد . Datab (officena)-1.rar

أستاذ @سامر محمود حسب مافهمت تفضل المرفق بعد التعديل . ووافني بالرد . Unif-1.rar

تفضل استاذ @alhourriah ادراج الشعار بملف بجوار قاعدة البيانات حفظ مساره بالجدول واستدعاؤه بكل من النماذج والتقرير راجع المرفق بعد التعديل . ووافني بالرد . واجهة1-1.rar

تفضل استاذ @eng aoff محاولتي لفتح وغلق لوحة المفاتيح . DDOpen&CloseKB.rar

أستاذ @ahmedabuzena أي استعلام اذكر اسمه لو سمحت لأن كل الشغل على (نوع المصروفات) ؟؟؟.

افضل استاذ @saffar اليه من تحديث للمرفق . اليك الشرح والمرفق . ووافني بالرد tah-4.rar

يا أخي الفاضل هذا ماسويته بالمرفق الأخير أضف الجديد ثم انتر بيطالبك بالحفظ نعم ثم نعم ثم افتح الكومبوبكس بتحصل الجديد به !!!!!!!!!!!!!!!!!!!!!!!!!!!!!! .

الطلب بعد التعديل راجعة ثم وافني بالرد . tah-3.rar

تفضل أخي التعديل @alhourriah التعديل . If Len(Me.comp_user & "") = 0 Then Beep MsgBox "Put User Name", vbCritical Undo Me.comp_user.SetFocus Exit Sub End If

بعد اذنكم اضيف مشاركة . واذا لاتريد فتح التقرير في اضافة بسيطة عند تصير التقرير . ' , , , acHidden Badge_Output = Application.CurrentProject.Path & "\Badges.PDF" stDocName = size DoCmd.OpenReport stDocName, acViewPreview, , , acHidden DoCmd.OutputTo acOutputReport, stDocName, acFormatPDF, Badge_Output, True, , , acExportQualityPrint DoCmd.Close acReport, stDocName

تفضل أخي @blue sea المرفق بعد التعديل حسب طلبك . 123-2.rar