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

[محمد التميمي]

السلام عليكم

اخواني ممكن كود بأمر الرجوع الى الكومبوكس السابق 

لايوجد في البحث وجربت كتابات كثير لم تفلح

[jjafferr]

35 دقائق مضت, محمد التميمي said:

اخواني ممكن كود بأمر الرجوع الى الكومبوكس السابق 

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

[محمد التميمي]

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

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

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

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

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

شكرأ

[jjafferr]

اللي فهمته :

 

عندك الحقل 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

 

جعفر

[محمد التميمي]

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

اللي فهمته :

 

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

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

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

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

[jjafferr]

وبسطر واحد :

DoCmd.GoToControl Screen.PreviousControl.Name

 

جعفر

[محمد التميمي]

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

وبسطر واحد :

 

 

شكرأ شكرأ استاذي الكريم