jjafferr

السلام عليكم في الرابط التالي ، فيه شرح عن الموضوع: 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

وعليكم السلام أخي محمد المرفق فيه الملفات التالية ، إلا البرنامج رقم 1 ، فانه موجود في قاعدة البيانات ، والرجاء اخراجه الى نفس مجلد البرنامج: . النموذج: . وكود النموذج: Option Compare Database Dim PDFTKString As String Dim file1 As String Dim oFile As String Dim Path1 As String Dim Path2 As String ' Private Sub cmd_Make_Password_to_this_pdf_Click() 'pdftk source.pdf output destination.pdf user_pw password Path1 = Application.CurrentProject.Path & "\" file1 = Path1 & Me.pdf_Name oFile = Path1 & "abc.pdf" PDFTKString = Chr(34) & Path1 & "PDFTK" & Chr(34) & Space(1) & _ Chr(34) & file1 & Chr(34) & Space(1) & _ " output " & Chr(34) & oFile & Chr(34) & _ " user_pw " & Space(1) & Me.pdf_Password Shell PDFTKString End Sub Private Sub cmd_Open_pdf_with_Password_Click() On Error GoTo err_cmd_Open_pdf_with_Password_Click Path1 = Application.CurrentProject.Path & "\" Path2 = fReturnTempDir 'windows Temp Directory file1 = Path1 & Me.pdf_Name oFile = Path2 & "abc.pdf" PDFTKString = Chr(34) & Path1 & "PDFTK" & Chr(34) & Space(1) & _ Chr(34) & file1 & Chr(34) & Space(1) & _ "input_pw" & Space(1) & Me.pdf_Password & _ " output " & Chr(34) & oFile & Chr(34) 'Debug.Print PDFTKString Kill fReturnTempDir & "abc.pdf" Shell PDFTKString PauseTime = 1 ' Set duration. start = Timer ' Set start time. Do While Timer < start + PauseTime DoEvents ' Yield to other processes. Loop Application.FollowHyperlink Path2 & "abc.pdf" Exit Sub err_cmd_Open_pdf_with_Password_Click: If Err.Number = 53 Then 'no file Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub Private Sub Form_Close() On Error GoTo err_Form_Close Kill Path2 & "abc.pdf" Exit Sub err_Form_Close: If Err.Number = 53 Then 'no file Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub . البرنامج علشان يعرض ملف الـ pdf ، فانه يعمل نسخة منه بدون كلمة سر ، ويحفظها في مجلد الوندوز المؤقت باسم abc.pdf ، وعند اغلاق النموذج ، فانه يحذفه جعفر zpdf.zip

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

الحمدلله ( كل الملفات التي أحتاجها في ملف واحد )!! ممكن تشرح هذه المعلومة لوسمحت ، نحب نستفيد منها لاحظت ان حجم برنامجك كبير ، ولما تصفحته ، لقيت ان عندك صورة كثيرة ، ولكنك عامل ربط في الكود لكل صورة ، بس الغلطة اللي وقعت فيها هي انك في اعدادات الصورة في النموذج/التقرير جعلتها مضمنه ، فارتفع حجم قاعدة البيانات اذا تسمح تعمل هذه الخطوات ، وان شاء الله العشاء بيكون على حسابك ، لأن حجم قاعدة البيانات اصبح عندي 20% (19MB) من حجمه الاصل اعمل نسخة من برنامجك ، واشتغل على النسخة. اتبع خطوات الصورة: . 1. اعمل وحدة نمطية جديدة ، والصق فيها هذا الكود: Function Convert_img_Embed_to_Link() Dim frm As AccessObject Dim rpt As AccessObject Dim dbs As Object Dim frm1 As Access.Form Dim rpt1 As Access.Report Dim ctl As Access.Control Set dbs = Application.CurrentProject For Each frm In dbs.AllForms Debug.Print frm.name DoCmd.OpenForm frm.name, acDesign Set frm1 = Forms(frm.name) For Each ctl In frm1.Controls If ctl.ControlType = acImage Then ctl.PictureType = 1 End If Next ctl DoCmd.Close acForm, frm.name, acSaveYes Next frm For Each rpt In dbs.AllReports Debug.Print rpt.name DoCmd.OpenReport rpt.name, acDesign Set rpt1 = Reports(rpt.name) For Each ctl In rpt1.Controls If ctl.ControlType = acImage Then ctl.PictureType = 1 End If Next ctl DoCmd.Close acReport, rpt.name, acSaveYes Next rpt End Function . 2. افتح النافذة الصغيرة اللي في اسفل الكود ، واللي ممكن تعطينا نتائج مباشرة من الكود ، 3. تأكد ان لغة الكيبورد بالانجليزي ، ثم اطبع: علامة استفهام ، واسم الوحدة النمطية (بدون مسافة وبدون اقواس) ، مثل الصورة ، وهو امر بأن يشغل الوحدة النمطية: ?Convert_img_Embed_to_Link . الكود سيفتح كل نموذج وكل تقرير (وسترى هذا في نافذة البرنامج) في وضع التصميم ، ثم سيبحث عن كل كائن صورة ، ويغيره من "مضمن الى ربط" ، ويحفظ النموذج/التقرير ، ورجاء لا تعمل شئ الى ان ينتهي كل شئ ، وذلك عندما يتم اغلاق جميع النماذج والتقارير المفتوحة عندها اعمل ضغط واصلاح ، وشوف حجم قاعدة بياناتك الجديدة جعفر

وعليكم السلام الاستعلام ، ولكن قم بتغيير اسم الجدول واسم الحقل الفارغ: Delete * From tbl_Name Where len([Text_Field] & '')=0 جعفر

نعم ، وقد كنت أحد الاشخاص الذين يرسلون لي اصداراتهم لتجربتها واعطيهم الملاحظات عليها ولكني لا اعتقد بأن OCR العربي (لجميع الشركات) وصل مرحلة من الدقة التي اكون راض عنها (آخر تجربة لي لموضوع OCR العربي كان قبل سنتين تقريبا) جعفر

تمام