jjafferr

الكود ظاهرا تمام !! ارفق البرنامج اشوفه جعفر

قد تفيدك هذه الروابط: Download/Retrieve Email from Gmail account in VB 6.0 و example for gmail with vba-web جعفر

السلام عليكم رجاء تعطي توضيح للارقام من 25700 ، 25710 ، ... ، 25790 جعفر

افكر كثيرا فيما قلت ولكن كيف التنفيذ هل من مساعدة او اقتراح بشان تلك القاعدة السلام عليكم خليني افكر معاك ، بس بصوت عالي ممكن انك تسمعه احنا محتاجين جدولين ، tbl_Software ، ويكون فيه Software_ID (المعرّف ، ويربط به الجدول الآخر ايضا) ، اسم البرنامج ، الايميل ، كلمة السر ، الجدول الثاني هو tbl_Software_Feedback ، ونربطه بحقل Software_ID في الجدول الاخر ، In_Out (نوع الرسالة خارجة او آتيه) ، الرسالة ، التاريخ ، وهنا ، الكود يأخذ بياناته من الجدول جعفر

تفضل سيدي الفاضل Private Sub Form_Open(Cancel As Integer) 'عند فتح النموذج ، اجعل النموذج الفرعي مخفي 'لأننا لا نريد المستخدم ان يرى غير البيانات المطلوبة Me.sfrm_updatefrm.Visible = False End Sub Private Sub poscom_AfterUpdate() 'الآن وقد تم اختيار الشخص ، نجعل النموذج الفرعي مرئي Me.sfrm_updatefrm.Visible = True 'هناك حقلين موجودين في الجدول لكل شخص 'حقل يبدأ بكلمة "حالة" و حقل يبدأ بكلمة "بريد" فقط 'فإذا اضفنا كلمة "حالة " قبل اسم الشخص ، ثم اضفنا اسم الشخص عليها 'ستكون نفس اسم الحقل في الجدول ، ونفس الشئ بالنسبة للحقل الثاني، بريد H = "حالة " & [Forms]![updatefrm]![poscom] B = "بريد " & [Forms]![updatefrm]![poscom] 'نعطي هذه الاسماء لمسميات الحقول Me.sfrm_updatefrm!lbl_H.Caption = H Me.sfrm_updatefrm!lbl_B.Caption = B 'والآن نعطي هذه الاسماء كمصدر للحقول Me.sfrm_updatefrm!str_H.ControlSource = H Me.sfrm_updatefrm!str_B.ControlSource = B 'الآن نعمل استعلام ، ليكون مصدر للنموذج الفرعي 'اولا نأخذ الحقول الثابتة mySQL = "SELECT Category, [Sub-Category], Action, [Due Date], " 'نضيف الحقلين المتغيرين للشخص، والتي تم عملهما في اعلاه mySQL = mySQL & "[" & H & "], " mySQL = mySQL & "[" & B & "]" 'ونكمل الاستعلام بإضافة مصدر معلوماته ، وهو الجدول mySQL = mySQL & " FROM Maintb" 'Debug.Print mySQL 'الآن وقد تم عمل استعلام مصدر بيانات النموذج الفرعي 'نخبر البرنامج ان يستعمله Me.sfrm_updatefrm.Form.RecordSource = mySQL 'ولو انه لا داعي للسطر التالي ، ولكنه لإعادة قراءة البيانات من الجدول Me.sfrm_updatefrm.Requery End Sub جعفر

تفضل . الكود الذي يقوم بالعمل هو: Private Sub Form_Open(Cancel As Integer) Me.sfrm_updatefrm.Visible = False End Sub Private Sub poscom_AfterUpdate() Me.sfrm_updatefrm.Visible = True H = "حالة " & [Forms]![updatefrm]![poscom] B = "بريد " & [Forms]![updatefrm]![poscom] Me.sfrm_updatefrm!lbl_H.Caption = H Me.sfrm_updatefrm!lbl_B.Caption = B Me.sfrm_updatefrm!str_H.ControlSource = H Me.sfrm_updatefrm!str_B.ControlSource = B mySQL = "SELECT Category, [Sub-Category], Action, [Due Date], " mySQL = mySQL & "[" & H & "], " mySQL = mySQL & "[" & B & "]" mySQL = mySQL & " FROM Maintb" 'Debug.Print mySQL Me.sfrm_updatefrm.Form.RecordSource = mySQL Me.sfrm_updatefrm.Requery End Sub جعفر 368.Database1.mdb.zip

اما انا فعلى قد حالي ما أقرأ بين السطور ، وما افهم بدون مثال جعفر

شكرا على محاولاتك ، وصبرك جعفر

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

تفضل بس عليك تعديل التقرير بالشكل اللي تريده جعفر 367.Database1.mdb.zip

وعليكم السلام فتشت الجداول الثلاث ، ولم القى حقل للموظفين!! وياريت تعطينا شرح مفصل اكثر ، حتى نستطيع ان نقتدي به ونساعدك في برنامجك جعفر

وعليكم السلام الله يطول في عمرك اخوي هادي ، مالقيت حقل بإسم "الفئة" في الجداول الثلاث وبعدين ، شو اللي تريده في التقرير؟ جعفر

وعليكم السلام الطريقة الاسهل لمنع تكرار الاسم هي في اعدادات حقل الاسم في الجدول: فهرسة = نعم (لا للتكرار) جعفر

اذا صورة او صورتين صغار ، فما في مشكلة ان شاء الله هذا كود السطر الواحد ، واللي يربط الصورة بالنموذج/التقرير: شوف هذا الرابط ، فيه الكثير ، بس إقرأه على كيفيك ، إبدأ من اول السؤال وهذا جعفر

وعليكم السلام البحث في المنتدى اعطاني: و وطبعا هنلك المزيد جعفر

السلام عليكم السيد جمال شرح طريقة ارسال رسائل عن طريق Gmail في الرابط التالي: جعفر

حياك الله بس يا أخوي سلمان ، ترى حفظ الصور في قاعدة البيانات بيضخم برنامجك ويعمل لك مشاكل في المستقبل القريب ، لذا يُنصح بعمل مجلد خارجي ، عادة يكون داخل مجلد BE ، وتحفظ الصور هناك بتنظيم يناسب برنامجك ، وربط الصور بالبرنامج يكون بكود من سطر واحد جعفر

وعليكم السلام اخي سلمان انا استعملت حقل من نوع ATTACHMENT وادخلت الصورة مياشرة في الجدول. جعفر 366.SA1.accdb.zip

حياك الله والفضل يعود للأستاذ رمهان جعفر

أخي الفاضل مشكلتك ليست في الكود ، وانما في البرنامج ككل ، واعدادات الوندوز ، والدليل هو رسالة OLE Active x . افتح ملف اكسس جديد ، واستورد جميع كائنات هذه البرنامج الى البرنامج الجديد ، ثم جرب الكود جعفر

وعليكم السلام استخدم الكود اللي استعملناه في الاستعلام: في النموذج ، وبعد ان تدخل اسم ولي الامر ، استخدم الكود اعلاه (وليس الاستعلام) في msgbox ، وسيحسب لك المتبقي عليه ويخبرك بذلك جعفر

في نفس الحدث ، وبدل السطرين ، جرب السطر التالي: msgbox Me.ID_Tarif.Column(1) واخبرنا النتيجة بالصورة لوسمحت جعفر

وعليكم السلام انا غيرت في الجدول ، وجعلت الامكانية ، لكل نموذج اسم مستقل الوحدة النمطية التي تقوم بالعمل: Function myName(F) myName = DLookup("[frm_Caption]", "tbl_frm_Caption", "[frm_Name]='" & F & "'") End Function ونناديها سواء على حدث "تحميل النموذج" او "فتح النموذج" ، هكذا: Me.Caption = myName(Me.Name) والنتيجة جعفر 365.for form.Caption.mdb.zip

السلام عليكم غيّر الكود: بدل Me![Désignation] = Me![ID_Tarif].Column Me![Prix_unitaire] = Me![ID_Tarif].Column الى Me![Désignation] = Me![ID_Tarif].Column(1) Me![Prix_unitaire] = Me![ID_Tarif].Column(2) جعفر

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