jjafferr

تفضل هذا الرابط به كود قراءة الريجستري: http://vba-corner.livejournal.com/3054.html بس عليك ان تأخذ اسم الفلاش من الرابط السابق ، ثم تستعمل هذا الكود جعفر

لاحظ امر الكود ، هو نفسه الذي انت ذكرته: Me.[Mob].NumeralShapes = 1 وطبعا National مش راح ينفع ، شوف رقم واسم العربية من جدولك (وجرب بقية الاخيارات كذلك): بس في شغله لازم تعرفها ، وهي: لاحظت في بعض كمبيوترات المستخدمين ، الانتقال من حقل به هذا التنسيق الى حقل آخر يكون بطئ ، ولكن بعد تحديث الاكسس بتحديثات مايكروسوفت ، اصبحت تمام جعفر

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

انا الاصدار عندي انجليزي ، وهذا لا يهم ، الذي يهم ان نكون قد اخترنا الارقام العربية من اعدادات الوندوز ، ثم يشتغل الكود اعلاه ، وقد جربته انا : . . . جعفر

وعليكم السلام أخي أوس هذه معلومة ، وهي انه لابد من البحث عنها في الريجستري ، كما هو في هذا الرابط الاجنبي: http://www.xtremevbtalk.com/general/275224-detect-installed-codecs.html وانا اعتذر منك ، فيجب ان اترك الكمبيوتر بعد قليل ، فلا استطيع مساعدتك اكثر جعفر

وعليكم السلام بالنسبة للرقم ا: اعمل هذا الحدث للحقل m_sum ، في الحدث بعد التحديث: Private Sub m_sum_AfterUpdate() Me.m_sum = Me.m_sum - Me.com_name.Column(2) If Me.m_sum < Me.com_name.Column(2) Then MsgBox "القيمة اصغر" End If End Sub وبالنسبة للرقم 2: في الجدول notes ، في اعدادات الحقول (ما عدالرقم التلقائي) ، اجعل "مطلوب" = نعم: جعفر 322.db.accdb.zip

السلام عليكم في الرابط التالي ، فيه شرح عن الموضوع: http://ryanglynn.com/2010/12/06/arabic-keyboard-layout-finished-programming/ وفيه كيبورد عربي بـ 103 ازرار ، والظاهر انه يعطي النتيجة الصحيحة: http://ju.chearon.net/up/junkyard/61574_arabic.zip جعفر

وعليكم السلام أخي محمد البرنامج يعتمد على البرنامج الخارجي pdftk.exe ، واللي المفروض ان يكون في مجلد البرنامج ، غير هذا ، البرنامج يحفظ ملف الـpdf في مجلد الوندوز المؤقت ويناديه بهذا الامر fReturnTempDir ، وعلشان هذا الامر يشتغل ، فانت محتاج للوحدة النمطية modSystemDirectories واذا لم ترد ان تحفظ الملف المؤقت في مجلد الوندوز المؤقت (او كان عندك كود آخر لهذه المهمة) ، فانت لست بحاجة لهذه الوحدة النمطية. برنامج Adobe Acrobat Reader لا يملك قابلية عمل كلمة سر لملف pdf ، ولا إمكانية تمرير كلمة السر اليه لفتح ملف pdf ، لهذا السبب فنحن محتاجين الى الى البرنامج pdftk.exe ليقوم بهذه العمليات لنا جعفر

وعليكم السلام اعطيك طريقتين: مطوّله بعدة اسطر لسهولة فهمها : If (RET * Rate) <= 500 Then If J15 > 0 Then A = N15 * L15 * 0.35 * 0.3 Else A = 0 End If Else If J15 > 0 Then A = N15 * L15 * 0.35 * 0.25 Else A = 0 End If End If بسطر واحد: A = IIf(RET * Rate <= 500, IIf(J15 > 0, N15 * L15 * 0.35 * 0.3, 0), IIf(J15 > 0, N15 * L15 * 0.35 * 0.25, 0)) جعفر

السلام عليكم أخي الفاضل ابو خليل ، أخي الفاضل رمهان انا استعملت جزء من كود اخوي رمهان ، ولكني استبدلت Trim بدالة Replace وذلك لأني حصلت على نتائج أفضل بها سابقا المرفق فيه وحدة نمطية ، تشتمل على 3 وحدات ، وهي تقوم بتغيير حقل3 في جميع الجداول دفعة واحدة: flip_Numbers : لا نستعملها نحن (بل تناديها الوحدة النمطية F3_to_F4) ، وهي التي تقوم بعمل تغيير الارقام ، F3_to_F4 : وهي لتحويل الارقام من حقل3 بالطريقة الصحيحة ، ولكنها تقوم بوضع الارقام الصحيحة في حقل4 ، حتى تقوم انت بالتأكد ان الارقام صحيحة ، F4_to_F3 : وبعد التاكد من ان الارقام صحيحة ، نستعمل هذه الوحدة ، والتي تحدث حقل3 بالقيم الموجودة في حقل4 ، ثم تحذف القيم من حقل4 ، يعني استعمل F3_to_F4 ، ثم تأكد من الجداول ، ولما تكون مطمئن ، استعمل F4_to_F3 والوحدات النمطية: Option Compare Database Dim x() As String Function flip_Numbers(T) T = Replace(T, " ", "") '3 spaces T = Replace(T, " ", "") '2 spaces T = Replace(T, " ", "") '1 space If InStr(T, "-") > 0 Then x = Split(T, "-") flip_Numbers = x(1) & "-" & x(0) Else flip_Numbers = T End If End Function Function F3_to_F4() Dim tbl As AccessObject Dim dbs As Object Dim rst As DAO.Recordset Set dbs = Application.CurrentData For Each tbl In dbs.AllTables If Left(tbl.Name, 4) <> "Msys" Then 'Debug.Print tbl.Name mySQL = "UPDATE [" & tbl.Name & "] SET [الحقل4] = flip_Numbers([الحقل3])" CurrentDb.Execute (mySQL) End If Next tbl End Function Function F4_to_F3() Dim tbl As AccessObject Dim dbs As Object Dim rst As DAO.Recordset Set dbs = Application.CurrentData For Each tbl In dbs.AllTables If Left(tbl.Name, 4) <> "Msys" Then 'Debug.Print tbl.Name mySQL = "UPDATE [" & tbl.Name & "] SET [الحقل3] = [الحقل4]" CurrentDb.Execute (mySQL) mySQL = "UPDATE [" & tbl.Name & "] SET [الحقل4] = ''" CurrentDb.Execute (mySQL) End If Next tbl End Function جعفر 321.db2.mdb.zip

وعليكم السلام انا ما عندي فكرة عن اللي تريده ، ولكن هذه محاولة لتعديل كود اخونا العود ابو خليل: Call Shell("regedit.exe /s " & Application.CurrentProject.Path & "\Lock.reg", 0) ولكن ، انت تستطيع ان تغير الريجستري من الاكسس مباشرة دون اللجوء الى برنامج خارجي ، واليك بعض الامثلة من روابط اجنبية: https://accesstips.wordpress.com/2010/03/25/how-to-use-microsoft-access-vba-to-save-data-in-the-registry/ http://www.slipstick.com/developer/read-and-change-a-registry-key-using-vba/ http://vba-corner.livejournal.com/3054.html وعند بحثي في المنتدى باسم: ريجستري ، فقد ظهرت لي مجموعة من المواضيع كذلك جعفر

وعليكم السلام أخوي ابو خليل الله ان شاء الله يشغلك بالخير دوم ما عملتها بتنسيق ، وانما بإستعلام ، وبطريقتين: F: كود في الاستعلام مباشرة ، ولكنك تعرف ان الكود يتلخبط بسبب الكلمات العربية ، FF: بوحدة نمطية . والنتائج: . والوحدة النمطية: Function flip_Numbers(T) If InStr(T, "-") > 0 Then flip_Numbers = Mid(T, InStr(T, "-") + 2) & " - " & Mid(T, 1, InStr(T, "-") - 2) Else flip_Numbers = T End If End Function جعفر 321.db2.mdb.zip

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

وعليكم السلام الكود الصحيح هو: mySQL = "UPDATE rrrr SET bbb = " & [Forms]![frmm1]![bbb] mySQL = mySQL & " WHERE nnn='" & [Forms]![frmm1]![nnn] & "'" DoCmd.RunSQL mySQL بس ليش حولت الاستعلام الى كود؟ هذا دوخ راسك انصحك ان تستعمل الاستعلام ، فهو اسهل للعمل ، واسهل للفهم ، واسهل للتغيير وتناديه: DoCmd.SetWarnings False DoCmd.OpenQuery "qry_Update_bbb" DoCmd.SetWarnings True جعفر 320.d1.mdb.zip

الحمدلله

شكرا جزيلا على هذا الإطراء ماشاء الله عليك نفخت ونفخت فيني ، والآن اصبحت زي البالونه المهم ، هل عملت معاك الطريقة؟ جعفر

وعليكم السلام لما تكون في نموذج/نموذج فرعي ، وتريد تنقل التركيز على حقل في نموذج/نموذج فرعي آخر ، فيجب اولا ان تنقل التركيز على النموذج الرئيسي ، ثم التركيز على النموذج الفرعي ، ثم التركيز على الحقل المطلوب لاحظ في هذا البرنامج: كيف عملت الكود: Forms!frm_Patient_Drugs.SetFocus Forms!frm_Patient_Drugs!cmb_Patient_Name.SetFocus . ونفس الشئ اذا اردت ان تذهب الى سجل آخر/جديد : 'set the Focus on the Main Form, then the subform, then add a new Record, then transfer the DoseID Forms!frm_Patient_Drugs.SetFocus Forms!frm_Patient_Drugs!sfrm_Patient_Drugs.SetFocus DoCmd.GoToRecord , , acNewRec جعفر

اولا : حياك الله ثانيا : ومثل ما قلت لك سابقا ، اذا انت مرتاح من شئ ، والنتائج عندك صحيحة ، فتوكل على الله وواصل عملك جعفر

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

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

وعليكم السلام احنا رجعنا للبداية . واليك المثال: . والنتيجة مقارنة مع الجدول: جعفر 00.test.mdb.zip

وعليكم السلام أخي كرار انا اعتذر ، بس بالفعل نسيت في الكثير من مشاركاتي ، اضع صور ثابته ، وفيها دوائر او مربعات او اسهم ، او كتابة ، والبرنامج اللي استخدمه هو IrfanView ، http://www.irfanview.com/ وهنا رابط شرح بسيط له: http://eport.soundpiper.com:8080/pictutor/irfanview.html وعند الضغط على الزر F12 ، نستطيع استعمال ادوات الرسم: http://www.mitalia.net/irfanpaint/?manual انا بدأت استخدم هذا البرنامج المجاني من حوالي سنة 1998 ، ولا اعمل على اي كمبيوتر بدونه ، وفيه ميزات لا تُعد ولا تُحصى ، بالاضافة الى ميزة التحكم فيه عن طريق Commandline ، وقد قام احد المبرمجين بعمل برنامج اكسس بسيط له (مرفق ، والصور مالي ) وانا استعمله في برامج قواعد بيانات الاكسس ، والتي تحتاج الى اي شئ له علاقة بالصور اما الصور المتحركة (gif animation) ، فاستخدم البرنامج المجاني ScreenToGif: https://screentogif.codeplex.com/ جعفر IrfanView_MDB.zip