kanory

اخي واستاذي الغالي @Eng.Qassim وما انا عنك ببعيد ... نسأل الله حسن الختام

جرب كده .............. عند حدث الفتح ... DoCmd.SetOrderBy "datet, fonction, name ASC"

جرب اذا كان مناسب لك ....... Desktop.rar

انظر .....

تفضل <><><><><><><><> وممكن تختصر الفلم الموجود في التقرير بهذا .... انا تركتها للتوضيح فقط للتاريخ =Format(Date();"dd/mm/yyyy") للوقت =Format(Time();"hh:nn:ss ampm") sptialtest.accdb

اعمل زر وضع فيه التالي :::: Me.QareeWeb.SetFocus DoCmd.RunCommand acCmdInsertHyperlink جرب واخبرنا

طيب طالما انه زر ... جرب هذا ... Dim obj As AccessObject For Each obj In CurrentProject.AllForms If obj.IsLoaded And Not obj.Name = "FormToKeepOpen" Then DoCmd.Close acForm, obj.Name End If Next obj For Each obj In CurrentProject.AllReports If obj.IsLoaded And Not obj.Name = "ReportToKeepOpen" Then DoCmd.Close acReport, obj.Name End If Next obj او ادرج مثال مصغر للتطبيق ....

جرب هذا .... Sub CloseAllFormsAndReportsExceptOne() Dim obj As AccessObject For Each obj In CurrentProject.AllForms If obj.IsLoaded And Not obj.Name = "FormToKeepOpen" Then DoCmd.Close acForm, obj.Name End If Next obj For Each obj In CurrentProject.AllReports If obj.IsLoaded And Not obj.Name = "ReportToKeepOpen" Then DoCmd.Close acReport, obj.Name End If Next obj End Sub

زيادة لما تفضل به استاذنا @Moosak استخدم هذا ... جرب ... Private Sub Report_Open(Cancel As Integer) DoCmd.Maximize Me.kan.Left = (Me.Width - Me.kan.Width) / 2 End Sub

علما بان الاكسس مهيأ لفعل ماتريد لكن هل ممكن مثال لما تريد بالضبط مع شرح ومرفق للتطبيق عليه حتى يسهل فهم طلبك بارك الله فيك

انظر هل هذا ما تريد """""" test (1).mdb

لقد اضفت ( صالح - محمد - احمد - عبدالهادي ) انظر الصورة وعرضتها ولم اجد المشكلة التي لديك في الشرح ؟؟؟؟؟؟

خطأ لأنك تحتاجها في عميليات اخرى ... مثل الجرد نقل عهده ... الخ ..

السبب عدم تحديد مصدر لبياباتها في الجدول أو الاستعلام ..... اجعل لها حقل لتسجيل بياناتها ....

لم افهم عليك بالنسبة للطلب الاول .... اذا تم اخفائها فيتم اخفائها في النموذج الرئيسي والفرعي معا ..... وعند الاظهار يظهرها جميعا دفعة واحد ... هل هذا هو المطلوب ؟؟؟؟؟ اما المطلوب الثاني .... فستخدم هذا الكود .... Dim X$ Dim dirr As String Dim i As String i = Nz(Me.k_code, 0) dirr = CurrentProject.Path & "\files\" & i & ".tif" X$ = Dir$(dirr) If X$ = "" Then MsgBox "It does Not exist!", vbExclamation, "Doesn't Exist" Else ShellExecute Me.hwnd, "open", dirr, "", "", 1 End If

استخدم هذا البرنامج

انظر الصورة ::::: - استخدم هذا الكود في الحدث الموضح في الصورة - يجب ان يكون النموذج مفتوحا ليعمل If Me.tab.Value = Time() Then PlaySound (Application.CurrentProject.Path & "\tab.wav") End If

لاننا لسنا محترفين يجب عليك تزويدنا بمثال لنفهم ما تريد ..... على كل حال هذا الكود يقوم بالمطلوب .... On Error Resume Next Dim db As DAO.Database Dim rs As DAO.Recordset Dim x, z As String Set rs = CurrentDb.OpenRecordset("Table") If Not rs.BOF And Not rs.EOF Then rs.MoveFirst While (Not rs.EOF) x = rs!key rs.Edit rs!PicPath2 = Application.CurrentProject.Path & "\" & "Pictures" & "\" & x rs.Update rs.MoveNext Wend End If rs.Close Set rs = Nothing DoCmd.Requery MsgBox "تم التعديل"

جرب المرفق ..... ملف.accdb

Sub CreateFolder() Dim folderPath As String folderPath = "C:\Users\UserName\Desktop\NewFolder" If Dir(folderPath, vbDirectory) = "" Then MkDir folderPath MsgBox "Folder created successfully!" Else MsgBox "Folder already exists!" End If End Sub

البرنامج شغال وما في مشكلة انظر <><><><<>

في المثال عبارة عن ترجمة اسماء ....... هل ملفك الاساسي هو ترجمة ام هذا مجرد مثال فقط .....

ليش ما يكون عن طريق ربط الجدولين بعلاقة ثم عمل استعلام لها ..... انظر او استخدم طريقة موضوعك السابق ............................