jjafferr

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

ايش رايك بإجابة صامته . . . جعفر 956.خدمات.accdb.zip

جرب هذا الرابط ، فإنه يقول بانه بإمكانك عمل mdw لبرنامجك ، وقد تستفيد منه: https://www.thegrideon.com/mdb-mdw-in-new-msaccess.html الاكسس الان بصيغة accdb وهو افضل من صيغة mdb ، والذي لا يدعم mdw !! هذا رابط فيه مرفق لشرح عملية الربط http://www.arabmoheet.net/aspnetforum/amf/651c2e3c-c4d8-4c05-bbc9-73c5c48d3356.aspx جعفر

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

السلام عليكم ابو عبدالله حسب علمي ، لا توجد طريقة لعمل مثل اللي يصير عندك ، وحسب ما قرأت في الانترنت ، لا توجد طريقة لعمل مثل اللي يصير عندك ، إلا اذا لم تكن تملك الصلاحية للقيام به (مثل فتح الجدول او فتحه في التصميم) ، واما الصلاحية فليست من البرنامج ، وانما من ملف امان المجموعة MDW ، ففي هذا الملف نعطي صلاحيات المستخدمين ، لكل كائنات البرنامج ، واذا تم عمل برنامج ، وعمل معه هذه الصلاحيات ، فيجب ان يكون ملف الصلاحيات موجود في نفس الكمبيوتر الذي فيه البرنامج ، ونشير الى هذا الملف في مختصر البرنامج (من على سطح المكتب مثلا) ، واما اذا فتحت البرنامج مباشرة وبدون الاشارة الى هذا الملف ، فلن تكون عندك الصلاحية ، ويصير عندك كما هو الحال الآن ، ولا تستطيع تغيير هذه الصلاحيات ، إلا اذا حصلت على الملف الاصل للصلاحيات!! وهذا ينطبق على برامج الاكسس بصيغة mdb و mde ، ولا ينطبق على صيغة accdb و اخواته. جعفر

اضفت وحدة نمطية تقوم بهذا العمل جعفر

انا عملت تعديل على المرفق الاصلي ، ولا يمكن استعمال x للخروج من البرنامج الان فرجاء انزال المرفق مرة اخرى جعفر

ولكن هذا العنصر ليس للنموذج ، وانما هو للبرنامج

الحمدلله

ومشاركة معي اخي الوزير يمكنك استعمال الكود التالي في التقرير ، في حدث تنسيق جزء التفصيل Private Sub تفصيل_Format(Cancel As Integer, FormatCount As Integer) If Me.Alkmiah_mtob = 0 Then Me.Section(acDetail).Visible = False Else Me.Section(acDetail).Visible = True End If End Sub . ولكي ترى النتائج الصحيحة ، يجب ان يكون التقرير في وضع معاينة الطباعة Print Preview جعفر 955.اخفاء القيمه بالتقرير بشرط.accdb.zip

بغض النظر عن استعمال اي كود ، واشوفك استعملت If Not (left(tdf.NAME, 4)) = "MSys" And tdf.NAME <> "User" Then اي استخدمت الفكرة نفسها اللي اخبرتك عنها ، فهل تم عمل اللازم بإستخدام كودك المعدل ؟

جرب هذه الطريقة لفتح البرنامج: افتح الاكسس (مو قاعدة بياناتك ، وإنما برنامج الاكسس) ، ثم اختار قاعدة بياناتك ، واختار Open Exclusive . ثم جرب قراءة الجدول. جعفر

كيف تفتح البرنامج؟ من على سطح المكتب عند النقر على مختصر البرنامج؟

انا ضعت الآن وما اعرف شو طلبك انت طلبت: والآن تقول سؤال: كيف تستعمل هذا البرنامج ، هل هو بصيغة mdb او mde ، وعند الدخول في البرنامج هل تُدخل اسمك وكلمة السر ، وهل تستعمل ملف المجموعات MDW ؟ جعفر

يجب ان يكون عندك في كل نموذج زر خروج

اخوي ابو ياسين 1. قلت لك لا تستعمل If Left(obj.Name, 4) <> "MSys" or obj.name <> "tbl_one" Then وانما استعمل If Left(obj.Name, 4) <> "MSys" And obj.name <> "tbl_one" Then 2. الكود اللي انا وضعته هو تقريبا نفس الكود اللي انت وضعته ، بإستثناء ، ان الكود حقي يجب ان يكون في البرنامج اللي فيه الجداول (سواء مضمنه او مربوطة) وتريد تحذف سجلاتها ، بينما كودك يعمل شوية شغلات اضافية ، بالاضافة الى حذفه لسجلات من برنامج خارجي. جعفر

تفضل . جعفر 950.1.الجمعية_.accdb.zip

1. لا ، ولا انصح بعمل اللي تريده ، ولكن يمكن عمل حقل فوق هذا الحقل (بالضبط ، وبنفس اللون ، ونجعله مخفي ، وليكن اسمه For_New_Record) ، ونكتب في هذا الحقل الغير مضمن ، كلمة (جديد) ، وفي حدث الحالي في النموذج ، نكتب هذا الكود لإخفاء احدهم وإظهار الآخر ، في الوقت الصحيح: Private Sub Form_Current() If Me.NewRecord Then Me.For_New_Record.Visible = True Me.RowID.Visible = False Else Me.For_New_Record.Visible = False Me.RowID.Visible = True End If End Sub . 2. لا يمكنك ان تضيف اي رقم لهذا الحقل ، فالرقم سيظهر تلقائيا عند حفظ السجل ، لذا اقفل هذا الحقل جعفر 953.2.test.accdb.zip

خطأ مطبعي بدل Or اكتب And ، هكذا: If Left(obj.Name, 4) <> "MSys" AND obj.name <> "tbl_one" Then

في الواقع كل اللي كنت محتاج له هو الكود اللي اعطاك اخونا محمد التميمي ولكني اضفت بعض البهارات عليه ، فأصبح: Private Sub Form_Load() DoCmd.GoToRecord , , acLast DoCmd.GoToRecord , , acNewRec Me.التاريخ.SetFocus End Sub جعفر

تفضل ، من هنا

نفس الطريقة ، ولكن اضف اسم الجدول في هذا السطر (مثلا لا نريد الجدول tbl_one ) : If Left(obj.Name, 4) <> "MSys" or obj.name <> "tbl_one" Then جعفر

عملك صحيح 100% والسبب ان التسلسل في النموذج يبدأ بالرقم 3 ، هو لأنك ادخلت هذا السجل كثالث سجل في الجدول ، وهذا طبيعي. السؤال هو: لماذا تريد ان ترى حقل التسلسل ، اجعله مخفي وانتهى الموضوع اما اذا اردت ان ترى تسلسل لسجلات النموذج ، فيمكنك عمل: . وهذه الوحدة النمطية التي تعطي التسلسل في الاستعلام: Public Function RowCounter( _ ByVal strKey As String, _ ByVal booReset As Boolean, _ Optional ByVal strGroupKey As String) _ As Long ' Builds consecutive RowIDs in select, append or create query ' with the possibility of automatic reset. ' Optionally a grouping key can be passed to reset the row count ' for every group key. ' ' Usage (typical select query): ' SELECT RowCounter(CStr([ID]),False) AS RowID, * ' FROM tblSomeTable ' WHERE (RowCounter(CStr([ID]),False) <> RowCounter("",True)); ' ' Usage (with group key): ' SELECT RowCounter(CStr([ID]),False,CStr([GroupID])) AS RowID, * ' FROM tblSomeTable ' WHERE (RowCounter(CStr([ID]),False) <> RowCounter("",True)); ' ' The Where statement resets the counter when the query is run ' and is needed for browsing a select query. ' ' Usage (typical append query, manual reset): ' 1. Reset counter manually: ' Call RowCounter(vbNullString, False) ' 2. Run query: ' INSERT INTO tblTemp ( RowID ) ' SELECT RowCounter(CStr([ID]),False) AS RowID, * ' FROM tblSomeTable; ' ' Usage (typical append query, automatic reset): ' INSERT INTO tblTemp ( RowID ) ' SELECT RowCounter(CStr([ID]),False) AS RowID, * ' FROM tblSomeTable ' WHERE (RowCounter("",True)=0); ' ' 2002-04-13. Cactus Data ApS. CPH ' 2002-09-09. Str() sometimes fails. Replaced with CStr(). ' 2005-10-21. Str(col.Count + 1) reduced to col.Count + 1. ' 2008-02-27. Optional group parameter added. ' 2010-08-04. Corrected that group key missed first row in group. Static col As New Collection Static strGroup As String On Error GoTo Err_RowCounter If booReset = True Then Set col = Nothing ElseIf strGroup <> strGroupKey Then Set col = Nothing strGroup = strGroupKey col.Add 1, strKey Else col.Add col.Count + 1, strKey End If RowCounter = col(strKey) Exit_RowCounter: Exit Function Err_RowCounter: Select Case Err Case 457 ' Key is present. Resume Next Case Else ' Some other error. Resume Exit_RowCounter End Select End Function Public Function Reset_RowCounter() Call RowCounter(vbNullString, False) End Function جعفر 953.test.accdb.zip