أبوبسمله

السلام عليكم مشاركه مع اخوانى واساتذتى @ابوخليل و @SEMO.Pa3x جزاهم الله خيرا حاجه بسيطه على قدى Function CheekCommandButton() Const cTIME = 1000 'in MilliSeconds Dim ctl As Control For Each ctl In Me.Controls If ctl.ControlType = acCommandButton Then If ctl.Name <> "RunC" Then DoCmd.GoToControl ctl.Name SendKeys "{enter}", True ' MsgBox Me.zx Me.zx = "" Call sSleep(cTIME) End If End If Next ctl DoCmd.OpenTable "test2" End Function وقمت باستعمال دوال لاعطاء ثوانى لمشاهده التنفيذ يمكنك الاستغناء عنها والكود من الرابط التالى للاطلاع http://access.mvps.org/access/api/api0021.htm Private Declare Sub sapiSleep Lib "kernel32" _ Alias "Sleep" _ (ByVal dwMilliseconds As Long) Sub sSleep(lngMilliSec As Long) If lngMilliSec > 0 Then Call sapiSleep(lngMilliSec) End If End Sub بالتوفيق إحصاء_2003.mdb إحصاء_1.rar

وفيك بارك الله واياكم اخى الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا بالتوفيق

نعم واجهتنى المشكله ولذلك قمت بانشاء نموذج اخر لارى هل هى نفس المشكله ام شىء اخر فوجدت النموذج الجديد يعمل بشكل جيد بالتوفيق

قمت بعمل نموذج عن طريق المعالج للجدول ويعمل بشكل سلسل وصراحه لا اعلم ما المشكله بالنموذج الذى بالمرفقات ان شاء الله يفيدنا احد الاخوان او اساتذتنا جزاهم الله خيرا بالتوفيق

وعليكم السلام الخطأ من عندك وبالرغم اننا عدلنا لك واوضحناه لك من قبل الا انك اخطات فيه ثانيه ولكن هذه المره اخطات مرتان الاول كما تم تعديله لك فى ثانى مشاركه والخطاء الثانى انه السطر الثانى فى الكود فى المثال الاخير rd = Int(Right([dl], 4)) + 1 لاجظ الرقم 4 وفى السطر التالى جعلت عدد الاصفار 00 الكود بعد التعديل ومرفق المرفق ويفضل 4 فى السطر الثانى مع زياده عدد الاصفار 0000 نفس العدد لان 00 سيقف عند عدد 100 فشوف عدد السجلات ممكن يوصل معاك لكام وقم بضبط هذان السطران فقط 4 بــ 0000 ، 5 بــ 00000 dl = Nz(DMax("[رقم المستند]", "[بيانات المصروفات]", "(year([التاريخ]) & month([التاريخ])& day([التاريخ]))='" & Format(Me.التاريخ, "yyyymd") & "'"), 0) rd = Int(Right([dl], 2)) + 1 Me.رقم_المستند = Format(Me.التاريخ, "yymmdd") & Format(rd, "00") بالتوفيق الترقيم111.mdb

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا والشكر موصول لاستاذنا العزيز @jjafferr والاخ الفاضل @مهتدي 💐 بالتوفيق

وعليكم السلام اتفضل اخى @nssj ان شاء الله يكون ما تريد عندك استعلام تحديث UPDATE b01 INNER JOIN b02 ON b01.hno = b02.hno SET b01.nass = [b02].[nass]; بالتوفيق b01.accdb

الله يسلمك اخى ابو اشرف بالتوفيق

وعليكم السلام مشاركة مع اساتذتى الافاضل دى جملة السيكول بعد التحويل بالمحول المرفق من الاستاذ مهتدى جزاهم الله كل خير هو واستاذنا العزيز مصلح ولو نظرت هتلاقى ان الاستاذ جعفر جزاه الله خيرا اداك نفس الاجابه من الاول ويمكن استخدام كذلك طريقه اخرى مظلله بالاخضر بالكود بالمرفق Dim strSQL As String strSQL = "INSERT INTO " & "[" & y & "]" & " ( [Full Name]" & vbCrLf strSQL = strSQL & " , 2" & vbCrLf strSQL = strSQL & " , 3" & vbCrLf strSQL = strSQL & " , 4" & vbCrLf strSQL = strSQL & " , 5" & vbCrLf strSQL = strSQL & " , 6" & vbCrLf strSQL = strSQL & " , 7" & vbCrLf strSQL = strSQL & " , 8" & vbCrLf strSQL = strSQL & " , 9" & vbCrLf strSQL = strSQL & " , 10" & vbCrLf strSQL = strSQL & " , 11" & vbCrLf strSQL = strSQL & " , 12" & vbCrLf strSQL = strSQL & " , 13" & vbCrLf strSQL = strSQL & " , 14" & vbCrLf strSQL = strSQL & " , 15" & vbCrLf strSQL = strSQL & " , 16" & vbCrLf strSQL = strSQL & " , 17" & vbCrLf strSQL = strSQL & " , 18" & vbCrLf strSQL = strSQL & " , 19" & vbCrLf strSQL = strSQL & " , 20" & vbCrLf strSQL = strSQL & " , 21" & vbCrLf strSQL = strSQL & " , 22" & vbCrLf strSQL = strSQL & " , 23" & vbCrLf strSQL = strSQL & " , 24" & vbCrLf strSQL = strSQL & " , 25" & vbCrLf strSQL = strSQL & " , 26" & vbCrLf strSQL = strSQL & " , 27" & vbCrLf strSQL = strSQL & " , 28" & vbCrLf strSQL = strSQL & " , 29" & vbCrLf strSQL = strSQL & " , 30" & vbCrLf strSQL = strSQL & " , 31" & vbCrLf strSQL = strSQL & " , 32" & vbCrLf strSQL = strSQL & " , 33" & vbCrLf strSQL = strSQL & " , 34" & vbCrLf strSQL = strSQL & " , 35" & vbCrLf strSQL = strSQL & " , 36" & vbCrLf strSQL = strSQL & " , 37" & vbCrLf strSQL = strSQL & " , 38" & vbCrLf strSQL = strSQL & " , 39" & vbCrLf strSQL = strSQL & " , 40" & vbCrLf strSQL = strSQL & " , 41" & vbCrLf strSQL = strSQL & " , 42" & vbCrLf strSQL = strSQL & " , 43" & vbCrLf strSQL = strSQL & " , 44" & vbCrLf strSQL = strSQL & " , 45" & vbCrLf strSQL = strSQL & " , 46" & vbCrLf strSQL = strSQL & " , 47" & vbCrLf strSQL = strSQL & " , 48" & vbCrLf strSQL = strSQL & " , 49" & vbCrLf strSQL = strSQL & " , 50" & vbCrLf strSQL = strSQL & " , 51" & vbCrLf strSQL = strSQL & " , 52" & vbCrLf strSQL = strSQL & " , 53" & vbCrLf strSQL = strSQL & " , 54" & vbCrLf strSQL = strSQL & " , 55" & vbCrLf strSQL = strSQL & " , 56" & vbCrLf strSQL = strSQL & " , 57" & vbCrLf strSQL = strSQL & " , 58" & vbCrLf strSQL = strSQL & " , 59" & vbCrLf strSQL = strSQL & " , 60" & vbCrLf strSQL = strSQL & " , 61" & vbCrLf strSQL = strSQL & " , 62" & vbCrLf strSQL = strSQL & " , 63" & vbCrLf strSQL = strSQL & " , 64" & vbCrLf strSQL = strSQL & " , 65" & vbCrLf strSQL = strSQL & " , 66" & vbCrLf strSQL = strSQL & " , 67" & vbCrLf strSQL = strSQL & " , 68" & vbCrLf strSQL = strSQL & " , [Sign On Date]" & vbCrLf strSQL = strSQL & " , 70" & vbCrLf strSQL = strSQL & " , 71" & vbCrLf strSQL = strSQL & " , 72" & vbCrLf strSQL = strSQL & " , 73" & vbCrLf strSQL = strSQL & " , 74" & vbCrLf strSQL = strSQL & " , 75" & vbCrLf strSQL = strSQL & " , 76" & vbCrLf strSQL = strSQL & " , 77" & vbCrLf strSQL = strSQL & " , 78" & vbCrLf strSQL = strSQL & " , 79" & vbCrLf strSQL = strSQL & " , 80" & vbCrLf strSQL = strSQL & " , 81" & vbCrLf strSQL = strSQL & " , 82" & vbCrLf strSQL = strSQL & " , 83" & vbCrLf strSQL = strSQL & " , 84" & vbCrLf strSQL = strSQL & " , 85" & vbCrLf strSQL = strSQL & " , 86" & vbCrLf strSQL = strSQL & " , 87" & vbCrLf strSQL = strSQL & " , 88" & vbCrLf strSQL = strSQL & " , 89" & vbCrLf strSQL = strSQL & " , 90" & vbCrLf strSQL = strSQL & " , 91" & vbCrLf strSQL = strSQL & " , 92" & vbCrLf strSQL = strSQL & " , 93" & vbCrLf strSQL = strSQL & " , 94" & vbCrLf strSQL = strSQL & " , 95" & vbCrLf strSQL = strSQL & " , 96" & vbCrLf strSQL = strSQL & " , 97" & vbCrLf strSQL = strSQL & " , 98" & vbCrLf strSQL = strSQL & " , 99" & vbCrLf strSQL = strSQL & " , 100" & vbCrLf strSQL = strSQL & " , 101" & vbCrLf strSQL = strSQL & " , 102" & vbCrLf strSQL = strSQL & " , 103" & vbCrLf strSQL = strSQL & " , 104" & vbCrLf strSQL = strSQL & " , 105" & vbCrLf strSQL = strSQL & " , 106" & vbCrLf strSQL = strSQL & " , 107" & vbCrLf strSQL = strSQL & " , 108" & vbCrLf strSQL = strSQL & " , 109" & vbCrLf strSQL = strSQL & " , 110" & vbCrLf strSQL = strSQL & " , 111" & vbCrLf strSQL = strSQL & " , 112" & vbCrLf strSQL = strSQL & " , 113" & vbCrLf strSQL = strSQL & " , 114" & vbCrLf strSQL = strSQL & " , 115" & vbCrLf strSQL = strSQL & " , 116" & vbCrLf strSQL = strSQL & " , 117" & vbCrLf strSQL = strSQL & " , 118" & vbCrLf strSQL = strSQL & " , 119" & vbCrLf strSQL = strSQL & " , 120" & vbCrLf strSQL = strSQL & " , 121" & vbCrLf strSQL = strSQL & " , 122" & vbCrLf strSQL = strSQL & " , 123" & vbCrLf strSQL = strSQL & " , 124" & vbCrLf strSQL = strSQL & " , 125" & vbCrLf strSQL = strSQL & " , 126" & vbCrLf strSQL = strSQL & " , 127" & vbCrLf strSQL = strSQL & " , 128" & vbCrLf strSQL = strSQL & " , 129" & vbCrLf strSQL = strSQL & " , 130" & vbCrLf strSQL = strSQL & " , 131" & vbCrLf strSQL = strSQL & " , 132" & vbCrLf strSQL = strSQL & " , 133" & vbCrLf strSQL = strSQL & " , 134" & vbCrLf strSQL = strSQL & " , 135" & vbCrLf strSQL = strSQL & " , 136" & vbCrLf strSQL = strSQL & " , 137" & vbCrLf strSQL = strSQL & " , 138" & vbCrLf strSQL = strSQL & " , 139" & vbCrLf strSQL = strSQL & " , 140" & vbCrLf strSQL = strSQL & " , 141" & vbCrLf strSQL = strSQL & " , 142" & vbCrLf strSQL = strSQL & " , 143" & vbCrLf strSQL = strSQL & " , 144 )SELECT [Full Name] " & vbCrLf strSQL = strSQL & " , [2]" & vbCrLf strSQL = strSQL & " , [3]" & vbCrLf strSQL = strSQL & " , [4]" & vbCrLf strSQL = strSQL & " , [5]" & vbCrLf strSQL = strSQL & " , [6]" & vbCrLf strSQL = strSQL & " , [7]" & vbCrLf strSQL = strSQL & " , [8]" & vbCrLf strSQL = strSQL & " , [9]" & vbCrLf strSQL = strSQL & " , [10]" & vbCrLf strSQL = strSQL & " , [11]" & vbCrLf strSQL = strSQL & " , [12]" & vbCrLf strSQL = strSQL & " , [13]" & vbCrLf strSQL = strSQL & " , [14]" & vbCrLf strSQL = strSQL & " , [15]" & vbCrLf strSQL = strSQL & " , [16]" & vbCrLf strSQL = strSQL & " , [17]" & vbCrLf strSQL = strSQL & " , [18]" & vbCrLf strSQL = strSQL & " , [19]" & vbCrLf strSQL = strSQL & " , [20]" & vbCrLf strSQL = strSQL & " , [21]" & vbCrLf strSQL = strSQL & " , [22]" & vbCrLf strSQL = strSQL & " , [23]" & vbCrLf strSQL = strSQL & " , [24]" & vbCrLf strSQL = strSQL & " , [25]" & vbCrLf strSQL = strSQL & " , [26]" & vbCrLf strSQL = strSQL & " , [27]" & vbCrLf strSQL = strSQL & " , [28]" & vbCrLf strSQL = strSQL & " , [29]" & vbCrLf strSQL = strSQL & " , [30]" & vbCrLf strSQL = strSQL & " , [31]" & vbCrLf strSQL = strSQL & " , [32]" & vbCrLf strSQL = strSQL & " , [33]" & vbCrLf strSQL = strSQL & " , [34]" & vbCrLf strSQL = strSQL & " , [35]" & vbCrLf strSQL = strSQL & " , [36]" & vbCrLf strSQL = strSQL & " , [37]" & vbCrLf strSQL = strSQL & " , [38]" & vbCrLf strSQL = strSQL & " , [39]" & vbCrLf strSQL = strSQL & " , [40]" & vbCrLf strSQL = strSQL & " , [41]" & vbCrLf strSQL = strSQL & " , [42]" & vbCrLf strSQL = strSQL & " , [43]" & vbCrLf strSQL = strSQL & " , [44]" & vbCrLf strSQL = strSQL & " , [45]" & vbCrLf strSQL = strSQL & " , [46]" & vbCrLf strSQL = strSQL & " , [47]" & vbCrLf strSQL = strSQL & " , [48]" & vbCrLf strSQL = strSQL & " , [49]" & vbCrLf strSQL = strSQL & " , [50]" & vbCrLf strSQL = strSQL & " , [51]" & vbCrLf strSQL = strSQL & " , [52]" & vbCrLf strSQL = strSQL & " , [53]" & vbCrLf strSQL = strSQL & " , [54]" & vbCrLf strSQL = strSQL & " , [55]" & vbCrLf strSQL = strSQL & " , [56]" & vbCrLf strSQL = strSQL & " , [57]" & vbCrLf strSQL = strSQL & " , [58]" & vbCrLf strSQL = strSQL & " , [59]" & vbCrLf strSQL = strSQL & " , [60]" & vbCrLf strSQL = strSQL & " , [61]" & vbCrLf strSQL = strSQL & " , [62]" & vbCrLf strSQL = strSQL & " , [63]" & vbCrLf strSQL = strSQL & " , [64]" & vbCrLf strSQL = strSQL & " , [65]" & vbCrLf strSQL = strSQL & " , [66]" & vbCrLf strSQL = strSQL & " , [67]" & vbCrLf strSQL = strSQL & " , [68]" & vbCrLf strSQL = strSQL & " , Date() AS SDate " & vbCrLf strSQL = strSQL & " , [70]" & vbCrLf strSQL = strSQL & " , [71]" & vbCrLf strSQL = strSQL & " , [72]" & vbCrLf strSQL = strSQL & " , [73]" & vbCrLf strSQL = strSQL & " , [74]" & vbCrLf strSQL = strSQL & " , [75]" & vbCrLf strSQL = strSQL & " , [76]" & vbCrLf strSQL = strSQL & " , [77]" & vbCrLf strSQL = strSQL & " , [78]" & vbCrLf strSQL = strSQL & " , [79]" & vbCrLf strSQL = strSQL & " , [80]" & vbCrLf strSQL = strSQL & " , [81]" & vbCrLf strSQL = strSQL & " , [82]" & vbCrLf strSQL = strSQL & " , [83]" & vbCrLf strSQL = strSQL & " , [84]" & vbCrLf strSQL = strSQL & " , [85]" & vbCrLf strSQL = strSQL & " , [86]" & vbCrLf strSQL = strSQL & " , [87]" & vbCrLf strSQL = strSQL & " , [88]" & vbCrLf strSQL = strSQL & " , [89]" & vbCrLf strSQL = strSQL & " , [90]" & vbCrLf strSQL = strSQL & " , [91]" & vbCrLf strSQL = strSQL & " , [92]" & vbCrLf strSQL = strSQL & " , [93]" & vbCrLf strSQL = strSQL & " , [94]" & vbCrLf strSQL = strSQL & " , [95]" & vbCrLf strSQL = strSQL & " , [96]" & vbCrLf strSQL = strSQL & " , [97]" & vbCrLf strSQL = strSQL & " , [98]" & vbCrLf strSQL = strSQL & " , [99]" & vbCrLf strSQL = strSQL & " , [100]" & vbCrLf strSQL = strSQL & " , [101]" & vbCrLf strSQL = strSQL & " , [102]" & vbCrLf strSQL = strSQL & " , [103]" & vbCrLf strSQL = strSQL & " , [104]" & vbCrLf strSQL = strSQL & " , [105]" & vbCrLf strSQL = strSQL & " , [106]" & vbCrLf strSQL = strSQL & " , [107]" & vbCrLf strSQL = strSQL & " , [108]" & vbCrLf strSQL = strSQL & " , [109]" & vbCrLf strSQL = strSQL & " , [110]" & vbCrLf strSQL = strSQL & " , [111]" & vbCrLf strSQL = strSQL & " , [112]" & vbCrLf strSQL = strSQL & " , [113]" & vbCrLf strSQL = strSQL & " , [114]" & vbCrLf strSQL = strSQL & " , [115]" & vbCrLf strSQL = strSQL & " , [116]" & vbCrLf strSQL = strSQL & " , [117]" & vbCrLf strSQL = strSQL & " , [118]" & vbCrLf strSQL = strSQL & " , [119]" & vbCrLf strSQL = strSQL & " , [120]" & vbCrLf strSQL = strSQL & " , [121]" & vbCrLf strSQL = strSQL & " , [122]" & vbCrLf strSQL = strSQL & " , [123]" & vbCrLf strSQL = strSQL & " , [124]" & vbCrLf strSQL = strSQL & " , [125]" & vbCrLf strSQL = strSQL & " , [126]" & vbCrLf strSQL = strSQL & " , [127]" & vbCrLf strSQL = strSQL & " , [128]" & vbCrLf strSQL = strSQL & " , [129]" & vbCrLf strSQL = strSQL & " , [130]" & vbCrLf strSQL = strSQL & " , [131]" & vbCrLf strSQL = strSQL & " , [132]" & vbCrLf strSQL = strSQL & " , [133]" & vbCrLf strSQL = strSQL & " , [134]" & vbCrLf strSQL = strSQL & " , [135]" & vbCrLf strSQL = strSQL & " , [136]" & vbCrLf strSQL = strSQL & " , [137]" & vbCrLf strSQL = strSQL & " , [138]" & vbCrLf strSQL = strSQL & " , [139]" & vbCrLf strSQL = strSQL & " , [140]" & vbCrLf strSQL = strSQL & " , [141]" & vbCrLf strSQL = strSQL & " , [142]" & vbCrLf strSQL = strSQL & " , [143]" & vbCrLf strSQL = strSQL & " , [144]" & vbCrLf strSQL = strSQL & " FROM " & "[" & x & "]" & " WHERE ([Full Name]='" & z & "');" DoCmd.RunSQL strSQL بالتوفيق New_1 (6).rar

وعليكم السلام اتفضل استاذ @عبد اللطيف سلوم ان شاء الله يكون ما تريد بالتوفيق Dsum2021 (2).accdb

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

السلام عليكم جربت ادخال يدوى مرارا وتكرارا لم ارى هذه المشكله يجب عليك ارفاق مثال مشابه لما لديك وبه كود الترقيم والشرح الوافى للخطوات التى تعمل بها للوقف على المشكله وحلها باذن الله من قبلى او من قبل اخواننا واساتذتنا جزاهم الله خيرا بالتوفيق

الحمدلله الذى بنعمته تتم الصالحات مفيش مشاكل باذن الله نعم حلك صحيح وبورك فى اجتهادك ماشاء الله والسبب لان المتغير من النوع Integer يقبل الى { 32,767 } to { -32,768 } اما المتغير من النوع Long فهو اكبر راجع هذا الرابط لتتعرف عالمتغيرات اكثر وانواعها https://docs.microsoft.com/en-us/office/vba/language/reference/user-interface-help/data-type-summary ارفع الملف عالمديا فاير وضع الرابط لنرى ويشاركنا اخواننا واساتذتنا وان شاء الله تتحل المشكله بفضل الله ثم اخواننا واساتذتنا جزاهم الله خيرا بالتوفيق

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا بالنسبه للتعليق على الكود باستخدام اعلى قيمه مفيش مشكله ملاحظتك هذه فى غير محلها وقد راجعت امثلتك مره اخرى فوجد حقل Id مفتاح اساسى بمثالك وملحوظتى عليها لا علاقه بالكود الموضوع بتغيير الحقل لمفتاح اساسى نهائى اتفضل اخى جرب ووافنا بالنتيجه Private Sub txtType_AfterUpdate() Me.Nass.SetFocus End Sub Private Sub أمر17_Click() Dim LastValue As Currency Dim LastID As Integer LastValue = Me.IDX LastID = Me.ID DoCmd.GoToRecord , , acNewRec DoCmd.RunCommand acCmdSaveRecord Me.IDX = LastValue + 0.1 Me.OrderBy = "IDX" LastID = DMax("[ID]", "book0001") DoCmd.FindRecord LastID, , True, , True Me.txtType.SetFocus If Me.txtType.DefaultValue = 0 Then If MsgBox("اختار احدى هذه القيم", _ vbDefaultButton1 + vbInformation + vbMsgBoxRight, "تنبيه") Then Me.txtType = "" Me.txtType.SetFocus Me.txtType.Dropdown End If End If End Sub بالتوفيق book77.accdb

الله يسلم عمرك ابو اشرف واياكم ان شاء الله بالتوفيق

عذرا اخى @عبد اللطيف سلوم لم انتبه انه نموذج ادخال تم وقف حدث الحالى جرب الان ووافنى بالنتيجه Dsum2021.accdb

الحمدلله الذى بنعمته تتم الصالحات تحت امرك بما اعرفه وان لم اعرف فاساتذتنا لا يتاخرون عن تقديم يد المساعده جزاهم الله خيرا جميل وهذا المطلوب انك تحاول وعندما تقف تسال وهذا ما افعله احاول مرارا وتكرارا الى ان اصل الى ما اريد واعرف اين وقفت واتعلم وطالما مازلت فالبدايه فنصيحتى لك خد كوبى من الملف الاساسى الذى تم تجميعه واحفظه فى مكان خاص وقم بالتجارب على نسخه منه حتى لا تفقد بياناتك التى تعبت في تجميعها الى ان يستقر عمل برنامجك خد نسخه من الاصل المحفوظ وجرب مره اخرى على برنامجك كما تريد وان شاء الله تتعلم وتصل لمبتغاك وتساعد اخوانك بالتوفيق اخى

وعليكم السلام اتفضل استاذ @عبد اللطيف سلوم ان شاء الله يكون ما تريد تم انشاء اجراء واستدعائه فى حدثى الحالى للنموذج وفى حدث بعد التحديث لحقل اختيار الاسم Sub Dtotal() Me.txtTOTAL = Nz(DSum("Total", "Material", "Cus_Id=" & Me.Cus_Id.Column(0)), 0) Me.txtTAmount = Nz(DSum("Amount", "Res", "Cus_Id=" & Me.Cus_Id.Column(0)), 0) Me.txtRsid = Me.txtTOTAL - Me.txtTAmount End Sub بالتوفيق Dsum2021.accdb

جزاك الله خيرا اخى واستاذى العزيز @ابا جودى شغل راقى ومزاج عالى بارك الله فيك ونفس الموضوع مع اخى حسام صوت المراه اللى شغال عندى وويندوز 7 واوفيس 2003 و 2016 حزم 32 بت سوف اجرب تنزيل الاصوات كما اشار اخى حسام جزاه الله خيرا

الشكر لله ولاخواننا واساتذتنا جزاهم الله عنا كل خير معك عذرك فاننى مثلك احبو عالطريق وليس الاكسس مجالى ايضا اتفضل ان شاء الله يكون ما تريد Private Sub أمر17_Click() Dim LastValue As Currency Dim x As Integer LastValue = Me.IDX x = Me.ID 'MsgBox x DoCmd.GoToRecord , , acNewRec DoCmd.RunCommand acCmdSaveRecord DoCmd.RunCommand acCmdRefresh Me.IDX = LastValue + 0.1 x = Me.ID Me.Requery Me.OrderBy = "IDX" 'MsgBox x DoCmd.FindRecord x, acAnywhere, , acSearchAll Me.Nass.SetFocus End Sub جرب ووافنا بالنتيجه بالتوفيق book0002-1.accdb اخى طاهر اليس هذا موضوعك فما الاشكاليه فلم افهم وتابع على موضوعك او قم بفتح موضوع جديد وارفاق مثال واضح واشرح ما تريد وان شاء الله اخوانك واساتذتنا ما بيقصروا باذن الله بالتوفيق

هذا النموذج بيضيف السجل وينتقل لحقل Nass بناء على Me.Nass.SetFocus وهذا كوده Private Sub أمر17_Click() Dim LastValue As Currency LastValue = Me.IDX DoCmd.GoToRecord , , acNewRec Me.IDX = LastValue + 0.1 Me.Nass.SetFocus End Sub وده تعديل للكود بالمشاركه السابقه Private Sub أمر19_Click() Dim LastValue As Currency Dim x As Integer x = Me.ID LastValue = Me.IDX DoCmd.GoToRecord , , acNewRec DoCmd.RunCommand acCmdSaveRecord Me.IDX = LastValue + 0.1 x = Me.ID Me.OrderBy = "IDX" DoCmd.FindRecord x, acAnywhere, , acSearchAll Me.Nass.SetFocus End Sub بالتوفيق book0001.accdb

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله عنا كل خير هل هذا ما تريد جرب ووافنا بالنتيجه Private Sub أمر19_Click() Dim LastValue As Currency Dim x As Integer x = Me.ID LastValue = Me.IDX DoCmd.GoToRecord , , acNewRec DoCmd.RunCommand acCmdSaveRecord Me.IDX = LastValue + 0.1 LastValue = Me.IDX Me.OrderBy = "IDX" DoCmd.FindRecord x, acAnywhere, , acSearchAll DoCmd.GoToRecord , , acNext Me.Nass.SetFocus End Sub بالتوفيق book0001.accdb

السلام عليكم هل هذا ما تريد اتفضل اخى جرب ووافنا بالنتيجه Private Sub ÃãÑ19_Click() Dim LastValue As Currency Dim LastID As Integer LastValue = Me.IDX LastID = Me.ID DoCmd.GoToRecord , , acNewRec Me.IDX = LastValue + 0.1 Me.OrderBy = "IDX" DoCmd.FindRecord LastID, , True, , True End Sub بالتوفيق book0001.accdb

مرحبا بك اخى واستاذى الجليل ابوخليل 💐 ده حسابى عبر الفيس بوك ادخل به من عالموبايل فى بعض الاحيان ومن عالكمبيوتر احيانا اخرى الحساب الاخر شغال تمام بس كسل اكتب الباسورد فبدخل بده علشان الفيس مفتوح 😀

السلام عليكم هل هذا ما تريد اخى بالتوفيق tt.accdb