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

قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 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 '===================================================================================================

السلام عليكم 🙂 اخي @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 '=================================================

اتفق معاك ، ونظرت في الموضوعين مال البارحة عدة مرات ، ورأيت انه من الاجحاف في حقهم ان اجمعهم او اثبت احدهم !! والآن اصبح الامر اصعب ، بحيث اضطر ان اثبت هذا الموضوع ايضا 🙂 هذه 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