نجوم المشاركات

::: السلام عليكم ورحمة الله وبركاته ::: أسمحولي أن أقدم لكم هذه الهدية 🎁 البسيطة والمميزة والرائعة من مميزات هذا الإضافة: - عرض الملاحظات المهمة والتذكيرات مثل ( إجتماع ، اختبار ، تدوين أفكار ، كتابة مسودات، التذكير بالمواعيد ، .... الخ ) على واجهة برنامجك. - تتوائم مع البرامج ذوات المستخدمين المتعددين (كل مستخدم بملاحظاته الخاصة به). - تصميم رائع وألوان جميلة . - سهلة الاستخدام . رابط الشرح على اليوتيوب : تحميل الملف: Notes.accdb :: ولا تنسوني ووالدي من صالح دعواتكم 🙂 ::

طيب .. الوقت متأخر .. خليها لبكرة إن شاء الله .. حتى أكون مصحصح وأحاول أشرح بالتفصيل 😁

جميل جداً ، الآن المطلوب الثاني يحتاج لشرح منك 😅 الأول فهمته بالعافية في الوقت الحالي في هذه الساعة 😁

ممتاز ، جرب هذا التعديل الآن من خلال الكود التالي للزر :- Private Sub Update_takhrij_Click() Dim db As DAO.Database Dim rsSource As DAO.Recordset Dim rsTarget As DAO.Recordset Dim sourceTable As String Dim mnoFields As Variant Dim i As Integer Dim currentMNO As String On Error GoTo ErrHandler Set db = CurrentDb sourceTable = Me.txt1.Value mnoFields = Array("MNO", "MNO2", "MNO3", "MNO4", "MNO5", "MNO6", "MNO7") Set rsSource = db.OpenRecordset("SELECT * FROM [" & sourceTable & "]", dbOpenSnapshot) Set rsTarget = db.OpenRecordset("TAB_takhrij_X", dbOpenDynaset) Do While Not rsSource.EOF For i = 0 To UBound(mnoFields) currentMNO = Trim(Nz(rsSource(mnoFields(i)), "")) If currentMNO <> "" Then rsTarget.AddNew rsTarget!bookID = CStr(rsSource!bookID) rsTarget!TableNo = CLng(rsSource!TableNo) rsTarget!MNO = currentMNO rsTarget.Update End If Next i rsSource.MoveNext Loop rsSource.Close rsTarget.Close Set rsSource = Nothing Set rsTarget = Nothing Set db = Nothing MsgBox "تم حفظ الأحاديث بنجاح", vbInformation + vbMsgBoxRight, "" Exit Sub ErrHandler: MsgBox "حدث خطأ", vbCritical + vbMsgBoxRight, "" End Sub الملف :- takhrij.zip

السلام عليكم ورحمه الله وبركاته يمكنك مراجعه الربط ادناه لعله يفيد حضرنك تحويل الاكسل الى ملف تنفيذي (EXE) هل يمكن تغير شكل ايقونة التشغيل