jjafferr

وعليكم السلام 🙂 الرسالة تقول ان هناك اكثر من شخص يقوم بالتعديل على قاعدة البيانات في نفس الوقت ، ولحل هذه المشكلة ، افتح الاكسس "حصرا" لك: - افتح برنامج الاكسس (وليس قاعدة البيانات) ، - اختر قاعدة البيانات ، - استخدم السهم على زر "فتح" ، واختار من القائمة المنسدلة "افتح حصرا" . الموقع التالي يعطيك الطريقة بالصور ، حسب نسخة قاعدة بياناتك : https://www.cocosenor.com/articles/office/how-to-open-access-database-exclusively.html جعفر

وعليكم السلام 🙂 تفضل ، هذه طريقة العمل : وتابع الموضوع الى آخر مشاركة 🙂

شكرا جزيلا ابو احمد 🙂

لوسمحت ترفع الملف على احد مواقع الرفع ، ثم ترفق لنا الرابط هنا

في هذه المشاركة اعلاه :

وعليكم السلام 🙂 ممكن المشكلة الوحيدة اللي شايفها هي ، يجب كتابة اسم الحقل بين قوسين مربعين [] ، وإلا فالاكسس سيعتبرها نص !! وعملت لك تغيير بسيط في الكود : [order_code] & "." & [report_No] & "." & Format([Received_date],"mm") & "." & Format([Received_date],"yy") اذا ما عمل الكود ، سؤالي سيكون: وين مكان الكود ؟

ممتاز 🙂 بس سؤال: ليش تستخدم Pos لمكان بداية الكلمات ، هل Replace ما يكفي؟ شفت الكود اطول في النسخة 4 ، بس ما عرفت شو الفرق في النتيجة ، فيا ريت تخبرنا 🙂 ويا ريت تترك لنا ملاحظاتك في الكود ،خصوصا انه قصير 😁 جعفر

السلام عليكم 🙂 لوسمحت ترفق اكبر ملف عندك ، لازم نجرب عليه 🙂 جعفر

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

وعليكم السلام 🙂 اعمل جدول خاص لهذا ، وتحتاج عمودين على الاقل: نوع_التوصيل ، اسم_الشركة_المخزن مثلا: شركة ، شركة 1 شركة ، شركة محمد شركة ، شركة المواد الغذائية توصيل ، مخزن 1 توصيل ، مخزن 2 توصيل ، مخزن 3 توصيل ، مخزن 4 جعفر

وانزلتها الى صيغة اكسس 2000 🙂 color2.zip

تفضل يا سيدي ، تم حذف الحقول المحسوبة في الجدول 🙂 color.zip وقد تستفيد من الخطوة التي قمت بها : =IIf(IsNull([Forms]![3_JO_Search]![txtSearchText]),[اسم المريض],Replace([اسم المريض], [Forms]![3_JO_Search]![txtSearchText], "<b><font color = red >" & [Forms]![3_JO_Search]![txtSearchText] & "</font></b>"))

هذا مثالك ، مع بعض التعديل ، فيمكنك استعماله بدل مرفقك 🙂 يا سلام ، وتاركني والشايب نتناوش 😁 في الواقع وقفت على هذا الموضوع اكثر من مرة ، ولكن مشاركتك فتحت باب الاجابة بطولها وعرضها ، شكرا لك 🙂 جعفر

عمل واضح ، ومرتب ، وجميل 👍 بتوسيع الكود الاعلاه ، نحصل على : Function chk_De_Select(ctl As Control) If Len(Me.X & "") = 0 Then MsgBox "رجاء اختيار اسم المستخدم" Me.X.SetFocus Me.X.Dropdown GoTo Exit_chk_De_Select End If Dim rs As DAO.Recordset Dim ctl_N As String Try_Again: Set rs = Me.Subformusers.Form.RecordsetClone ctl_N = Replace(ctl.Name, "chk_", "") If rs.RecordCount = 0 Then DoCmd.SetWarnings False DoCmd.OpenQuery "qry_Append_Forms" DoCmd.SetWarnings True Me.Requery GoTo Try_Again Else rs.MoveFirst While Not rs.EOF rs.Edit If ctl.Value = True Then rs(ctl_N).Value = True Else rs(ctl_N).Value = False End If rs.Update rs.MoveNext Wend End If Exit_chk_De_Select: End Function ونناديه من اي من المربعات هكذا (لاحظ اسماء المربعات لتتماشى مع اسماء الحقول) : Private Sub chk_canAdd_AfterUpdate() Call chk_De_Select(Screen.ActiveControl) End Sub Private Sub chk_candelete_AfterUpdate() Call chk_De_Select(Screen.ActiveControl) End Sub Private Sub chk_canedit_AfterUpdate() Call chk_De_Select(Screen.ActiveControl) End Sub Private Sub chk_canopen_AfterUpdate() Call chk_De_Select(Screen.ActiveControl) End Sub وهذا استعلام الالحاق : وللمستخدم الجديد ، انقر على اي من المربعات الاربعة ، واستمر من هناك 🙂 ---------------------------------------------------------------------------------------------------------- ولكن نموذج الشايب لا يُعلى عليه 🙂 جعفر 1565.تفعيل خانة الاختيار.accdb.zip

همممم اذا جاءك مستخدم جديد ، وليس له سجلات اصلا ، فهنا ستحتاج الى استعلام الحاق (لأول مرة فقط) 🙂

ايش رايك بهذا الكود على الطاير: Dim rs As DAO.Recordset Set rs = Me.Subformusers.Form.RecordsetClone if rs.recordcount=0 then rs.addnew 'هنا نضيف السجلات rs.update else rs.MoveFirst While Not rs.EOF rs.Edit If Me.Check25 = True Then rs!canopen.Value = True Else rs!canopen.Value = False End If rs.Update rs.MoveNext Wend end if rs.Close

لا يا جماعة ، المسألة يجب ان تبدأ بالحاق في اول مرة ، ثم تحديث في المرات التالية 🙂 وكذلك فاتحة خير 🙂

السلام عليكم 🙂 تقريبا جميع الوحدات النمطية خضعت للتغيير 🙂 رجاء تجربة جميع الازار 🙂 1566.اخفاء واظهار كائنات الاكسس.accdb.zip

وهنا ستجد طريقة تعديل الكود ليعمل على النواتين: و

وعليكم السلام 🙂 المشكلة ليست في هذا السطر ، وانما في تصريح مكتبة الوندوز SetWindowsHookEx جرب واعمل هذا التغيير : #if win64 then public Declare PtrSafe Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As LongPtr, ByVal hmod As LongPtr, ByVal dwThreadId As Long) As LongPtr #else public Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long #endif

السلام عليكم 🙂 مجرد اقتراح ، وعملته ببرنامج الصور 🙂 بما ان عدد التخصصات قد يزيد ، ولا تتسع له الصفحة ، فاقترح ان يكون تقريرك بالطول ، هكذا (طبعا بتعديل المسميات والارقام 🙂 ) :

هذا الميدان لك ، تفضل 🙂

هممم طيب جرب الآن 🙂 ابدأ الكتابة مباشرة ، وبدون عمل اي شيء آخر ، ثم استخدم الاسهم في اختيار السجل ، وعند الاحتيار انقر على احد الزرين: TAB او ENTER . 1564.مشكلة استخدام السهم في البحث.accdb.zip

وعليكم السلام 🙂 بالفأرة ، هل هذا الذي تريده ؟ جعفر 1564.مشكلة استخدام السهم في البحث.accdb.zip

حياك الله 🙂 اضفت ملاحظات على المشاركة اعلاة لتوضيح الكود 🙂