لا يقوم زر التالي او السابق بالعمل (عنوان معدل)

[prosseseur]

السلام عليكم ورحمة الله وبركاته 

اشكركم جزيل الشكر على ما تقدموه من معرفة في مجال البرمجة 

لدي مشكلة في قاعدة بيانات اكسس لا يقوم زر التالي او السابق بالعمل و حتي لو قمنا بتعبئة الجدول لا تظهر 

و تظهر الرسالة التالية .atteindre enregistrement specifie

شكرا لكم 

 

المرفق قاعد البيانات.

apc1.rar

[jjafferr]

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

 

في اي نموذج؟

 

 

جعفر

[كرار صبري _ أبو جنى]

41 دقائق مضت, prosseseur said:

السلام عليكم ورحمة الله وبركاته 

و عليكم السلام و رحمة الله و بركاته ... 

هذا الكود هو السبب ( في الحالي ) للنموذج الشهادة 

Private Sub Form_Current()
DoCmd.MoveSize 500, 500, 1000, 500
Me.InsideHeight = 0
Me.InsideWidth = 0
End Sub

 

[jjafferr]

2 دقائق مضت, كرار صبري _ أبو جنى said:

و عليكم السلام و رحمة الله و بركاته ... 

هذا الكود هو السبب ( في الحالي ) للنموذج الشهادة 

Private Sub Form_Current()
DoCmd.MoveSize 500, 500, 1000, 500
Me.InsideHeight = 0
Me.InsideWidth = 0
End Sub

 

 

أخي كرار ، في اي نموذج؟

[كرار صبري _ أبو جنى]

6 دقائق مضت, كرار صبري _ أبو جنى said:

هذا الكود هو السبب ( في الحالي ) للنموذج الشهادة 

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

أخي كرار ، في اي نموذج؟

 

[jjafferr]

الظاهر صار وقت نومي 

17 دقائق مضت, كرار صبري _ أبو جنى said:

و عليكم السلام و رحمة الله و بركاته ... 

هذا الكود هو السبب ( في الحالي ) للنموذج الشهادة 

Private Sub Form_Current()
DoCmd.MoveSize 500, 500, 1000, 500
Me.InsideHeight = 0
Me.InsideWidth = 0
End Sub

 

 

 

صحيح ، والحل ان تنقل الكود من حدث "الحالي" الى حدث "التحميل" OnLoad:

Private Sub Form_Current()

End Sub

Private Sub Form_Load()
	DoCmd.MoveSize 500, 500, 1000, 500
	Me.InsideHeight = 
	Me.InsideWidth = 
End Sub

 

جعفر

[prosseseur]

كيف يمكن حل المشكلة في نموذج الشهادة.

[كرار صبري _ أبو جنى]

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

 والحل ان تنقل الكود من حدث "الحالي" الى حدث "التحميل" OnLoad:

[prosseseur]

السلام عليكم 

شكرًا لكم و للجميع النموذج الشهادة عمل بعد تعديل الكود .

فقط خاصية البحث عن مواطن في الاعلى  في الفورم شهادة لا تعمل بالشكل الجيد كيف يمكن اصلاحها.

مودتي و تقديري لكم

[jjafferr]

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

 

اليك طريقتين ، وانا استعملت الثانية:

الطريقة الاولى ، تعطيك السجل المطلوب ، ولكن لا تستطيع ان تذهب الى سجلات اخرى ،

اما الطريقة الثانية ، فانت حُر كالطير ، تستطيع ان تنتقل من زهرة الى اخرى 

Private Sub z_AfterUpdate()

'1
'    Me.Filter = "[رقم شهادة الميلادة]=" & Me.z
'    Me.FilterOn = True

'2
    Me.[رقم شهادة الميلادة].SetFocus
    DoCmd.FindRecord Me.z, acAnywhere, , acSearchAll, acSearchAll, acCurrent

End Sub

 

ورجاء ، لا تسأل اسئلة جديدة في هذا الموضوع ، فهذا مخالف لقوانين المنتدى ، بد اعمل لك موضوع جديد بسؤال جديد 

 

 

جعفر

 

354.برنامج الفواتيرالناجح المعدل.accdb.zip