jjafferr

وعليكم السلام بما اني لم اجرب هذا الشيء ، فاضطررت ان ابحث عنه ، ولقيت هذين الحلين من هنا: https://answers.microsoft.com/en-us/office/forum/office_2010-access/open-accdr-file-protected-with-database-password/0c363087-577e-4888-a970-d2a67276bae5?page=3 الاول يتطلب ادخال الباسورد Dim strPath As String strPath = "YourPath\To\OtherDatabase.accdr" Application.FollowHyperlink strPath والاخر Sub StartPasswordedDatabaseRuntime( _ strPathToDatabase As String, _ Optional strPassword As String, _ Optional strPathToRuntime As String, _ Optional blnQuit As Boolean) ' Start a runtime database that has a database password. Dim appRT As Access.Application Dim strPathToDummy As String Dim blnStillOpen As Boolean Const Q As String = """" If Len(strPassword) = 0 Then strPassword = InputBox("Please enter password:") End If If Len(strPathToRuntime) = 0 Then strPathToRuntime = SysCmd(acSysCmdAccessDir) & "msaccess.exe" End If strPathToDummy = CurrentProject.path & "\Dummy.accdb" If Len(Dir(strPathToDummy)) = 0 Then Application.DBEngine.CreateDatabase strPathToDummy, dbLangGeneral, dbVersion120 End If Shell _ Q & strPathToRuntime & Q & " " & Q & strPathToDummy & Q & " /runtime", _ vbNormalFocus Set appRT = GetObject(strPathToDummy) With appRT .CloseCurrentDatabase .OpenCurrentDatabase strPathToDatabase, , strPassword End With On Error Resume Next blnStillOpen = True Do While blnStillOpen DoEvents Err.Clear If appRT Is Nothing Then blnStillOpen = False ElseIf Len(appRT.CurrentProject.path) = 0 Then blnStillOpen = False End If If Err.Number <> 0 Then blnStillOpen = False End If Loop If blnQuit Then Application.Quit ' if we're done here. End If End Sub جعفر

السلام عليكم اخوي ابو زاهر اذا كان النموذج مستمر: فأي تنسيق/تغيير تعمله على حقل ، فجميع الحقول تأخذ هذا التنسيق/التغيير ، فالطريقة الوحيدة لعمل تنسيق/تغيير على حقل معين ، هو عن طريق التنسيق الشرطي (سواء يدويا في النموذج مباشرة ، او عن طريق الكود). جعفر

بالعكس ، اكثر من مشاركة تعتبر اثراء للموضوع واذا لاحظت ، فانا لم اشير الى SetFocus في مشاركتي جعفر

وعليكم السلام 1. للتنقل بين كائنات النموذج ، انظر هنا وللعلم ، الايقونه (الصورة) تعتبر كائن في الاكسس ، 2. مادام نموذج الاكسس مصدر بياناته مرتبط بجدول/استعلام ، فهو يحفظ البيانات تلقائيا ، بزر او بدون زر ، فاذا اردت ان تحفظ البيانات بزر ، فيجب ان التعامل لحفظ البيانات بالكود. جعفر

وعليكم السلام نعم ، تظهر هذه الرسالة مرة واحدة فقط عند التشفير ، فما هي المشكلة؟ جعفر

If txtc > 0 Then Beep If MsgBox("...هذا الفصل " & الاحد1 & "..لديه مادة.." & vbCrLf & _ " باسم : " & txtc2 & vbCrLf & _ " للمدرس : " & txtc3, _ vbYesNo + vbCritical + vbMsgBoxRight, "تنبيه") = vbNo Then Cancel = True End If End If

اليك رابطين و و http://www.databasedev.co.uk/report_printing.html جعفر

تقريبا صحيح ، ولكن تحتاج تفصيل شوي: لما تجيب البيانات من الجدول ، ثم تشتغل عليها في النموذج/الاستعلام/التقرير/الكود ، تستخدم Sum ، مثل في النموذج (كما هو الحال في مثالك)، ومثل استخدام الامر Sum في الاستعلام ، ولكن ، وبغض النظر اين كنت ، وقد تكون قد جلبت البيانات من الجدول ، فعند استخدام DSum ، فانت تطلب البيانات من الجدول مرة اخرى جعفر

وعليكم السلام اخي عبد اللطيف الاوامر Dcount و Dsum و Dlookup و Dmax Dmin و Dlast ، هي عبارة عن استعلام يأخذ بياناته من الجدول او الاستعلام (في نهاية الامر المعلومة تكون مأخوذه من الجدول) ، ولهذا السبب ، وخصوصا اذا كان البرنامج في شبكة ، فيجب علينا اخذ اكبر قدر من البيانات في كل مرة نزور فيها الجدول ، يعني نقلل عدد الزيارات للجدول قدر الامكان ، حتى يقل الضغط على الشبكة ، ويقل الضغط على الجداول ، فتعمل الخلفية/الجداول بطريقة افضل ، فعليه ، واذا اخذنا البيانات من الجداول الى النموذج في الواجهة (كما هو الحال في برنامجك المرفق) ، فيجب ان نستفيد من هذه البيانات لحساب/جمع/طرح المطلوب ، ولا نرجع للجدول لأخذ بيانات صارت موجودة في النموذج ، فبدل ان نستعمل DCount ونأخذ البيانات من الجدول ، نستطيع استعمال Count ، والتي ستحسب البيانات من النموذج ، هكذا: . ولمزيد من التوضيح عن اخذ بيانات اكثر من حقل واحد من الجدول ، دفعة واحد ، بإستخدام اوامر DLookup : https://www.officena.net/ib/topic/61152-سؤال-فى-الاختيار-من-كمبوبوبكس/?tab=comments#comment-394338 ولتوضيح الرابط اعلاه https://www.officena.net/ib/topic/77349-dlookup-للبحث-فى-حقلين-مدموجين-ثم-توزيع-الناتج-على-مربعى-نص-بالتقرير-إبداعات-الأخ-جعفر/?do=findComment&comment=496423 جعفر

وعليكم السلام يا سيد جمال لم اضطر لعمل الذي تقوم به ، لذلك فليس عندي خبرة في الموضوع ، ولكن وبعد البحث ، توصلت الى الروابط الاجنبية التالية: 1. الخطوات كامله ، بدون كود https://www.askvg.com/guide-how-to-take-ownership-permission-of-a-file-or-folder-manually-in-windows/ 2. استخدام الكود ، من الرابط: https://answers.microsoft.com/en-us/windows/forum/windows_7-security/in-windows-7-getting-error-access-denied-when/42e8d16a-6f7a-e011-9b4b-68b599b31bf5 Method 2: Taking ownership of a folder from command line Open an elevated Command Prompt window. To do so: 1. Go to > Start > All Programs > Accessories 2. Right-click on Command Prompt, and then click Run as Administrator. 3. Type the following command and press ENTER: takeown /f <foldername> /r /d y 4. To assign the Administrators group Full Control Permissions for the folder, use this syntax: icacls <foldername> /grant administrators:F /T The /T parameter is added so that the operation is carried out through all the sub-directories and files within that folder. 5. To know more information about the above commands, run these commands from a Command Prompt window. takeown /? icacls /? Once you take ownership, you can grant permissions on those folders. . 3. الإستعانة ببرنامج خارجي ، وبدون كود: https://www.askvg.com/add-take-ownership-option-in-file-folder-context-menu-in-windows-vista/ جعفر

وعليكم السلام تفضل مع مراعاة الملاحظة: بدل If ctl.ControlType = acTextBox Then اكتب If ctl.ControlType = acTextBox or ctl.ControlType = accombobox Then جعفر

هلا والله بأخوي كاسر if obj.name <>"tbl_2" or obj.name <>"tbl_3" or obj.name <>"tbl_4" then بينما ، وعلشان يكون المثال اعم ، اذا اردنا حذف بيانات مجموعة معينة من الجداول فقط ، فيمكننا عمل: if obj.name ="tbl_2" or obj.name ="tbl_3" or obj.name "tbl_4" then او طبعا dbs.execute ("delete * from tbl_2") dbs.execute ("delete * from tbl_3") dbs.execute ("delete * from tbl_4") . جعفر جعفر

تفضل if MsgBox "...هذا الفصل " & الاحد1 & "..لديه مادة.." & vbCrLf & _ " باسم : " & txtc2 & vbCrLf & _ " للمدرس : " & txtc3, _ vbYesNo + vbCritical + vbMsgBoxRight, "تنبيه" = vbno then cancel=true end if جعفر

السلام عليكم حيالله اخوي محمد ، من زمان ما سمعنا منك . اذا افترضنا ان الجدول الذي لا نريد حذف بياناته ، اسمه tbl_2 ، فيصبح الكود: Sub AllTables() Dim obj As AccessObject, dbs As Object Set dbs = Application.CurrentData For Each obj In dbs.AllTables if obj.name <>"tbl_2" then 'docmd.setwarning false 'docmd.runsql("Delete * From " & obj.Name 'docmd.setwarning true dbs.execute("Delete * From " & obj.Name end if Next obj End Sub جعفر

وعليكم السلام غالبا لتصغير البرنامج ، عمل ضغط واصلاح يكون كافي. ومن الاكسس ، اخذت هذا الكود وعدلت عليه ، يقوم هذا الكود بحذف البيانات من جميع الجداول ، ولاحظ بأني استخدمت طريقة اخوي @kanory ، لأني ما اريد احصل على رسائل اكسس ، ومن ضمن الرسائل ممكن تكون رسالة بعدم امكانية حذف بيانات جدول بسبب ارتباطه بجدول آخر !! : Sub AllTables() Dim obj As AccessObject, dbs As Object Set dbs = Application.CurrentData For Each obj In dbs.AllTables 'docmd.setwarning false 'docmd.runsql("Delete * From " & obj.Name 'docmd.setwarning true dbs.execute("Delete * From " & obj.Name Next obj End Sub . وبعد هذا اعمل ضغط واصلاح. جعفر

سؤالك غير واضح اخوي وضاح ، رجاء توضح اكثر جعفر

شو هذه الوحدة النمطية؟ وشو الغرض منها؟ جعفر

وعليكم السلام اخوي حربي اعصابك اعصابك ، تعطينا ساعة ونص ، ومستعجل علينا ، بينما اكيد كان الموضوع عندك ايام وايام وما كنت مستعجل عليه الاستعلام هو اساس كل شيء في موضوعك ، فالجمع يتم من هنا . والنتيجة . ورجاء ، لما تخلص الاشياء الثانية من التقرير ويصبح بصورته النهائية ، رجاء ارفقه لنا ، حتى يستفيد منه الجميع جعفر 941.DBCollg1.mdb.zip

وعليكم السلام واهلا وسهلا بك في المنتدى رجاء اعطاء معلومات إضافية ، مثل الكود ، ومتى تحصل على الرسالة ، واي معلومة اخرى ممكن تفيدنا في الرد قواعد المشاركة فى الموقع و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف جعفر

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

تفضل كودك كان سطر واحد ، فمن الصعب معرفة تفاصيله وتغييره ، ولكن لما تفكه الى عدة اسطر ، تستطيع تغييره بسهولة: MsgBox "...هذا الفصل " & الاحد1 & "..لديه مادة.." & vbCrLf & _ " باسم : " & txtc2 & vbCrLf & _ " للمدرس : " & txtc3, _ vbYesNo + vbCritical + vbMsgBoxRight, "تنبيه" . ولكن هذا الكود يعطيك زر نعم/لا ، ولا فائدة منه بدون ان يعرف البرنامج ماذا يعمل ، اذا نقر المستخدم على الزر نعم او لا !! جعفر

وعليكم السلام اخوي حمدي ادخل في اكواد VBA عن طريق: Ctrl+G او Alt+F11 ، ثم : 1. اضغط على F1 من الكيبورد ، بيظهر لك مساعد الاكسس: 2. اكتب msgbox للبحث عن هذا الامر ، 3. ستجد شرح كامل عن جميع مكونات هذا الامر ، والاوامر التي تستطيع استعمالها فيه ، 4. بالاضافة الى وجود مثال جاهز تستطيع ان تأخذ نسخه منه ، وتغيره حسب حاجتك جعفر