jjafferr

السلام عليكم 🙂 هذه ملاحظة الاخ خلف !! استاذ محمد ، تفضل واعمل التغيير المناسب 🙂 انا على سفر بكرة ان شاء الله ، فما عندي وقت اعمل تعديلات !! بس ارفقت في مشاركتي الاولى ، النسخة 2.02 من الملف pdftk واللي يقبل Unicode على حسب ماهو مكتوب في الموقع 🙂 جعفر

يعني برنامجك الآن يرسل باللغة العربية ، صح؟ هذا معناه ان مكتبات حفظ البيانات في الحافظة Clipboard التالية (قد لا يكون كلها) ، لا يعتمد اللغة العربية (او لا تعتمد Unicode ) : Declare Function clt_OpenClipboard Lib "user32" Alias "OpenClipboard" (ByVal hwnd As Long) As Long Declare Function clt_GetClipboardData Lib "user32" Alias "GetClipboardData" (ByVal wFormat As Long) As Long Declare Function clt_GlobalAlloc Lib "kernel32" Alias "GlobalAlloc" (ByVal wFlags As Long, ByVal dwBytes As Long) As Long Declare Function clt_GlobalLock Lib "kernel32" Alias "GlobalLock" (ByVal hMem As Long) As Long Declare Function clt_lstrCpy Lib "kernel32" Alias "lstrcpyA" (ByVal lpString1 As Any, ByVal lpString2 As Any) As Long Declare Function clt_GlobalUnlock Lib "kernel32" Alias "GlobalUnlock" (ByVal hMem As Long) As Long Declare Function clt_CloseClipboard Lib "user32" Alias "CloseClipboard" () As Long Declare Function clt_SetClipboardData Lib "user32" Alias "SetClipboardData" (ByVal wFormat As Long, ByVal hMem As Long) As Long Declare Function clt_EmptyClipBoard Lib "user32" Alias "EmptyClipboard" () As Long جعفر

قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف رجاء فتح موضوع جديد ، مراعيا فيها قوانين المنتدى. يُغلق جعفر

موضوع لا علاقة له بمنتدى الاكسس ، وقد تم حذف موضوعك السابق ، ولكنك اعدت عمل الموضوع برابط آخر. جعفر

طيب جربه الآن ، بعد ان اعدت لغة الكيبورد الى اللغة الانجليزية : Private Sub أمر15_Click() On Error Resume Next DoCmd.GoToRecord , , acFirst For i = 1 To Me.kan + 1 Langauge ELanguage.Ar Dim fOK As Boolean Dim strTemp As String Forms!whatsapp.SetFocus strTemp = Me.txtMessage 'fOK = SetClipboardData_clt(strTemp) 'copy name to clipboard Me.txtMessage.SetFocus Me.txtMessage.SelStart = 0 Me.txtMessage.SelLength = Len(Me.txtMessage) DoCmd.RunCommand acCmdCopy '========================================================================================================= Langauge ELanguage.en Application.FollowHyperlink "https://wa.me/" & txtNumbers auseTime = 40 start = Timer Do While Timer < start + auseTime DoEvents Loop Call SendKeys("~", True) Call SendKeys("{Enter}", True) Call SendKeys("^v", True) Call SendKeys("{Enter}", True) '=========================================================================================================== DoCmd.GoToRecord , , acNext Next MsgBox "انتهت الارقام" End Sub . هي مجرد تجربة لحل مشكلة اللغة العربية ، لأنه صادفتني نفس المشكلة في احد برامجي ، واتضح ان المشكلة كانت في مكتبات الوندوز القديمة اللي ما تفهم لغات Unicode 🙂 جعفر

السلام عليكم 🙂 اخي @kanory ، وبما اني ماعندي واتس اب ، فرجاء جرب الكود التالي ، علشان اللغة العربية : Private Sub أمر15_Click() On Error Resume Next DoCmd.GoToRecord , , acFirst For i = 1 To Me.kan + 1 Langauge ELanguage.Ar Dim fOK As Boolean Dim strTemp As String Forms!whatsapp.SetFocus strTemp = Me.txtMessage 'fOK = SetClipboardData_clt(strTemp) 'copy name to clipboard Me.txtMessage.SetFocus Me.txtMessage.SelStart = 0 Me.txtMessage.SelLength = Len(Me.txtMessage) DoCmd.RunCommand acCmdCopy '========================================================================================================= 'Langauge ELanguage.en Application.FollowHyperlink "https://wa.me/" & txtNumbers auseTime = 40 start = Timer Do While Timer < start + auseTime DoEvents Loop Call SendKeys("~", True) Call SendKeys("{Enter}", True) Call SendKeys("^v", True) Call SendKeys("{Enter}", True) '=========================================================================================================== DoCmd.GoToRecord , , acNext Next MsgBox "انتهت الارقام" End Sub جعفر

اتفق معاك ، ونظرت في الموضوعين مال البارحة عدة مرات ، ورأيت انه من الاجحاف في حقهم ان اجمعهم او اثبت احدهم !! والآن اصبح الامر اصعب ، بحيث اضطر ان اثبت هذا الموضوع ايضا 🙂 هذه 3 مواضيع مختلفة ، واذا دمجتهم ، فالجميع بيتلخبط اكثر 🙂 جعفر

هاي يسمونها الخبرة 🙂 جعفر

اخي احمد 🙂 انت لا تريد إعادة "الترقيم التلقائي" في الجدول ، ابحث في المنتدى وستجد الكثير والكثير 🙂 وإنما تحتاج الى ترقيم تلقائي في استعلام/نموذج : . . . وفي التقرير : جعفر

وعليكم السلام 🙂 وبدون ان انزل المرفق : if me.parent.name="F1" then me.parent!z=me!x * me!y else me.parent!z=me!x + me!y endif . الامر Parent معناه الوالدين ، اي ان والدي النموذج الفرعي C. جعفر

وعليكم السلام 🙂 هذا الرابط يُعتبر المصدر : http://access.mvps.org/access/forms/frm0031.htm وبه ملف وورد يمكن انزاله : http://access.mvps.org/access/downloads/Syntax_for_subs.zip وارفقت المرفق لسهولة الوصول اليه 🙂 جعفر Syntax for subs.doc

وعليكم السلام 🙂 هذه اعدادات حقل الترقيم التلقائي في جدولك . هذه الاعدادات معناها ان الرقم التلقائي يكون متسلسل وليس عشوائي ، نعم عندما تحذف سجل ، فالاكسس يحذف الرقم ، والسجل التالي يكون رقم التسلسل التالي ، ولا يعطيك/يعوضك عن الرقم الذي تم حذفه ، ولكن هذا لا يؤثر تسلسل الترقيم ، فهو صحيح في جميع الحالات ، ولو بوجود فجوة ارقام غير موجودة بين السجلات (الارقام التي تم حذفها) ، فعليه ، لا تحتاج الى إعادة ترقيم حقل الترقيم التلقائي حتى يبدأ من 1 🙂 الآن ، اخبرنا وين المشكلة علشان نساعدك 🙂 جعفر

وعليكم السلام🙂 المنتدى مليء بمثل هذا السؤال والاجابات عليه ، وبالبحث ستحصل عليها ، ولما تقرأ الروابط ، ستعطيك فكرة اكثر بكثر من مجرد رد واحد على الموضوع هنا 🙂 يُغلق. جعفر

تفضل ، نفس الاقتراح الاخير : . جعفر 1265.1.Database1.accdb.zip

وعليكم السلام 🙂 جرب بإلغاء السطر المشار الية بالسهم : جعفر

والعلاوات السنوية حسب سلم الدرجات؟ يعني البرنامج تلقائيا يغير مرحلة/درجة الموظف حسب سنوات عمله؟ والعنوان الوظيفي هل يتغير حسب الشهادة وسنوات العمل؟ جعفر

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

اخي سامر انا ملاحظ انك ما تعطي للسؤال حقه في الوقت !! يعني ، كم من الوقت استغرق منك التفكير في حل لمشكلتك ، وكم من الوقت اعطيته لوضع سؤالك !! وكم من الوقت اللي سيأخذ حتى يطلب منك الاعضاء التوضيح ، وانت ترد رد جدا جدا مقتضب !! انت صاحب السؤال ، فرجاء اعد التفكير في طريقة وضعك للسؤال ، وبكل انواع التفاصيل ، وبمثال او مثالين ، ووووو ، حتى تكون الفكرة واضحه للرد عليها. رجاء ساعدنا علشان نقدر نساعدك 🙂 يُغلق. جعفر

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

برنامجك شغال تمام حسب المعيار اللي استعملته انت ، فما اعرف شو المشكلة !! هذا استعلامك، والمعيار موجود في حقل رقم السند ، اما حقل الترقيم التلقائي فارغ ، ونتائج الاستعلام صحيحة !! . يجب ان يكون الكود هكذا فقط ، ورجاء حذف جميع الاشياء الاخرى: للمعاينة Dim stDocName As String stDocName = "امرصرف" DoCmd.OpenReport stDocName,acViewPreview او فقط DoCmd.OpenReport "امرصرف",acViewPreview للطباعة Dim stDocName As String stDocName = "امرصرف" DoCmd.OpenReport stDocName او فقط DoCmd.OpenReport "امرصرف" واما اذا اردت طباعة اكثر من نسخة من التقرير (انا اطبع نسختين) بالكود التالي Dim stDocName As String stDocName = "امرصرف" DoCmd.OpenReport stDocName, acViewPreview, , , acHidden DoCmd.SelectObject acReport, stDocName DoCmd.PrintOut acPages, , , acHigh, 2 DoCmd.Close acReport, stDocName . جعفر 1271.2.تحديد طباعة السندات بين رقمين.accdb.zip

الاستعلام "امرصرف" مافيه معيار !!

اخذ مني وقت الى ان فهمت تقريرك 🙂 اجمع جميع كائنات التقرير ، الى قسم "التفصيل" Detail ، وخلاص 🙂 يعني ، بدل ان يكون القسم بهذا الارتفاع . خليه يكون . والنتيجة جعفر 1271.تحديد بداية ونهاية اوامر الصرف.accdb.zip

وعليكم السلام 🙂 عادة هذا الخطأ ينتج بسبب اعدادات اللغة في الوندوز جعفر

هذه تعملها كما تعمل معيار بين تاريخين: في الاستعلام ، في حقل رقم امر الصرف ، اكتب في المعيار : >=Forms!frm_Main!From_A and <=Forms!frm_Main!To_A ويكون عندك في النموذج frm_Main ، حقلي ، من امر صرف: From_A ، والى امر صرف: To_A جعفر