jjafferr

الحمدلله 🙂

وعليكم السلام 🙂 ان شاء الله طريقتي تعجبك 🙂 . . Private Sub VeiwReportBtn_Click() On Error GoTo Err_VeiwReportBtn_Click Dim qry_0 As String, qry_1 As String qry_0 = "Select * From qry_Table2_Empty_One_Record" qry_1 = "Select * From qry_Table2" DoCmd.DeleteObject acQuery, "tqry_SubReport" If DCount("*", "Table2", "T1ID=" & Me.IdCbo) = 0 Then CurrentDb.CreateQueryDef "tqry_SubReport", qry_0 Else CurrentDb.CreateQueryDef "tqry_SubReport", qry_1 End If Dim stDocName As String stDocName = "Report1" DoCmd.OpenReport stDocName, acViewPreview, , "[ID]=" & Me.IdCbo Exit_VeiwReportBtn_Click: Exit Sub Err_VeiwReportBtn_Click: If Err.Number = 7874 Then 'query tqry_SubReport does not exist, ignore Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If Resume Exit_VeiwReportBtn_Click End Sub جعفر 1523.ShowReportInNoDate.accdb.zip

وعليكم السلام 🙂 رجاء مراعاة كتابة اسم صحيح للموضوع ، يدل على محتواه 🙂 تفضل طلبك: . جعفر

تم فصل مشاركات اخونا rockjone33 الى موضوع مستقل ، شكرا لك اخوي ابو احمد على ملاحظتك 🙂 جعفر

هذه الرسالة للجميع ، فاذا احببت ان تدلو بدلوك في ذلك الموضوع 🙂 جعفر

شكرا جزيلا اخوي ابو احمد على التوضيح 🙂 جعفر

تفضل جعفر

شوف مرفقي لوسمحت ، فانا اوقفت هذا الحدث 🙂 جعفر

وعليكم السلام 🙂 تفضل: . وهذا يحدث بهذا الكود: Private Sub Form_Current() Dim rst As DAO.Recordset Dim strFile As String Set rst = Me.tabl2.Form.RecordsetClone rst.MoveFirst Me.lst_Files.RowSource = "" Do Until rst.EOF Debug.Print rst!noid Me.lst_Files.AddItem ">" & rst!noid 'Now lets find how many files we have strFile = Dir(Application.CurrentProject.Path & "\Datapdfx\*" & rst!noid & "*.pdf") Do Until strFile = "" Debug.Print strFile Me.lst_Files.AddItem strFile strFile = Dir() Loop Me.lst_Files.AddItem "" rst.MoveNext Loop End Sub Private Sub lst_Files_DblClick(Cancel As Integer) Dim pdfPath As String If Left(Me.lst_Files, 1) = ">" Then Exit Sub pdfPath = CurrentProject.Path & "\Datapdfx\" & Me.lst_Files Shell "explorer.exe " & pdfPath, vbNormalFocus End Sub جعفر dataPdf.zip

المعذرة ، كنت اريد فقط ان الفت انتباهكم الى مشاركتي في موضوع آخر ، برجاء اذا ممكن القاء نظرة عليه ، فلم اتوصل الى معرفة الطريقة !! جعفر

وعليكم السلام 🙂 انزلت المرفق ، اوقفت الكود ، ولكني لازلت لا ادري من اين/كيف يتم ادخال البيانات في بقية الحقول !! لما تختار من مربع السرد ، يتم ملئ الحقول بالبيانات صحيحة ، ولكن كما قلت ، لا اعرف كيف تتم نقل البينات الى الحقول !! جعفر 1521.Combobox_AfterUpdate.accdb.zip

اللي قبلك كان اشطر منك (انا في هذه الحالة 🙂) ، استعملتها في البداية ، واذا بالحقل "g1s3" يعرض لي تاريخ مال زمان 30/10/1899 ، فاضطررت ان اصطاد اخطاء الكود واضبط تاريخ الحقل 🙂 فكرة جميلة 🙂 جعفر

اهلا وسهلا بك مرة اخرى

وعليكم السلام 🙂 اجعل اسم الزر cmd_clear_fields ، ثم ضع الكود في حدث النقر على الزر: Private Sub cmd_clear_fields_Click() On Error GoTo err_cmd_clear_fields_Click Dim ctl As Control For Each ctl In Me.Controls If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Then If ctl.Name <> "g1s11" And _ ctl.Name <> "g1s12" And _ ctl.Name <> "g1s13" And _ ctl.Name <> "g1s14" And _ ctl.Name <> "g1s15" Then ctl.Value = "" End If End If Next Exit_cmd_clear_fields_Click: Exit Sub err_cmd_clear_fields_Click: If Err.Number = 2448 Then 'can't change autonumber Resume Next ElseIf Err.Number = 3314 And ctl.Name = "g1s3" Then 'a date must be entered ctl.Value = Date Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If Resume Exit_cmd_clear_fields_Click End Sub جعفر up.zip

همممم يعني صدق ناوي تجمع فريق الشباب الشايب في موضوع واحد 😁 استراتيجتي في المشاركات: اذا عندي شيء مفيد ، فأكتب مشاركة ، وإلا فاكون متابع بصمت 🙂 جعفر

وعليكم السلام ورحمة الله وبركاته 🙂 هذه معادلتك: اذا ممكن تنورنا اكثر ، شو هذه المعادلة ، ومن وين حصلت عليها ، وشو اللي يخليها مختلفة عن غيرها ، وشو اللي يخليها بهذه الدقة؟ جعفر

وعليكم السلام 🙂 كود اخوي موسى ، ولكن بطريقتي 🙂 Sub CopyFile() Dim sPathDeskTop As String sPathDeskTop = Environ("USERPROFILE") & "\Desktop" & "\b\" ' هنا اسم المجلد الذي سيتم انشاؤه في سطح المكتب Dim CopyFrom As String, CopyTo As String CopyFrom = Me.a ' هذا اسم الحقل الذي به رابط الملف المراد نسخه CopyTo = sPathDeskTop & Dir(CopyFrom) If Len(Dir(sPathDeskTop, vbDirectory)) = 0 Then MkDir (sPathDeskTop) If Len(Dir(CopyTo, vbDirectory)) = 0 Then FileCopy CopyFrom, CopyTo Else MsgBox "هذا الملف موجود مسبقا على سطح المكتب", vbOKOnly Exit Sub End If End Sub جعفر

للأسف احي احمد ، ما نقدر نعطيك جواب ، لأنه (والحمدلله) لم تحصل لنا المشكلة فنخبرك عن طريقة الحل ، وإنما نبحث ونقرأ عن الموضوع في الانترنت ، ونخبرك بالنصائح الموجودة ، وعليك التجربة 🙂 في هذه المحاولة ، ادخل مسار الشبكة في الرقم 7 (و اعد تشغيل الكمبيوتر) : .

اخي حامل المسك ، شكرا جزيلا على هذا الاطراء الجميل ، ولك مثل ما دعوت لي ، ومن اهمك امرهم 🙂 جعفر

الله يسلمك ، نتيجة الحقل مثل ما يقول اكسس هو : 2022-2021 وهذا ليس حقل تاريخ ، وانما حقل نص !! جعفر

شكرا اخوي موسى 🙂 وهذا رابط أخر ، فيه شرح يخص الاستعلام : جعفر

الظاهر حظي فوق النخل اليوم 🙂 ابو عبدالله جاب اسمي مرتين ("هارد لك" اخوي موسى ، مع اننا نعرف انك المقصود بالاسم الاول 🙂 ) جعفر

السلام عليكم 🙂 حسب قرأتي من موقع مايكروسوفت الآن https://techcommunity.microsoft.com/t5/microsoft-365-blog/helping-users-stay-safe-blocking-internet-macros-by-default-in/ba-p/3071805 مايكروسوفت عملت تحديث يقوم بإلغاء التحديث الذي عمل المشكلة اعلاه ، لذا ، رجاء عمل تحديث للكمبيوتر الذي يحتوي على ملف الواجهة والكمبيوتر الذي يحتوي على ملف الجداول ، ورجاء إخبارنا عن النتيجة 🙂 جعفر

وعليكم السلام ورحمة الله وبركاته 🙂 اخوي موسى اعطاك سمكة ، واليك طريقة اصطياد السمكة بطريقة سهلة 🙂 جعفر

حياك الله اخوي ابو احمد في بيتك الافتراضي وسط اخوتك 🙂 جعفر