kanory

ممكن مثال مصغر ...

ما شاء الله تبارك الله اهلا @ابا جودى نورت المنتدى

حياك الله اخي @الشربيني 123 واياك

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

شكرا لك اخ فتح .....

نعم عادي مافيها شيئ DoCmd.Close acForm, "AT" DoCmd.Maximize

استخدم هذا ..... Dim q As Integer q = z If Me.v = q Then MsgBox "error1" Else MsgBox "error2" End If

واياك .... حياك الله

حياك تشرفنا ......🌺

منور استاذ احمد فينك لك وحشة .... عساك بصحة وعافية

طيب ضع الفانك هذا في وحدة نمطية Function Seperate_Digits(T As String) As String Dim i As Integer Dim C As String Dim Which_Letter As String If Len(T & "") = 0 Then Seperate_Digits = "" Exit Function End If For i = 1 To Len(T) C = Asc(Mid(T, i, 1)) Select Case C Case 46, 48 To 57 Which_Letter = Which_Letter & Mid(T, i, 1) Case 47 Which_Letter = "" End Select Next i Seperate_Digits = Which_Letter End Function ثم ضع الكود التاليى تحت حدث الزر On Error Resume Next Dim s As String, x As Integer s = "GRN" x = Seperate_Digits(Me!FATORA_NO) Me!FATORA_NO = Format(s & Str(x) + 1, "000") وافينا بالنتيجة

مش تفكير بس ... فنجان قهوة .. بارك الله فيك .. بالتوفيق

انظر الاستعلام النهائي .... 3733 (1).accdb

انشئ قاعدة جديدة وصمم نموذج وبه زر وضع تحت حدث عندالنقر على الزر هذا الكود ..... Dim objAcc As Access.Application Set objAcc = GetObject("C:\Users\ACER\Desktop\data1.accdb") objAcc.DoCmd.OpenQuery "Qre1" objAcc.Application.Quit Set objAcc = Nothing

تحت حدث عند الضغط على الزر لديك ضع هذا الكود 'Me.[FATORA_NO] = [FATORA_NO] + 1 On Error Resume Next DoCmd.RunCommand acCmdRecordsGoToNew Dim s As String, x As Integer s = "GRN" x = DCount("*", "101") + 1 Me!FATORA_NO = Format(s & Str(x), "000")

ما شاء الله تبارك الله تستاهل اخي صالح اسأل الله التوفيق والسداد

الحمد لله رب العالمين .... بالتوفيق

الحمد لله رب العالمين .... بالنوفيق

حياك الله وبالتوفيق ,,,,,

تفضل ---------->>>>>> New تطبيق Microsoft Office Access.mdb

انظر انتهت المدة ولم استطع الدخول للبرنامج ..... فأين تكمن المشكلة ؟؟؟؟

شغل النموذج Kanory ولاحظ الاستعلام الناتج -------->>>>>> 2132172302_FMARK_Kanory.mdb

.هذه طريقة اخرى بدون كتابة اسماء الحقول وخاصة عندما تكون كثيرة ولكن بشرط ان تتشابه ترتيب الحقول في الجدولين Dim db As DAO.Database Dim rstFrom As Recordset Dim rstTo As Recordset Set db = CurrentDb Dim RC, i, r As Integer Set rstTo = db.OpenRecordset("tblB1", dbOpenDynaset) Set rstFrom = db.OpenRecordset("tblB", dbOpenDynaset) rstFrom.MoveFirst: rstFrom.MoveLast RC = rstFrom.RecordCount rstFrom.MoveFirst For i = 1 To RC rstTo.AddNew For r = 1 To rstFrom.Fields.Count - 1 rstTo.Fields(r) = rstFrom.Fields(r) Next r rstTo.Update rstFrom.MoveNext Next i rstTo.Close rstFrom.Close Set rstTo = Nothing Set rstFrom = Nothing Set db = Nothing Kan_355.accdb

اعمل لنا مثال مصغر وطبق الحماية عليه ... حتى نشوف مالذي يمكن فعله ...

الكود يضيف كل السجلات الموجود في الجدول وذلك عن طريق الكود التالي RC = rstFrom.RecordCount rstFrom.MoveFirst For i = 1 To RC هذا الكود الذي انت وضعت جزءا منه لا يضيف كل الحقول الا اذا كتبت وحددت له الحقول بالشكل التالي rs.AddNew السطر التالي يعبر عن الحقل ..... قم بتكرار السطر بعدد الحقول الموجودة لديك rstTo!codhesab = rstFrom!codhesab rstTo!الحقل الثاني = rstFrom!الحقل الثاني وهكذا rs.Update أرفق لنا الجدولين وبه بيانات تجريبية للتطبيق