أحمد مبارك الحيقي

وعليكــم السـلام ورحمة الله وبركاتـه.. أخي الكريم، يمكنك استخدام الطريقة DoCmd.TransferText لهذا الغرض، ابحث عنها في ملفات مساعدة الأكسس، وفي الملف المرفق مثال عليها (يتم إنشاء ملف اسمه Phones.txt في D) والله أعلم SaveText.rar

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

لا يمكن استعادة أكثر من قيمة مفردة باستخدام DLookup فقط، هذا من ملفات مساعدة أكسس:

وعليكــم السـلام ورحمة الله وبركاتـه.. طريقة ممكنة: SELECT CDbl(Mid(Str(data.num),1,InStr(1,data.num,".")+3)) FROM data; والله أعلم

وعليكــم السـلام ورحمة الله وبركاتـه.. هناك الكثير من الأكواد الجاهزة بطرق مختلفة، بحث سريع في جوجل سيعيد العديد منها بإذن الله... هذا مثال من منتديات الفريق العربي /index.php?showtopic=105075 وقد قمت من باب التمرين بكتابة كود بطريقة أظنها جديدة والله أعلم تشب…

الأخت الكريمة الأستاذة زهرة... انشغلت لأيام بعد العيد بشدة، لكنني الآن متابع معكم إن شاء الله... على الرغم من أنني لم أهتم سابقاً بإرسال البريد من الأكسس، لكن المشاركات جعلت الموضوع جذاباً... أشكرك جزيلاً على السؤال والمتابعة، ولأنه ليس لي سابق خبرة في هذا الص…

وعليكــم السـلام ورحمة الله وبركاتـه.. الأخ الكريم، ومن بعد إذن أخي مفرج، أود أن أشارك معك، فقد أعجبني أسلوبك لكن أريد أولاً التأكد من فهم السؤال، لأن الجواب حسب فهمي للسؤال استعلام مباشر جداً، وقد أرفقت الاستعلام المبدئي من أجل التأكد من أن هذا هو المطلوب (مع…

وعليكــم السـلام ورحمة الله وبركاتـه.. هاهو أخي ملفك مع الاستعلام المذكور أعلاه (اسمه qrySummary)... zzz.rar

وعليكــم السـلام ورحمة الله وبركاتـه.. جرب أخي هذا التعديل... حقل id لكل عقدة أصلاً موجود كمفتاح للعقدة، ولذلك استفدنا منه عند استدعاء النماذج (لاحظ التغيير في شرط التصفية عند استدعاء النموذج وأيضاً التغيير في تعيين المفتاح للعقد من المستوى الأخير) والله أعلم …

تعجبني الأكواد البسيطة المحكمة :)

وعليكم السلام ورحمة الله وبركاته... جرب أخي الاستعلام التالي: SELECT subcom.typein, subcom.kindin, subcom.stotein, subcom.ip, subcom.noin, subcom.qtyin, subout.ip, subout.nout, subout.qtyout, (subcom.qtyin - subout.qtyout ) As [balance] FROM subcom LEFT JOIN s…

رقم الحلقة (34) السلام عليكم إخوتي الكرام، ومرحباً بكم مرة أخرى... أرجو ألا تكونوا قد مللتم طول السلسلة. قبل أن أواصل الحديث عن مبادئ SQL ربما يجدر بي الإشارة إلى أن الأستاذ العزيز يوسف أحمد قد أشار علي قبل فترة بتجميع المذكرات في كتاب، وقد طلبت منه أن يمهلني …

وهذه محاولة بناء على التقويم المرفق في آخر مشاركة لك أخي.. calender_reservation_hijri.rar

الأخ العزيز... كلامك صحيح، ويمكن إزالة هذا الـbug، بتعديل الكود إلى التالي: Private Sub كود_مركز_التكلفة_AfterUpdate() Dim rs As DAO.Recordset Set rs = Me.[details subform].Form.RecordsetClone If rs.RecordCount > 0 Then rs.MoveFirst While Not rs.EOF rs.Edit rs…

وعليكم السلام ورحمة الله وبركاته... أخي الكريم، راجع هذا الرابط http://support.microsoft.com/kb/832508 والله أعلم.

أخي الكريم... أرجو الاطلاع على هذه المحاولة، مع المعذرة على التقصير... sab.rar

طيب أخي، أرجو إن تكرمت أن ترسل الموديول الذي معك لنحاول بإذن الله... وتقبل الله منا ومنكم صالح العمل، وبارك لك في العيد وما بعده

وعليكم السلام ورحمة الله وبركاته... وكل عام وأنت أخي بأتم صحة وعافية، جرب أن استخدم واحداً من الطريقتين التاليتين: Private Sub axTreeView_DblClick() DoCmd.OpenForm "ff", , , "[mynm]='" & axTreeView.SelectedItem.Text & "'" End Sub Private Sub axTreeView_NodeCli…

أسأل الله أن يتقبل صيامنا وقيامنا في رمضان وأن يوفقنا لصيام الست من شوال وأن ييسر لنا الطاعات ويفتح علينا أبواب الفهم والعلم والرزق الحلال وأن يؤلف بين قلوبنا ويجمعنا على الخير وأن يسخرنا لخدمة دينه وأمة نبيه صلى الله عليه وسلم إنه سميع مجيب

تفضل أخي إذاً هذا التعديل... ما تم هو كالتالي: ضبط الخاصية التالية من أجل أن يأخذ كود المورد في التفاصيل كود المورد في النموذج الرئيس بشكل افتراضي ومن أجل عكس التغيير في كود المورد في النموذج الرئيس على كود المورد في التفاصيل، من الممكن إضافة الكود التالي في ح…