سامي الحداد

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

اخي الكريم اليك التعديل في المرفق المستخدمين AA و BB كلمة السر 555 . p1 123 p5 123 بالتوفيق Asd New.rar

اخي العزيز بالنسبة للمشكلة الاولى اليك التعديل في المرفق اما بالنسبة للمشكلة الثانية سوف احاول ان شاءالله . asd4.rar

الله يسعدك أخي العزيز الشكر لله ولهذا المنتدى ولكل الأخوة والأستاذة الذين نتعلم منهم . بالتوفيق.

تفضل اخي هل هذه هي فكرتك ارجو اعلامنا بالنتيجة asd.accdb

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

تفضل اخي الكريم هل هذا هو المطلوب. وافنا بالنتيجة تحياتي 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