مقدار دهی یک تکس باکس در صورت باز بودن فرم

[MOR_MS]

با سلام و خسته نباشید
در ضمیمه ای که گزاشتم چهار فرم به نامهای A ،B،CوD دارم که با استفاده از ماکروی AutoKeys کلید های تعریف کردم که می خوام با استفاده از این کلیدها فرم ها را باز کنم فقط نمی دانم چطور وقتی فرم A باز است و فرم C را باز می کنم چطور در تکس باکس ان حرف A ثبت شود و وقتی فرم B باز است و فرم c را باز می کنم حرف B در تکس باکس ثبت شود و همین طور در مورد فرم D
متشکرم

[dadsara]

سلام
دوست عزیز به شما پیشنهاد می کنم یک فرم بعنوان استارت آپ درست کنید که بعد از اجرای برنامه باز می شود و تا آخر لحظه باز است
سپس کلیدهای میانبر خود را آنجا تعریف کنید

[MOR_MS]

با سلام
من در برنامه همین فرم را دارم ولی نمی دانم چطوری اگر ممکنه کمکم کنید چون بعضی فرمهایم چندبار در شرایطهای مختلف باز می شود و از انها اطلاعات برای فرمهای دیگر استخراج می کنم و اگر بتونم با این کار وقتی فرم مورد نظرم باز است یک مقار به تکس باکس بدم می توان با دستور شرطی از یک فرم برای چند فرم اطلاعات استخراج کنم

[dadsara]

سلام
با استفاده از کد زیر می توانید عملیات مورد نظر را انجام دهید

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 1 Then
MsgBox "ctrl + a"
DoCmd.OpenForm "form2", acNormal
End If
If KeyAscii = 2 Then MsgBox "ctrl + b"
If KeyAscii = 3 Then MsgBox "ctrl + c"
If KeyAscii = 4 Then MsgBox "ctrl + d "
If KeyAscii = 5 Then MsgBox "ctrl + e"

End Sub

بجای پیامها می توانید هرگونه عملیات را انجام دهید
ضمنا در تنظیمات فرم خاصیت Key Preview را برابر Yes قرار دهید