tiger wanted قام بنشر مارس 30 مشاركة قام بنشر مارس 30 بسم الله الرحمن الرحيم حاولت استعمال دالة isnull(dlookup ("tab","text")) مع كود if واظهار msgbox ولم يفلح الامر هل هناك خطأ ارجو مساعدتنا فى كتابة الكود بشكل صحيح ولكم جزيل الشكر رابط هذا التعليق شارك More sharing options...
kkhalifa1960 قام بنشر مارس 30 مشاركة قام بنشر مارس 30 (معدل) تفضل استاذ @tiger wanted الكود والشرح . Private Sub Command0_Click() If IsNull(DLookup("Salary", "Table1")) Then MsgBox "أدخل المبيعات" End If End Sub تم تعديل مارس 30 بواسطه kkhalifa1960 1 رابط هذا التعليق شارك More sharing options...
tiger wanted قام بنشر مارس 30 الكاتب مشاركة قام بنشر مارس 30 حاولت استعمال الكود فى حدث in current مرفق الصورة رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر مارس 30 مشاركة قام بنشر مارس 30 14 دقائق مضت, tiger wanted said: حاولت استعمال الكود فى حدث in current مرفق الصورة جرب الحدث عند التحميل أخي الكريم ، وليس عند الفتح أو الحالي رابط هذا التعليق شارك More sharing options...
tiger wanted قام بنشر مارس 30 الكاتب مشاركة قام بنشر مارس 30 هل هناك مايمنع عند الحالى مجرد استفهام رابط هذا التعليق شارك More sharing options...
kkhalifa1960 قام بنشر مارس 30 مشاركة قام بنشر مارس 30 (معدل) يا أخي الفاضل مجرد ملاحظة على كودك then (("اسم الجدول","اسم الحقل")Dlookup)if isnull .أنت عاكسهم !! ,وبين (isnull) و (والقوس) لايوجد مسافة . تم تعديل مارس 30 بواسطه kkhalifa1960 رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر مارس 30 مشاركة قام بنشر مارس 30 (معدل) 47 دقائق مضت, tiger wanted said: هل هناك مايمنع عند الحالى هل جربت الحل أولاً ؟؟ استخدام الدالة Dlookup يحتاج تأثير أو عنصر يستدعيها مثل زر أو أثناء تحميل النموذج . بينما في الحالي ليس هناك حدث . أتمنى أكون قدرت أوصل فكرتي بشكل واضح حتى لا تذهب الأفكار بعيداً ، ما قصدته أن حدث ( في الحالي ) يتم تنفيذه عندما يتم تغيير السجل الحالي أو عند تحديد سجل جديد ، بينما يتم تنفيذ حدث ( عند التحميل ) عند بدء تحميل النموذج أو الاستعلام تم تعديل مارس 30 بواسطه Foksh توضيح رابط هذا التعليق شارك More sharing options...
kkhalifa1960 قام بنشر مارس 30 مشاركة قام بنشر مارس 30 تفضل أخي حلك هنا واليك الشرح والمرفق بطريقتان بزر أمر أو كما طلبت . Private Sub Form_Current() If Len(Me.Text1 & "") = 0 Then MsgBox "أدخل المبيعات", vbCritical Else MsgBox "OK", vbInformation End If End Sub DDTest112-2.rar رابط هذا التعليق شارك More sharing options...
tiger wanted قام بنشر مارس 30 الكاتب مشاركة قام بنشر مارس 30 بارك الله فيكم تم حل المشكلة رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.