jjafferr

اما انا فمتوقف ، لأني واخيرا استطعت ان اوصل خطأ الفكرة الى ابو ياسين جعفر

السلام عليكم انا لا احب input mask ، لأنه يقيد المستخدم ، ولازم تبدأ تكتب من اول السطر ، واذا اخطأت واردت ان تتراجع وووو لذلك اليك طريقة اسهل: اكتب اللي تريده في التنسيق ، هكذا . والبرنامج راح يغيره الى . والنتيجة . جعفر 885.Dash.accdb.zip

اذا كان قصدك نموذج وجدول سند_صرف (وليس رقم_السند ، لأنه اصلا لا يوجد في برنامجك نموذج او جدول بهذا الاسم) ، فمافي فرق تأخذ المعلومة من ايهم ، لأن مصدر بيانات النموذج هو الجدول سند_صرف ايضا!! . جعفر

آعتذر منك ، من قراءتي السريعة للموضوع اعتقدت بأنها شيء جديد فالظاهر يجب ان تتجه الى شراء برنامج يقوم بإخفاء المجلدات ، ولكن يجب التأكد من انه تستطيع السيطرة عليه عن طريق Command line ، والذي تستطيع من الاكسس التحكم فيه. جعفر

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

وعليكم السلام اخي أوس ظاهرا من هذا الرابط انه ممكن: https://operating-systems.wonderhowto.com/how-to/lock-folder-without-any-software-with-password-0150639/ جعفر

السلام عليكم نعم هو هذا ما اقصده يعني الآن رجعنا الى مقارنة: قيمة حقل البيان اللي في النموذج ، مع الحقل البيان في الجدول حركات ، وقيمة حقل التاريخ اللي في النموذج ، مع الحقل تاريخ الحركة في الجدول حركات. للأسف هذا غير كاف للمقارنه ، فانت محتاج الى حقل ثالث للمقارنه ايضا ، اخبرك ليش: يوم 18/01/2018 جاءك المرسام وطلب دفعة من الحساب ، فيقارن الكود بيانات النموذج والجدول حركات ، ولا يلاقي هذا التاريخ ولا البيان ، فيتم حفظ التاريخ والبيان في جدول حركات ، ثم في نفس اليوم 18/01/2018 جاءك عالم النسيج وطلب دفعة من الحساب ، فيقارن الكود بيانات النموذج والجدول حركات ، ويلاقي هذا التاريخ و البيان ، فلن يحفظ هذا السجل !! لا يتم حفظ سجل عالم النسيج ، مع انه لا علاقة بين عالم النسيج والمرسام !! لهذا السبب انت بحاجة الى حقل ثالث للمقارنة ، وهو حقل اسم_المورد ، ولكن هذا الحقل لا يوجد في جدول حركات (انظر صورة الجدول في الصورة في الاسفل) ، لذا لا تستطيع ان تقوم بالمقارنة الصحيحة ، وعليه كود مقارنة الحقلين غير مجدي وغلط. . البارحة ، وقبل ان اعمل اي شيء ، قمت بتنسيق الكود الذي على الزر ، حتى يكون مفهوما لي: Private Sub أمر29_Click() Dim str1SaveMssage As String Dim strSaveMssage As String DoCmd.Beep If Not IsNull(Me.supplier_name) Then str1SaveMssage = " ســيــتــم تـرحـيـل : " str1SaveMssage3 = " عـلـى حـسـاب : " str1SaveMssage = str1SaveMssage & Me.[payment_amount] & " ريـال " str1SaveMssage3 = str1SaveMssage3 & Format(Me.supplier_name, " ") If MsgBox(str1SaveMssage & str1SaveMssage2 & str1SaveMssage3 & vbCrLf & "", vbYesNo, " بـرنـامـج الـخـيـاط ") = vbNo Then Exit Sub End If criteria = "[البيان]='" & Me.payment_info & "'" criteria = criteria & " and [تاريخ الحركة]=#" & Me.payment_date & "#" Debug.Print criteria If DCount("*", "حركات", criteria) > 0 Then 'If DCount("*", "حركات", "[البيان]='" & Me.supplier & "'" & "and [تاريخ الحركة]<>#" & Me.payment_date & "#") > 0 Then ' Exit Sub 'If DCount("*", "حركات", "[البيان]<>'" Me.supplier & "'" & "and [التاريخ]<>#" & Me.payment_date & "#") > 0 Then 'If supplier = Nz(DLookup("البيان", "حركات"), 0) And Me.payment_date = Nz(DLookup("[تاريخ الحركة]", "حركات"), 0) Then DoCmd.Beep MsgBox "لـقـد تـم تـرحـيـل عـلـى حـسـاب : " & Format(Me.[supplier_name], " ") & " مـن قـبـل ", , " بـرنـامـج الـخـيـاط : " Else DoCmd.SetWarnings False DoCmd.CancelEvent DoCmd.RunSQL ("INSERT INTO حركات ([نوع السند], البيان, الاسم, [تاريخ الحركة], مدين, [user] ) SELECT = ""الموردين"" AS Expr6," & _ """ دفعة "" & [Forms].[سند_صرف]![supplier_name] AS Expr4, = ""الخزينه"" AS Expr2, [Forms].[سند_صرف]![payment_date] AS Expr3," & _ "[Forms].[سند_صرف]![payment_amount] AS Expr5, [Forms].[login]![a] AS Expr1;") DoCmd.SetWarnings True Beep If Not IsNull(Me.supplier_name) Then strSaveMssage = " مـبـلـغ : " strSaveMssage = " تـم تـرحـيـل : " strSaveMssage2 = " عـلـى حـسـاب : " strSaveMssage1 = strSaveMssage1 & " بنـجـاح " strSaveMssage = strSaveMssage & (Me.[payment_amount]) & " ريـال " strSaveMssage3 = strSaveMssage3 & Format(Me.supplier_name, " ") MsgBox (strSaveMssage) & (strSaveMssage2) & (strSaveMssage3) & (strSaveMssage1), vpInFormation, " بـرنـامـج الـخـيـاط " End If 'Not IsNul End If 'DCount End If 'Not IsNul Me.Refresh End Sub جعفر

بالعكس اخوي ابو ياسين ، ادلو بدلوك كذلك ، فزيادة الخير خيرين جعفر

وعليكم السلام اخوي حربي تفضل ، وكلمة السر 1 Private Sub Form_Load() Me.Frm_1!Degree.Locked = True Me.Frm_2!Degree.Locked = True Me.cmd_Lock_Degree.Caption = "افتح قفل الدرجات" Me.cmd_Lock_Degree.ForeColor = vbBlack End Sub Private Sub cmd_Lock_Degree_Click() On Error GoTo err_cmd_Lock_Degree_Click If Me.Frm_1!Degree.Locked = True Then If InputBox("رجاء ادخال كلمة السر") = Val(1) Then Me.Frm_1!Degree.Locked = False Me.Frm_2!Degree.Locked = False Me.cmd_Lock_Degree.Caption = "اقفل الدرجات" Me.cmd_Lock_Degree.ForeColor = vbRed Else MsgBox "لا تملك صلاحية تغيير الدرجة" Exit Sub End If Else Me.Frm_1!Degree.Locked = True Me.Frm_2!Degree.Locked = True Me.cmd_Lock_Degree.Caption = "افتح قفل الدرجات" Me.cmd_Lock_Degree.ForeColor = vbBlack End If Exit_cmd_Lock_Degree_Click: Exit Sub err_cmd_Lock_Degree_Click: If Err.Number = 13 Then MsgBox "لا تملك صلاحية تغيير الدرجة" Resume Exit_cmd_Lock_Degree_Click Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub جعفر 884.PrgDB3.mdb.zip

السلام عليكم وبعد البحث ، والتجربة: استعمل هذا الكود في وحدة نمطية: Option Compare Database Option Explicit #If VBA7 Then Private Declare PtrSafe Function SetForegroundWindow Lib "user32" (ByVal hWnd As LongPtr) As LongPtr Private hWnd As LongPtr #Else Public Declare Function SetForegroundWindow Lib "user32" (ByVal hWnd As Long) As Long Public hWnd As Long #End If Public Function Activate_This_AccessApp() As Boolean 'Brings the DB to the front of all open windows Call SetForegroundWindow(Application.hWndAccessApp) End Function Public Function Activate_Another_AccessApp() As Boolean 'Brings the DB to the front of all open windows Dim appTarget As Access.Application Set appTarget = GetObject(CurrentDb.Name) ActivateAccessApp = Not SetForegroundWindow(appTarget.hWndAccessApp) = 0 Set appTarget = Nothing End Function ثم ننادي هذه الوحدة النمطية هكذا: Private Sub Form_Load() Call Activate_This_AccessApp DoCmd.Maximize SendKeys "{BS}", False Me.SetFocus Me.id.SetFocus End Sub جعفر 883.Bring_Access_to_Front.mdb.zip

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

الظاهر اني بشوف ردك بكرة الصباح ان شاء الله

يا ابو ياسين ترجم كلامك في جدول اكسل مثل ما طلبت منك لوسمحت ، لأني والله ما اعرف حقول طلبك. بغض النظر من وين والى اين ، اكتبهم في جدول ومنها سنحاول مساعدتك ، على رأسنا ان شاء الله جعفر

1. جزء BE او الخلفية (جزء الجداول) يكون ملف مشاركة في مجلد على حاسبة ويكون لجميع المستخدمين صلاحية الإدخال/التغيير/الحذف في هذا المجلد ، معظم الناس عندهم حاسبة عادية يستخدموها لمجلد المشاركة ، والحاسبه فيها وندوز 7 او 10 او ... ، ولكن الافضل والاكثر احترافا ، ان يكون هناك جهاز خاص اسمه سيرفر او خادم يقوم بهذه المهمة ، وهذا الجهاز له مواصفات جدا عالية ، وانت تختار اللي يناسبك ، ونظام التشغيل اسمه وندوز سيرفر ، وفيه أمان وحماية جدا قويه ، وتستطيع من اعداداته السيطرة على كل صغيرة وكبيرة فيه ، وخصوصا صلاحيات المستخدمين ، وحسب حاجتك ، تستطيع ان تضع فيه العدد اللي تريده من الهاردسكات ، وحتى هذه الهاردسكات غير اللي في الكمبيوترات العادية ، ولا يعمل كل واحد بنفسه ، وانما يعملون كمجموعة تسمى Raid ، وهناك Raid 0 10 5 50 6 ، بحيث اذا واحد فيهم اخترب ، يظل النظام شغّال ولكن بكفاءة اقل ، الى ان يتم تغيير الهارد الخربان ، وتقدر انك تحط فيه العدد اللي تريده من الهاردسكات (طبعا لازم تعرف شو حاجتك مسبقا ، وعلى اساسها تشتري السيرفر اللي فيه مكان لإحتياجاتك المستقبلية) ، وبعدين تضيف زيادة ، يعني ، اذا في كمبيوترك الخاص سعة الهاردسك 500GB وامتلئ فماذا تعمل؟ ، تضطر الى استبداله بواحد جديد ذو سعة اكبر ، او تضيف واحد جديد وتغير كود برنامجك ليتماشى مع الوضع الجديد ، بينما في السيرفر ، تعال واضف في الـ Raid وبدون اي تغيير (طبعا في تغيير في اعدادت Raid ولكن ليس في البرنامج) كما ان سرعة الهاردسكات في السيرفر اسرع من الهاردسك ، وبالاضافة الى هذه السرعة ، فالـ Raid يحفظ الملف بتجزئته على جميع الهاردسكات ، فيصبح جدا سريع في الحفظ وفي قراءة الملف. وطبعا هناك العديد من الميزات الاخرى ، مثل عدد CPU وسرعتها ، ونوعيات تستطيع ان تضيف لها هاردسكات او CPU بدون المساس ببرنامجك 2. جهاز الاسكانر يحفظ صور السكانر في مجلد معين ، ولما تضع المستندات على السكانر لتصويرها ، تستطيع التصوير عن طريق زر على السكانر او الكمبيوتر لحفظها في هذا المجلد ن ثم تنقل هذه المستندات يدويا بعد التدقيق عليها ، تنقلها الى المجلد التابع لبرنامج قاعدة بياناتك (طبعا هذا يعتمد على طريقة عمل برنامجك وكيف سيقرأ هذه الصور ، وتستطيع حفظ هذه الصور في ملفات منفردة بصيغة jpg مثلا او حفظها جميعا في ملف واحد بصيغة PDF ، ولكل ميزته وعيوبه ، والاهم هو الطريقة التي يريد المستخد تصفحها) ، وتستطيع من برنامجنا التحكم في جهاز السكانر وادخال الصور في مجلد معين حسب ID الموضوع. هذا كله ، طبعا بإختصار ، وتحتاج الى متخصصين لعمل كل هذه الاعدادات بالطريقة والبرمجة الصحيحة ، وفي نهاية الامر ، البرنامج يقوم بربط جميع هذه الاشياء ، وبدون تدخل المستخدم. جعفر

احي ابو زاهر كيف اقدر اجعل البيانات تظهر في النموذج الفرعي؟ وتقدر تختار النموذج وتحوله الى تقرير تلقائيا ، هكذا مثلا: تختار النموذج: . . ويصير عندك تقرير على نفس شكل النموذج ، وتقدر تخليه كتقرير فرعي داخل التقرير الرئيسي ، وتعمل رابط بينهم (كما تفعل بين النموذج الرئيسي والنموذج الفرعي). جعفر

رقم السند مجرد ملاحظة ، واذا ما جعلت هذا الحقل من نفس النوع (يا رقم او نص) في جميع الجداول ، فما تقدر تربط الجدولين بعلاقة هذا الحقل ، فقط للعلم ، واللي اسهل تعالجه الآن. اما موضوعنا الاساسي: انت الآن غيّرت المعطيات ، ففي مشاركاتك السابقة كنت تتكلم عن 3 حقول يجب التأكد انها غير موجودة في الجدول حركات . اما الآن فتقول: . وحتى في قولك الجديد ، حقل supplier غير موجود في الجدول حركات . =================================================================== بعد ان اخبرتك البيانات اعلاه ، رجاء لما تكتب رد: 1. كتابة جدول وفيه الحقول اللي تريدنا نعمل مقارنه بينها ، كالتالي: اسم كل حقل في جدول سند_صرف ، ويقابله الحقل في جدول حركات . 2. تأكد من وجود الحقول في الجدول الذي تتكلم عنه. جعفر

شكرا لك على المشاركة

على بركة الله الظاهر ان الوحدة النمطية ما كان فيها متغيرات كثيرة ، فمجرد التغيير اللي تفضلت فيه كان كافي لحل مشكلتك. جعفر

السلام عليكم اخوي ابو زاهر اعطني دقائق انظر في سؤالك ان شاء الله جعفر

ابو ياسين يجب تعديل نوع حقل رقم_السند ، حتى يكون نفسه في الجدولين ، يا رقم او نص. . انت كلامك عن "عالم النسيج" وهو في حقل اسم_المورد في جدول سند_صرف ، طيب شو اسم الحقل اللي لازم نقارنه به في جدول حركات؟ . جعفر

معلومة نسيت اقولها msgbox me.text.column(0) هو نفسه msgbox me.text

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

اولا ، ولسهولة قراءة الكود ، رجاء ادخاله كما في الموضوع هكذا: . ثانيا ، نعم هي نفس قيمة me.text.column(0) . وهي اهم شيء في اعدادات الحقل. جعفر

وعليكم السلام هذا العمود الذي به معلومات الحقل (يعني في الاستعلام اللي عملته للحقل ، العمود الاول) ، واذا حفظت الحقل ، فتكون هذه القيمة. جعفر

Public Function Parse_to_Rich_Text(TextIn As String) As String Dim var() As String Dim delim As String Dim i As Integer Dim T As String 'Exit when No value If Len(TextIn & "") = 0 Then Parse_to_Rich_Text = "" Exit Function End If 'get the delimiter separator For i = 1 To Len(TextIn) If Not IsNumeric(Mid(TextIn, i, 1)) Then delim = Mid(TextIn, i, 1) Exit For End If Next i 'split the text to two values var = Split(TextIn, delim) T = "<div " 'Start, Make HTML code 'Left side T = T & "<font" 'font info, First Line T = T & " size=4" 'size T = T & ">" 'close T = T & "</font>" 'font info, Last Line T = T & " <b>" 'Bold, begin T = T & var(0) & delim 'Text T = T & "</b>" 'Bold, Close 'Right side T = T & "<font" T = T & " size=2" T = T & " color=red" T = T & ">" T = T & var(1) T = T & "</font>" T = T & "</div>" 'Close, Make HTML code 'Debug.Print T Parse_to_Rich_Text = T End Function اوامر HTML التي يمكننا استعمالها في حقل Rich Text في الاكسس: https://support.office.com/en-us/article/Insert-or-add-a-rich-text-field-9f86237d-dbbc-4a85-b12c-9d8dca824630?CorrelationId=e5ac3d8a-72c2-4ac2-8f74-c70704f01a2f&ui=en-US&rs=en-US&ad=US&ocmsassetID=HA010014097 وبرمجة هذه الاوامر ممكن ان نبحث عنها هنا ، لكي نعمل الجملة المطلوبة https://www.w3schools.com/TAgs/default.asp جعفر 878.RichText.accdb.zip