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

امر الرجوع الى الكومبوكس السابق


إذهب إلى أفضل إجابة Solved by jjafferr,

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

17 دقائق مضت, jjafferr said:

لوسمحت تعطي توضيح اكثر 🙂

نعم كان من المفترض ان اوضح

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

If IsNull([Namee]) Then
MsgBox "لاتترك الحقل فارغاً **هذا الحقل اجباري ** ادخل الاسم الرباعي", vbCritical + vbMsgBoxRight, "تحذير ..!!"
DoCmd.CancelEvent
End If

شكرأ

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

  • أفضل إجابة

اللي فهمته :

 

عندك الحقل A , وخرجت منه الى الكومبوبوكس ، وبعدين تريد ترجع مرة ثانية من الكومبوبوكس الى الحقل A :

هذا الكود يكون في احد احداث الكومبوبوكس :

    Dim ctrl As Control
    
    Set ctrl = Screen.PreviousControl

    DoCmd.GoToControl ctrl.Name
    

 

واذا تريده بدلا من DoCmd.CancelEvent

If IsNull([Namee]) Then
MsgBox "لاتترك الحقل فارغاً **هذا الحقل اجباري ** ادخل الاسم الرباعي", vbCritical + vbMsgBoxRight, "تحذير ..!!"
'DoCmd.CancelEvent
    Dim ctrl As Control
    Set ctrl = Screen.PreviousControl
    DoCmd.GoToControl ctrl.Name
End If

 

جعفر

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

9 دقائق مضت, jjafferr said:

اللي فهمته :

 

عندك الحقل A , وخرجت منه الى الكومبوبوكس ، وبعدين تريد ترجع مرة ثانية من الكومبوبوكس الى الحقل A :

هذا الكود يكون في احد احداث الكومبوبوكس :

نعم فعلاً هذا المطلوب لقد جربت الكودين ويعملان بسلاسة 

شكرأ جزيلاً اخي الكريم

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

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