اذهب الي المحتوي
أوفيسنا

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


الردود الموصى بها

السلام عليكم 

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

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

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

تجريبي.rar

رابط هذا التعليق
شارك

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

السلام عليكم 

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

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

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

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

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

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

بالسطر الاتى

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

 

رابط هذا التعليق
شارك

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

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

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

بالسطر الاتى

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

 

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

تم تعديل بواسطه Elsayed A Eldiasty
رابط هذا التعليق
شارك

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

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

 

رابط هذا التعليق
شارك

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

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

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

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

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

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

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

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

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

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

 

رابط هذا التعليق
شارك

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

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

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

 

رابط هذا التعليق
شارك

هذا بسبب استخدام 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

 

  • Like 1
رابط هذا التعليق
شارك

21 دقائق مضت, متقاعد said:
DoCmd.OpenForm "إضافة شحنة", , , "[كود_الشحنة]=" & Me.كود_الشحنة, , acDialog

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

  • Like 1
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information