اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الكومبوبوكس


jamal2080

الردود الموصى بها

في حدث بعد التحديث استخدم الكود التالي..

If DCount("*", "Table1", "[datea]=" & "#" & Me.cbo1 & "#") = 0 Then
    MsgBox "التاريخ غير موجود!"
End If

 

تم تعديل بواسطه Eng.Qassim
  • Like 2
  • Thanks 1
رابط هذا التعليق
شارك

4 ساعات مضت, jamal2080 said:

اخى لا اريد الرسالة الفترضي الاكسيس تظهر اريد اظهر رسالة تنبية خاص بى الكومبوبوكس  خاص بالموردين وليس تاريخ 

ياأخي كود المهندس قسم يعمل جيداً حسب معطياتك .  انت من ادرجت حقل التاريخ ولم تدرج أي شيء عن الموردين راجع مرفقك وأرسل المرفق الصح .

 

  • Like 1
  • Haha 1
رابط هذا التعليق
شارك

في 26‏/2‏/2023 at 16:28, jamal2080 said:

خى لا اريد الرسالة الفترضي الاكسيس تظهر اريد اظهر رسالة تنبية خاص بى الكومبوبوكس  خاص بالموردين وليس تاريخ 

استعمل الكود الاخير للاستاذ @Eng.Qassim  ثم اجعل الالتزام بالقائمة لا لن تظهر لك الرسالة  واضف الكود التالي في نهاية الكود 

Me.Combo0 = Null

تحياتي

تم تعديل بواسطه ازهر عبد العزيز
رابط هذا التعليق
شارك

اختر الحقل القائمة المنسدلة ( الكومبوبوكس ) ومن خصائص اختر حدث ومنه عند عدم الوجود في القائمة

01.png.ee8da6677bdfaf8c5d20698e884850bc.png

ضع الكود التالي:

On Error GoTo myError:
    Response = acDataErrContinue
    Me.km2.Undo
    MsgBox " أدخال خاطىء - أختر من القائمة  ", vbInformation, "تنبيـــــة !"
Exit Sub
myError:
    MsgBox "Error " & Err.Number & ": " & Error$

مع تغيير اسم حقل القائمة km2 في الكود  Me.km2.Undo الى اسم الحقل لديك

 

ثم من قائمة البيانات قم بالتعليم على نعم على التزام بالقائمة كما بالصورة

02.png.3f3af96ede4ec6edd36503b69068a99a.png

تم تعديل بواسطه qathi
رابط هذا التعليق
شارك

السلام عليكم 

بالاضافة لما تقدم به جميع الاساتذة اليك الحل التالي على حسب فهمي لطلبك.

يرجى موافاتنا بالنتيجة.

Private Sub Supplier_NotInList(NewData As String, Response As Integer)

    Dim Db As DAO.Database
    Dim Rs As DAO.Recordset
    Dim Msg As String

    Msg = " " & NewData & "  المورد  " & Supplier & vbCr & vbCr & " غير موجود في القائمة " & vbCr & vbCr
    Msg = Msg & "هل تود إضافة هذا المورد ؟"
    If MsgBox(Msg, vbQuestion + vbYesNo) = vbNo Then
        Response = acDataErrContinue
        MsgBox "تم إلغاء عملية الإضافة", vbInformation, "تنبية"
        Supplier = ""
        Exit Sub
    End If

    On Error GoTo CancelAddNew
    Set Db = CurrentDb
    Set Rs = Db.OpenRecordset("Table1", dbOpenDynaset)

    Rs.AddNew
    Rs![Supplier] = NewData
    Rs.Update
    Response = acDataErrAdded

    Rs.Close
    Set Rs = Nothing
    Set Db = Nothing
    Exit Sub

CancelAddNew:
    
    Response = acDataErrContinue
    Set Rs = Nothing
    Set Db = Nothing
    Exit Sub
    

End Sub

الملف بعد التعديل 

تحياتي

رسائل تنبية.accdb

  • Like 1
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information