jjafferr

وعليكم السلام انا كلما رأيت الى رسالة OLE و عنصر ActiveX ، كلما جاء في بالي اعدادت الوندوز: جعفر

السلام عليكم هذه طريقة خفيفة عملتها ، بحقل واحد ، ونستخدم فيه الخط بسطرين . . . بهذا الكود: Option Compare Database Dim i As Integer Dim A As String Private Sub Form_Open(Cancel As Integer) i = 0 Me.pr = "سيبدأ التحميل ..." End Sub Private Sub Form_Timer() 'A = A & ChrW(&H2588) 'Big Block 'A = A & Chr(124) '| A = A & ChrW(&H2590) Me.lbl_Meter.Caption = A Me.pr = "تقدم مؤشر التحقق " & i & "%" i = i + 1 If i = 100 Then Me.TimerInterval = 0 DoCmd.Close acForm, Me.Name End If End Sub . وهناك بديل آخر في الكود بدل 'A = A & ChrW(&H2588) 'Big Block 'A = A & Chr(124) '| A = A & ChrW(&H2590) اعمل A = A & ChrW(&H2588) 'Big Block 'A = A & Chr(124) '| 'A = A & ChrW(&H2590) . لتحصل على . . جعفر 888.مؤشر تحميل.mdb.zip

وعليكم السلام . Replace([PPath],Mid([PPath],1,InStr([PPath],":")-1),[Forms]![form1]![New_Partition]) جعفر 887.example.accdb.zip

وعليكم السلام وشكرا انك ذكرتني بعمل لم اخلصه مافي داعي تستخدم: Forms!Form1.Requery ولكن ، نعم القيمة في الحقل الغير مرتبط بالجدول ، في نموذج مستمر ، ستكون لجميع السجلات. جعفر

مضاد الفايروس عندي Kaspersky ، قال ان البرنامج فيه 6 ملفات ، وكلها نظيفة بس ياريت تخبرنا الملف التنفيذي شو فيه ، وشو يعمل ؟ جعفر

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

رجاء ارفق النموذج الذي فيه ازرار الاضافة والحذف

جرب المرفق

وهذا كان الذي عرضته عليك مسبقا ، جعفر

لقد اخبرتك الحل مسبقا

الحمدلله انك توصلت للمطلوب الامر SendKeys فيه الكثير من المشاكل ، منها انه يطفئ زر Num Lock في الكيبورد ، وحتى اذا ذاكرتي ما تخونني ، في الوندوز Vista تم ايقافه عن العمل ، وهناك برنامج يقوم بعمل هذا الامر وزيادة ، اسمه AutoIt وميزته انه سهل البرمجة ويمكن التحكم به عن طريق command line ، ويمكنه تصنّع ضغط الزر (مثل SendKeys) وحركة الماوس. https://www.autoitscript.com/site/autoit/ في الكود ، واذا اردت استخدام الامر SendKeys جرب تغيير مكان الاسطر ، هكذا: Private Sub Form_Load() DoCmd.Maximize SendKeys "{BS}", False Call Activate_This_AccessApp Me.SetFocus Me.id.SetFocus End Sub جعفر

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

البرنامج شغال 100% على اساس الخطوات التي شرحتها، فإذا لم تقم بتنصيب شيء تم شرحه، فطبعا ما بيعمل البرنامج وبيعطيك أخطاء

هو تنسيق، فلن تراه ما دمت في وضع إدخال او تغيير في الحقل، ولكن عندما تخرج من الحقل سترى النتيجة

اخوي ابو ياسين انا قلت لك: . يعني لازم تغير في الجدول حركات وتضيف اسم_المورد ، وعليه نقدر نعمل المقارنه. جعفر

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

السلام عليكم انا لا احب 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