سامي الحداد

أحسنت دكتورنا الغالي نعم هذا ما قلتة من البداية وفي الحقيقة لم اعرف ما هو المطلوب بالضبظ. فهمي بطيء حبتين ان شاءالله يكون هو المطلوب .

تفضل اخي الكريم هل هذا هو المطلوب. وافنا بالنتيجة تحياتي Project 1.rar

لان عندك غلط بربط الحقل بين الرئيسي والفرعي جرب الحين . ما اعرف طريقة عمل برنامجك شوف اذا هو المطلوب ووافنا بالنتيجة. الحين عندي الوقت متأخر الساعة 3 الفجر. تحياتي Project 1.rar

أخي الكريم أسف ما فهمت شنو المقصود داخل النموذج الرئيسي؟ اليس هذا هو النموذج الرئيسي؟ هل ممكن التوضيح اكثر بارك الله فيك. تحياتي

وعليكم السلام تفضل اخي الكريم بالتوفيق Project 1.rar

السلام عليكم أخي الكريم خليفه الملف راجعته عدة مرات وهو يعمل وكذلك الأخ اشرف أكد ذلك . لا أعرف بالضبط أين الخلل ولماذا لا يعمل عندك ؟ اتمنى من الأساتذة الكرام مراجعة الموضوع ربما اكون غلطان. وأرجو المعذرة. تحياتي

تفضل اخي الكريم عسى ان يكون هو المطلوب. وافنا بالنتيجة تحياتي Test112.rar

اخي الكريم ارفق مثالك حتى نستطيع تشخيص الخطاء. الظاهر هناك نقص في الكود تحياتي

اليك هذا الكود ... يعمل لك فولدر ان لم يكن موجود في مسار القاعدة وايضا باسم الموظف او اي شي انت تحدده. الكود للامانة لاحد الاساتذة مع بعض التعديلات البسيطة ... للاسف لا اعرف من هو جزاه الله كل الخير. لقد جربت الكود الان وهو يعمل بشكل صحيح ..لا تنسى تغير اسماء الحقول On Error GoTo err: Dim Fs, Cf, strFolder Const msoFileDialogFilePicker As Long = 3 Dim objDialog As Object Set objDialog = Application.FileDialog(msoFileDialogFilePicker) strFolder = CurrentProject.Path & "\" & "Image" Set Fs = CreateObject("Scripting.FileSystemObject") If Fs.FolderExists(strFolder) = False Then Set Cf = Fs.CreateFolder(strFolder) If Fs.FolderExists(strFolder) = True Then MsgBox "'" & strFolder, vbInformation, "' تم انشاء المجلد في المسار التالي " Else MsgBox "'" & strFolder, vbExclamation, "'لم يتم انشاء المجلد" End If End If If IsNull([Names]) Or [Names] = Null Or [Names] = "" Then [Names].SetFocus MsgBox "من فضلك يجب كتابة الاسم أولا حتى تتمكن من إضافة صورة", vbInformation, "يجب كتابة الاسم" Exit Sub End If Dim fso As Object Set fso = CreateObject("scripting.filesystemobject") Dim varFile As Variant Dim destpath As Variant Me.Image = "" Set fDialog = Application.FileDialog(msoFileDialogFilePicker) With fDialog .AllowMultiSelect = False .Title = "رجاءً قم بتحديد مكان الصورة" .Filters.Clear .Filters.Add "png image", "*.png" .Filters.Add "jpg image", "*.jpg" .Filters.Add "jpeg image", "*.jpeg" .Filters.Add "All Files", "*.*" If .show = True Then For Each varFile In .SelectedItems destpath = Application.CurrentProject.Path & "\" & "Image" & "\" & Me.Names & "f." & Right$(varFile, Len(varFile) - InStrRev(varFile, ".")) FileCopy varFile, destpath Me.Image = destpath Me.Refresh Next Else MsgBox "You clicked Cancel in the file dialog box." End If End With Exit Sub err: MsgBox err.Description & " " & err.Number وافنا بالنتيجة. بالتوفيق

السلام عليكم اخي الكريم من رسالة الخطاء هناك قيمة غير صحيحة ... أعتقد بسبب المعرف ... ولكن لا استطيع ان اجزم على العموم عملت لك طريقة اخرى بواسطة VBA ان شاءالله تلبي طلبك وهي اسهل في التعامل بواسطة الاكواد. والطريقة الاولى ما زالت تعمل عن طريق Macro . القي نظره على الملف الجديد.. او ارفق ملفك حتى نتمكن من تشخيص الحطاء. تحياتي New.accdb

وعليكم السلام تفضل اخي الكريم Nouveau Microsoft Access Database.accdb Nouveau Microsoft Access Database.rar

اخي الكريم كما اشار الاخ @Eng.Qassim اليك الملف تجربة.rar

أخي الكريم اليك التعديل ... عسى ان يفي بالمطلوب بالتوفيق Listbox.accdb

وعليكم السلام جرب هذا التعديل او ارفق مثال للتعديل عليه DCount("[ID]", "[tabel]", "[date1] = #" & Format(Me!Textbox.Value, "mm/dd/yyyy") & "#")

وهذا التعديل بالنسبة للاضاقة في نفس السطر Database5.accdb

تفضل اخي الكريم هل هذا هو المطلوب. Database5.accdb

الشكر لله عز وجل ولهذا المنتدى الذي نتعلم منه. دمتم في رعاية الله وحفظه. بالتوفيق

الاخ العزيز اسلام تفضل التعديل... لقد اضطررت لاضافة جقل رقم البطاقة بالانكليزي الى IDnumber وذلك لصعوبة تنسيق الكود بالمسميات العربية... دبل كليك على حقل IDnumber جرب الملف وواقنا بالنتيجة تحياتي اريد تكرار سجل.accdb

وعليكم السلام تفضل أخي الكريم ان شاءالله يكون هو المطلوب بالتوفيق اريد تكرار سجل.accdb

تفضل استاذ عمر ان شاءالله يكون هو المطلوب بالتوفيق 123456.accdb

يحفظك ربي اخي العزيز بالتوفيق

أخي الكريم فقط غير اسم المتغير Dim i As Long, k As Long الى اي اسم اخر مثلا Dim ixx As Long, K As Long وايضا غير هذا السطر For i = 1 To k For ixx =1 To K وايضا هذا السطر Next i Next ixx بالتوفيق

تفضل اخي الكريم جرب التعديل واخبرنا بالنتيجة test.rar

وعليكم السلام ورحمة الله وبركاته هل جربت هذا الكود Private Sub sheet_1_Exit(Cancel As Integer) Me.sheet_2.Value = Me.sheet_1.Value Me.Refresh End Sub مجرد فكره بالتوفيق

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