العودة إلى نفس الحقل بعد تحديثه

وعليكم السلام :)

ما تستطيع ان ترجع له مباشرة ، لازم تروح لحقل آخر ثم ترجع له :

Private Sub Text1_AfterUpdate()

    'DoCmd.GoToControl ("Text1")
    If Len(Me.Text1 & "") <> 0 Then
        Me.Text2.SetFocus
        Me.Text1.SetFocus
    End If
    
End Sub

جعفر

أخى العزيز جعفر أشكرك على سرعة تفاعلك معى أنا أيضاً فكرت فى هذا ولكن أنا مستغرب لايوجد أى حل أخر 

حياك الله :)

ramynassif كتب:

ولكن أنا مستغرب لايوجد أى حل أخر 

الرابط التالي يعطينا تسلسل الحدث بالنسبة للنموذج ، والكائنات في النموذج ، والسجلات في هذه الكائنات:

http://office.microsoft.com/en-za/access-help/order-of-events-for-database-objects-HP005186761.aspx

لو انك فكرت في الموضوع ، لوجدت ان ما يفعله اكسس صحيح:

1. الحدث الذي تم استعماله (او اي حدث آخر) يحصل عندما يتم تغيير القيمة ، ولكننا لم نغادر الحقل ،

2. والطريقة الوحيدة التي يمكننا ان نعود للحقل الذي كنا ، هو عندما نفارق هذا الحقل ونذهب الى حقل آخر (الى الحقل التالي مثلا) ،

لذا ، يمكننا استخدام هذا الكود:

Private Sub Text2_Enter()
    
    If Len(Me.Text1 & "") <> 0 Then
        Me.Text1.SetFocus
    End If

End Sub

فبمجرد ان ندخل الحقل التالي (اي نكون قد خرجنا من الحقل الاول) ، فالكود يستطيع ان يرجع الى الحقل الاول (واذا لاحظت ، ستجد باننا استعمالنا طريقة الكود في مشاركتي الاولى) ، حيث:

1. ذهبنا الى حقل آخر (عن طريق زر Tab او Enter (اي ليس بالكود)،

2. ثم رجعنا الى حقلنا السابق بالكود  :)

جعفر

وطريقة اخرى :)

اذا كانت توجد قيمة في الحقل Text1 ، فلا تخرج من الحقل اصلا:

Private Sub Text1_Exit(Cancel As Integer)

    If Len(Me.Text1 & "") <> 0 Then
        Cancel = True
    End If
    
End Sub

جعفر

طيب أستاذ جعفر أحنا كده ممكن قربنا نوصل لحل 

هل فى إمكانية بعد استخدام الكود الأخير عند الضغط على زر Tab ينتقل إلى الحقل التالى

أما مع زر Enter لا يستجيب 

ممكن انك تصطاد زر Enter بمعلومات من هذا الرابط :

/index.php/topic/293234-عند-الضغط-على-زر-enter-يتم-حفظ-البيانات-في-الاكسس/?p=1397918

واعمل فيه ما تشاء :)

جعفر