المساعدة في نقل التركيز الي الفورم عند الاستدعاء

[Elsayed A Eldiasty]

السلام عليكم 

عندي نموذج اعرض فيه البيانات ونموذج اخر لادخال البيانات 

عند ما اريد استدعاء البيانات من نموذج العرض يرفض نقل التركيز الي نموذج الادخال 

اريد نقل التركيز الي نموذج الادخال

تجريبي.rar

[ابو جودي]

31 دقائق مضت, Elsayed A Eldiasty said:

السلام عليكم 

عندي نموذج اعرض فيه البيانات ونموذج اخر لادخال البيانات 

عند ما اريد استدعاء البيانات من نموذج العرض يرفض نقل التركيز الي نموذج الادخال 

اريد نقل التركيز الي نموذج الادخال

تجريبي.rar 494.18 kB · 10 downloads

فقط غير السطر الاتى 

DoCmd.OpenForm "إضافة شحنة"

بالسطر الاتى

DoCmd.OpenForm "إضافة شحنة", , , , , acDialog

 

[Elsayed A Eldiasty]

30 دقائق مضت, ابو جودي said:

فقط غير السطر الاتى 

DoCmd.OpenForm "إضافة شحنة"

بالسطر الاتى

DoCmd.OpenForm "إضافة شحنة", , , , , acDialog

 

انا اريد فتح الفورم في طريقة العرض العادية لاني اقوم بالذهاب الي البيانات وليس المراد فتح الفورم فقط

تم تعديل مارس 12, 2023 بواسطه Elsayed A Eldiasty

[ابو جودي]

اذن اسمح لى بالتدخل فى وضع طريقة أخرى 

Private Sub كود_شحنة_Click()

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "إضافة شحنة"
stLinkCriteria = "[كود_الشحنة]=" & Me![كود_الشحنة]

DoCmd.OpenForm stDocName, , , stLinkCriteria

Call [Form_إضافة شحنة].SetFocus

DoEvents

End Sub

وللعلم ان اردت استخدام الكود تبعك كما هو استخدم الكود كالاتى

Private Sub كود_شحنة_Click()
On Error Resume Next
Dim S
S = كود_شحنة
DoCmd.OpenForm "إضافة شحنة"
DoCmd.FindRecord S
Call [Form_إضافة شحنة].SetFocus
DoEvents
End Sub

 

[Eng.Qassim]

بعد اذن استاذي @ابو جودي

استخدم نفس الكود عندك في حدث GotFocus

واجعل modal=yes  للنموذج (اضافة شحنة)

تم تعديل مارس 12, 2023 بواسطه Eng.Qassim

[ابو جودي]

11 دقائق مضت, Eng.Qassim said:

بعد اذن @ابو جودي

استخدم نفس الكود عندك في حدث GotFocus

واجعل modal=yes  للنموذج (اضافة شحنة)

يا باش مهندس اهلا بيك انت تتفضل على طول بلا اى اذن انا طويلب علم اتعلم منكم ومن كل اساتذتى

أما بخصوص تلك الخاصية التى اشرتم اليها تقريبا فكرت فيها مسبقا بزضع الكود الاتى لانها تقوم بنفس عملها 

DoCmd.OpenForm "إضافة شحنة", , , , , acDialog

ولكن اتى الرد الاتى على الفور

منذ ساعه, Elsayed A Eldiasty said:

انا اريد فتح الفورم في طريقة العرض العادية لاني اقوم بالذهاب الي البيانات وليس المراد فتح الفورم فقط

 

[Eng.Qassim]

4 دقائق مضت, ابو جودي said:

DoCmd.OpenForm "إضافة شحنة", , , , , acDialog

انا استخدمتها في البداية..لكن لا اعلم لماذا لايفتح على السجل المختار

[ابو جودي]

17 دقائق مضت, Eng.Qassim said:

انا استخدمتها في البداية..لكن لا اعلم لماذا لايفتح على السجل المختار

لم انتبه الى ذلك بارك الله فيك يا باش مهندس 

 

[متقاعد]

حسب فهمي

DoCmd.OpenForm "إضافة شحنة", , , "[كود_الشحنة]=" & Me.كود_الشحنة, , acDialog

الملف مرفق

 

تجريبي.accdb

[ابو جودي]

هذا بسبب استخدام FindRecord ولا احبذ استخدامه

لكن لو جدلا اردنا استخدامها يكون بالشكل الاتى 

Private Sub كود_شحنة_Click()

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "إضافة شحنة"
stLinkCriteria = "[كود_الشحنة]=" & Me![كود_الشحنة]

DoCmd.OpenForm stDocName, , , stLinkCriteria, , acDialog

'Call [Form_إضافة شحنة].SetFocus
'
'DoEvents
End Sub

 

[Eng.Qassim]

21 دقائق مضت, متقاعد said:

DoCmd.OpenForm "إضافة شحنة", , , "[كود_الشحنة]=" & Me.كود_الشحنة, , acDialog

طول الخط مافكرت اضع شرط عند فتح النموذج...كان كل تفكيري ان لا اغير في الكود

[متقاعد]

47 دقائق مضت, Eng.Qassim said:

طول الخط مافكرت اضع شرط عند فتح النموذج...كان كل تفكيري ان لا اغير في الكود

الامر هين والاخطاء تحصل