اخى @husseinharby
جرب ووافنى بالنتيجه وان شاء الله يكون فى حلول افضل
الكود موجود فى حدث بعد التحديث للفورم الفرعى
Private Sub Form_AfterUpdate()
DoCmd.RunCommand acCmdSaveRecord
Me.Requery
'MsgBox Me.Text70.Value
Forms!sale!code.SetFocus
If Forms!sale!code = 1 Then
Forms!sale!deposit = Forms!sale!Text49
Else
Forms!sale!deposit = 0
End If
Forms!sale!sale_sub.SetFocus
DoCmd.GoToRecord , , acNewRec
End Sub
بالتوفيق
copy-2.accdb
جزاك الله خيرا اخى واستاذى خالد ويشرفنى انك تتابع تعديلاتى وافرح كثيرا عندما تعقبون وتعدلون عليها فمازلت اجهل الكثير واتعلم منكم اخوانى واساتذتى بارك الله فيكم وجزاكم الله كل خير
💐
بالمشاركه مع اخوانى واساتذتى خالد وحسام جزاهم الله خيرا 💐
ارفق موضوع لام عهود جزاها الله خيرا للاطلاع
http://arabteam2000-forum.com/index.php?/topic/74264-مشكلة-خطيرة-فى-التقريب-داخل-access/
السلام عليكم اخى @husseinharby
مشاركه مع اخى العزيز @husamwahab جزاه الله خيرا
نفس كود اخى حسام بس نقلته فى حدث عند الخروج للتكست 49 الصافى
بعد اختيار الصنف وادخال القيم سيتم نقل التركيز على حقل الصافى وعند الضغط ع انتر او تاب سيتم تحديث حقل الدفعه ونقل التركيز مره اخرى للنموذج الفرعى
ان شاء الله يكون ما تريد
بالتوفيق
copy-2.accdb
وعليكم السلام اخى @محمد التميمي
هل هذا ما تريد ؟
DoCmd.OpenReport "Table", acViewPreview, , "Newborns Between forms!DateBetween!Text2 And forms!DateBetween!Text3"
حقل Newborns فالجدول رقمى وليس تاريخ
بالتوفيق
454(1).accdb
السلام عليكم
مشاركه مع الاستاذ @عبدالله المجرب جزاه الله خير
1 - فى النموذج وفى قناع الادخال ضع
"09"&0\ 0000000
بعد كتابه الاسم والانتقال مباشره اكتب اول رقم من بعد 9 مباشره
الحل الاخر كما وضعه الاستاذ عبدالله فى المثال الاول وهو فى حدث عند التركيز زودت السطر التالى
Number_Tel1.SelStart = 2
ليصبح الكود كالتالى
Private Sub Number_Tel1_GotFocus()
If IsNull(Me.Number_Tel1) Then
Me.Number_Tel1 = "09"
Number_Tel1.SelStart = 2
End If
End Sub
Private Sub Number_Tel2_GotFocus()
If IsNull(Me.Number_Tel2) Then
Me.Number_Tel2 = "09"
Number_Tel2.SelStart = 2
End If
End Sub
بالتوفيق