كيف تجعل صفحة الأكسس خالية

الأخ ابوعبدالله

1- إن كنت تقصد إخفاء كل العناصر على النموذج فاستخدم :

Dim ctl As Control
For Each ctl In Me.Controls
ctl.visible=false
Next ctl

2- لم توضح سؤالك جيداً فلم تذكر كيفية الانتقال لديك هل هي بضغط زر أمر أم بضغط Enter وهل يوجد عناصر أخرى غير مربعات النص على النموذج ؟

عموما إذا كانت المسألة بزر الأمر فاستخدم الكود التالي :

DoCmd.GoToRecord , , acNext
If Me.NewRecord = True Then
DoCmd.GoToRecord , , acFirst
End If

3- في خاصية إدخال بيانات في صفحة الخصائص بيانات اختر نعم .

وبالكود في حدث عند الفتح :

Me.DataEntry = True

وهناك طرق ذكرت منذ فترة قريبة ولكن يبدو أنك لم تطلع عليها .

ولك تحياتي

أخي أبو حمود جزاك الله كل خير

استخدم في التنقل مفتاح enter

زلك جزيل شكري

لم توضح هل يوجد عناصر أخرى على النموذج كأزرار أمر وغيرها ، لأنه عند نقر Enter سيتم الانتقال بينها فإما أن تلغي علامة الجدولة لها بحيث لايتم نقل التركيز إليها عند ضغط Enter ، أما إذا كانت هذه ليست مشكلة لديك فدعها على حالها .

ضع في حدث عند مفتاح للأعلى للنموذج الكود التالي :

If KeyCode = 13 Then
If Me.NewRecord = True Then
DoCmd.GoToRecord , , acFirst
Else
DoCmd.GoToRecord , , acNext
End If
End If

واجعل مفتاح العرض التمهيدي (في خصائص النموذج صفحة التبويب حدث) الى نعم .

طريقة أخرى للتنقل بين السجلات فقط :

ثم قائمة أدوات => خيارات => لوحة المفاتيح => انتقال بعد الادخال اختر السجل التالي .

ولك تحياتي