jjafferr

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

وعليكم السلام 🙂 بما انك ادخلت قيمة واحدة في tempVars ، فللحصول عليها ، يمكنك ان تستعمل msgbox TempVars![mm] او msgbox TempVars.Item(0) جعفر

وعليكم السلام 🙂 عادة نستخدم الاستعلام لعمل مجاميع ، وبالتالي تكون المعلومة جاهزة وبدون تكرار في التقرير ، او نستخدم مجاميع التقرير (في اسفل التقرير) . جعفر

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

السلام عليكم 🙂 ومثل ما قال الاخ Kanory ، وببعض التعديل على الكود ليتناسب مع اسماء الحقول 🙂 جعفر 1274.t_fdate.mdb.zip

🙂

السلام عليكم 🙂 وهذا شغل اخوي ابا جودي ، بس يأخذ اكثر من ملف دفعة واحدة (يعني تقدر تختار مجموعة ملفات ، ثم تضيف مجموعة اخرى الى القائمة ، دفعة واحدة) 🙂 تقدر بالفأرة تختار اكثر من ملف ، او عند طريق الضغط على الزر shift او ctrl اثناء النقر على اسماء الملفات 🙂 جعفر ImportExcel.accdb

اختي الفاضلة ، انتي التي حكمتي على عدد سجلات البحث ، كما اوضحت لك في مشاركتي السابقة ، بسبب وكذلك كما اشرت لك ، اذا اردتي البحث في جميع البيانات : . . تفضلي ، هكذا يكون الاستعلام ، مثلا : . وعليه اصبح النموذج (جعلته كنموذج فرعي) (وكذلك عملت مثال كنموذج رئيسي) : . ويظل الكود كما هو ، مع تغيير اسماء الكائنات ليتناسب مع الاسماء الجديدة: Private Sub cmd_Find_in_SubForm_Click() 'نقل التركيز على النموذج الفرعي Me.sfrm_Both.SetFocus 'اختيار الحقل الذي نريد ان نجري عليه البحث DoCmd.GoToControl "no" 'التحكم في اعدادات نافذة البحث DoCmd.FindRecord 0, acEntire, False, acSearchAll, False, acCurrent, True 'نافذة البحث حسب الاعدادات اعلاه DoCmd.RunCommand acCmdFind End Sub . جعفر 1273.sarah.accdb.zip

البحث يمكن ان يكون فقط في السجلات التي تم تصفيتها وابرازها في النموذج/النموذج الفرعي ، يعني البحث يكون على البيانات الظاهرة امامنا ، وسبب ظهور هذا الكم من البيانات هو العلاقة بين النموذج الرئيسي والفرعي عن طريق الحقل id . بينما لو تم حذف هذه العلاقة (طبعا هذه افتراضية) ، فسنرى جميع السجلات ، وعليه يكون البحث لجميع هذه السجلات 🙂 . بمعنى آخر ، اي عدد من البيانات يكون في النوذج الفرعي ، يمكن البحث فيه 🙂 جعفر

وعليكم السلام 🙂 قمت بتغيير اسم زر الامر (2) الى cmd_Find_in_SubForm ، فيصبح الكود على حدث النقر على هذا الزر: Private Sub cmd_Find_in_SubForm_Click() 'نقل التركيز على النموذج الفرعي Me.sub_tb_f.SetFocus 'اختيار الحقل الذي نريد ان نجري عليه البحث DoCmd.GoToControl "no" 'نافذة البحث حسب الاعدادات اعلاه DoCmd.RunCommand acCmdFind End Sub . ولكن للتحكم بإعدادات نافذة البحث : . فنستطيع عن طريق الكود التالي: . والتفاصيل : . وبالإعدادات التالية: نحصل على التافذة التالية، وسبب ظهور الرقم 76 هو انه اول رقم يحصل عليه في البحث: . وعند جمع كود التحكم في نافذة البحث ، مع كود البحث ، يكون الكود هكذا : Private Sub cmd_Find_in_SubForm_Click() 'نقل التركيز على النموذج الفرعي Me.sub_tb_f.SetFocus 'اختيار الحقل الذي نريد ان نجري عليه البحث DoCmd.GoToControl "no" 'التحكم في اعدادات نافذة البحث DoCmd.FindRecord 0, acEntire, False, acSearchAll, False, acAll, True 'نافذة البحث حسب الاعدادات اعلاه DoCmd.RunCommand acCmdFind End Sub جعفر

اخي أبو عبدالله ، هذه الرسالة معناها ان البرنامج معطوب ، ولا اعتقد انه يمكن عمل اي شيء له !! اي نسخة من الاكسس تستخدم؟ وما قصدك انه انه يقوم بالخطوات وبدون نتيجة ، واي نتيجة تتوقع؟ جعفر

السلام عليكم ورحمة الله وبركاته 🙂 حياك الله اخوي صالح ضمن فريق العمل ، خطوة مباركة ان شاء الله 🙂 جعفر

السلام عليكم 🙂 هذه ملاحظة الاخ خلف !! استاذ محمد ، تفضل واعمل التغيير المناسب 🙂 انا على سفر بكرة ان شاء الله ، فما عندي وقت اعمل تعديلات !! بس ارفقت في مشاركتي الاولى ، النسخة 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 🙂 الآن ، اخبرنا وين المشكلة علشان نساعدك 🙂 جعفر