jjafferr

السلام عليكم 🙂 اخي @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 جعفر

وعليكم السلام 🙂 اذا كان هذا الرقم ثابت ، فيمكنك ان تجعل رأس التقرير او/و الذيل طويل ، بحيث بالتجربة تقدر تحصل على عدد السجلات اللي تريدها ، وهذه اسهل طريقة ، ونعم هناك كود تقدر تحدد فيه عدد السجلات للطباعة ، جعفر

اخي امير لا يُنصح بكتابة اللغة العربية في الكود ، لذا اقترح عليك النظر في طريقة حفظ البيانات العربية (او اي لغة اخرى) في الجدول ، ومن ثم قرأتها من هناك ، من الرابط المرفق ، وخذ منه قدر حاجتك 🙂 جعفر

وعليكم السلام 🙂 تفضل: Me.Table2Subform!NoOrder_Label.Caption = "jjafferr" جعفر

نعم ، لا يمكن الدخول في كود البرنامج ، فهو مغلق. وعليه لا يمكن عمل التغيير المطلوب لجعله يعمل على نواة 64بت. جعفر

وعليكم السلام 🙂 ياريت مرفق لهذه الحالة 🙂 جعفر