عمر ضاحى

اشكرك على مشاركة هذا الكود الجميل 🌹

ما شاء الله على ابدعاتك تسلم ايديك اخوي 🌹❤️

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

هل تم حل المشكلة معاك ؟ اذا نعم اختر افضل اجابة

الحمد لله تحت امرك

اخي الحبيب انت لم تضع اى حقول فى النموذج فكيف تتوقع ظور اى نتائج ؟😅 فقط ضيف الحقول وكل شئ شايف شغال تمام

اخي الحبيب @moho58 حسب رسالتك معي على الخاص فان المشكله معاك تحدث عندما تحاول ادراج ملف بعد ان تكتب السنه او اى شئ وهذا يحدث بسبب الاتي وانك عندما تبدأ فى تسجيل مثلا السنه فانك بالفعل مازلت فى وضع السجل الجديد وبالتالى لما تضغط على الزر لتحديد الملف فانك بالفعل ايضا فى وضع السجل الجديد ومفيش معرف تم حفظه جديد علشان يتم الربط به وبالتالى الحل ان تسجل السنه واي شئ اخر انت تريده وتنتقل لاى سجل اخر علشان يتم الحفظ ثم بعدها ترفق الملف ام ممكن تجرب فى حدث بعد التحديث ان تجعل النموذج يعمل Requery مثل هذا الكود Private Sub annee_dossier_AfterUpdate() Form.Requery End Sub Private Sub titre_f_AfterUpdate() Form.Requery End Sub وبكده مشكلتك هتتحل ان شاء الله اتمني ان اكون قدرت اوصل لك المعلومه بشكل صحيح

ممكن اعرف هر مش شغال ازاى معاك يعنى ايه الخطأ ال بيظهر لك وهل جربت تعملDebug compare للتأكد ان مفيش حاجه مفقوده

بالنسبخ للخطأ فى كود الحذف قمت بتعديله (الذى قمت به اني غيرت ترتيب اجراء الكود وحطيت فى حالة ان الملف غير موجود قد يظهر خطأ فتم معالجته لكي لا يظهر رسالة) المرفق base_mu.rar

معلش كنت بعت لكي الكود من غير ما اجربه لاني مكنتش على الكمبيوتر فى النموذج الرئيسي عندك فى Detail فى حدث On Format قومي بوضع هذا الكود Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) If Me.H.Report.HasData Then Me.H.Visible = True Else Me.H.Visible = False End If End Sub

العفو تحت امرك 🌹

اولا العفو بس ما رديتى اذا نجح معكي ام لا ثانيا ممكن فى حدث عند الفتح ضعى هذا الكود Private Sub Report_Open(Cancel As Integer) If Me.اسم_التقرير_الفرعي.Form.RecordCount = 0 Then Me.اسم_التقرير_الفرعي.Visible = False Else Me.اسم_التقرير_الفرعي.Visible = True End If End Sub

هنا السبب ان الحقل يقبل الرقم الصحيح حوله لنوع مزدوج

اولا اهلا وسهلك بيك اخي الكريم بالنسبه لنقطة انك تريد الحذف لوجود اى بيانات للسجل وليس فقط اسم الملف عدل على شروط الحذف If Not IsNull(FileName) Or Not IsNull(annee_dossier) Or Not IsNull(titre_f) Then اما بالنسبه للنقطة الاولى :- ده بسبب ان الكود فى الاصل بيضيف سجل جديد وليس تحديث ولحلها يحتاج لوضع الكثير من الاحتمالات لكن خلينا نبسط الامور حتى لا تثبح معقده وتأخذ وقت استبدل الكود التالى بكود رفع الملف او فتحه Private Sub cmdUploadOpen_Click() On Error GoTo HandleError Dim folderPath As String Dim subFolderPath As String Dim fileDialog As fileDialog Dim selectedFile As String Dim destinationFile As String Dim recordID As String Dim db As DAO.Database Dim rs As DAO.Recordset Dim i As Integer folderPath = CurrentProject.Path & "\AttachedFiles" If Dir(folderPath, vbDirectory) = "" Then MkDir folderPath End If recordID = [Forms]![frm_sader_wared]![SN].Value subFolderPath = folderPath & "\" & recordID If Dir(subFolderPath, vbDirectory) = "" Then MkDir subFolderPath End If If Me.NewRecord Then Set fileDialog = Application.fileDialog(msoFileDialogFilePicker) With fileDialog .AllowMultiSelect = True .Title = "Select Files to Attach" If .Show = -1 Then Set db = CurrentDb() Set rs = db.OpenRecordset("TblAttchedFiles", dbOpenDynaset) For i = 1 To .SelectedItems.Count selectedFile = .SelectedItems(i) destinationFile = subFolderPath & "\" & Dir(selectedFile) FileCopy selectedFile, destinationFile rs.AddNew rs!LSn = recordID rs!FileName = Dir(selectedFile) rs.Update Next i rs.Close Set rs = Nothing Set db = Nothing End If End With ElseIf IsNull(Me.FileName) Or Me.FileName = "" Then Set fileDialog = Application.fileDialog(msoFileDialogFilePicker) With fileDialog .AllowMultiSelect = False .Title = "Select Files to Attach" If .Show = -1 Then Set db = CurrentDb() Set rs = db.OpenRecordset("TblAttchedFiles", dbOpenDynaset) For i = 1 To .SelectedItems.Count selectedFile = .SelectedItems(i) destinationFile = subFolderPath & "\" & Dir(selectedFile) FileCopy selectedFile, destinationFile rs.FindFirst "LSn = " & recordID & " AND ID = " & ID If Not rs.NoMatch Then rs.Edit rs!FileName = Dir(selectedFile) rs.Update End If Next i rs.Close Set rs = Nothing Set db = Nothing End If End With Else Application.FollowHyperlink subFolderPath & "\" & Me.FileName End If Form.Requery HandleExit: Exit Sub HandleError: If Err.Number = 16388 Then Exit Sub ElseIf Err.Number = 490 Then MsgBox "لايمكن فتح الملف لانه مفقود" Exit Sub ElseIf Err.Number = 0 Then Exit Sub Else MsgBox Err.Number & vbNewLine & vbNewLine & Err.Description End If Resume HandleExit End Sub

واياكم (الحمد لله)

اخي الحبيب جرب ازالة دالة format لربما اخطأت فى التقدير جرب هذا السطر strSQL = "INSERT INTO kanory ( a, b, c, d ) SELECT Bdgi.Obsérvation, Bdgi.PDG_Pr, ""02- المداخيل ( الموارد)"" AS Expr1, ""1"" AS Expr2 FROM Bdgi " & vbCrLf & _ "WHERE (((Bdgi.PDG_Date) Between [Forms]![FrmMasarif_Trémestre]![Date_First] And [Forms]![FrmMasarif_Trémestre]![Date_End]));"

ما الخطأ الذي ظهر لك؟

اضف زر فى نموذج tabl1 واضف هذا الكود له Dim filter As String filter = "" If Not IsNull(Me.sana) Then filter = filter & "sana = '" & Me.sana & "' AND " End If If Not IsNull(Me.rakm) Then filter = filter & "rakm = '" & Me.rakm & "' AND " End If If Not IsNull(Me.wadia) Then filter = filter & "wadia = '" & Me.wadia & "' AND " End If If filter <> "" Then filter = Left(filter, Len(filter) - 5) End If DoCmd.OpenForm "tabl", , , filter

ارفع ملف للعمل عليه مع توضيح اين تريد ان يظهر القيمه

وهنا اعطيك حل للما سبق ذكره strSQL = "INSERT INTO kanory ( a, b, c, d ) " & vbCrLf & _ "SELECT Bdgi.Obsérvation, Bdgi.PDG_Pr, ""02- المداخيل ( الموارد)"" AS Expr1, ""1"" AS Expr2 FROM Bdgi " & vbCrLf & _ "WHERE (((Format([PDG_Date],""dd-mm-yyyy"")) Between [Forms]![FrmMasarif_Trémestre]![Date_First] And [Forms]![FrmMasarif_Trémestre]![Date_End]));" ده بس انتبه ان لا يستخدم المتغير فى شئ اخر غير التاريخ ولازم تعلن عنه وغير كده انا شايف ان المتغيرات هنا ما لها لزمه معاك

اخي الحبيب كريم يبدو ان هناك شئ فهم او تقصير مني الاكسيس برنامج يقوم زيه زي اى برنامج له اجراءات يقوم بتنفيذها حسب ما انت وضعتها انت توريني صور للجدول لكن الاكسيس كيف هيعرف ان الثالث الاول هو التاريخ من الى لازم تعرف ده باى وسيه والاسهل ليك ان تقوم بوضع حقلين لهذه الفتره وانت بالفعل عامل كده لكن المشكلة ان انت بالفعل معلن عن المتغير D1 وهو بيستخدم فى اجراءات اخري وبيحمل قيمة نصيه الحل اما تلغي موضوع المتغيرات وتضع مسار حقل التاريخ مباشرة او انك تعلن عن متغيرين جديد وانا افضل الحل الاخر وايضا افضل استخدام دالة Format علشان توحد صيغة التاريخ وميحشلش مشكلة

ممكن تستخدم متغير tempvars مثل tempvars!username = اسم المستخدم وده ضعهدداخل الاجراء لما يكون اسم المستخدم وكلمة المرور صحيحه وبعدها حط tempvars! username فى اى ماكن تريد يظهر قيمته فيها

طيب هو بياخد التواريخ من اين؟ انت شايف النتيجه؟ راجع المعطيات هتحل المشكله ان شاء الله

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

ايه المشكلة تحديد معاك ارفع صورة بالمشكله وبلاش تستخدم موقع https://top4top.io لانه محجوب عندي