رمهان

اوكي تمام امهلني نيفا من الوقت اخي محمد تحياتي

تمام ولو ترفق المرفق السابق وبه تعديلاتك افضل والكل يستفيد

العفو .. اللهم أميييييين

جرب If weekday(Date) = 1 Then DoCmd.OpenForm "frm1", acNormal اي فقط استبدل الدالة day بالدالة weekday والكفيلة باعادة رقم اليوم الاسبوعي بالتوفيق

حياك الله اخ احمد لا اعتقد ان للشبكة دور في ذلك ! هل لديك اكثر من نافذة مفتوحة عند التجربة ؟ وكيف انت عامل المشاركة : هل كل البرنامج في مجلد المشاركة ثم فتحه من اماكن بعيدة ؟ ام فاصل البرنامج جداول وواجهات ؟

اخي محمد الموضوع يحتاج رسم سيناريو للعملية صحيحا مختصرا قابل للتنفيذ برمجيا فمسالة اكبس زر يتم الاختيار والادراج ونحن نعرف انه لابد من فصل عملية الاختيار حيث تتم يدويا ثم يتبعها كبسة الزر ومسالة ان يذهب لاول زيارة ونحن نعرف ان الزيارة مرنبطة بالطلاب فالاولى ان نحدد سجل الطلاب من هو قبل تحديد الزيارة بالتوفيق

هل افهم اخي اسلام ان المشكلة ظهرت وتم الحل ؟ هذا شي طبيعي اخ اسلام فالتابع لم يعد عنصرا في قسم التفصيل بل اصبح هناك عنصر يحويه وهو عنصر الجدولة فالتفصيل حاوي للجدولة والجدولة حاوي للتابع وهذه تعرف بالعناصر من نوع container وللاسف يفتقد الاكسس لهذا النوع فتجد الجدولة يعتبر شبه حاوي . ومجموعة الخيار تعتبر شبه حاوي لانها لا تحوي الا انواع معينة من العناصر كعنصري علامة الصح والخيار او الراديو وهناك خاصية مصفوفة العناصر يفتقدها كذلك الاكسس تماما اتمنى لك التوفيق

اعزائي انا موجود ولكن الان ارى ان يستمر الاستاذ حسام فقد قطعتو مشوار كبير في اعادة بناء النظام وملحوظ الوقت المستغرق من قبل الاستاذ حسام في التحليل والتصميم . فلا اريد ان اشارك في الجزء القديم حتى لا يحصل التشتت . ولا اخفيكم سرا انني مازلت بحاجة لقراءة الموضوع مرارا حتى افهمه جيدا مما يجعل الحل مناسب . بالتوفيق

اسؤال اعتقد استاذ ابو خليل يختلف عن الرابط قليلا حيث هنا حقول محدده والرابط جميع النموذج وكسجلات . هذا ولكم ماترونه مناسب الاخ محب البرمجة ارفق مثالك للتطبيق مع توضيح مالمقصود ب لان الاولى ان امنع التعديل من البدء وليس بعد مايكتب اليوزر ويضيع وقته امنع الا بكلمة مرور فارى المنع من البدء حفظا للوقت . الا اذا كان هناك سبب يبطل العجب ! بالتوفيق

ايه يااستاذ ابا جودي هوه الموضوع ده ماخلصنا منه ! كان شبح بالنسبه لي موضوع الفلتره اثناء البحث وتضليل النص المشكلة كانت في التعبير لانه بقي شرط لم يكتمل استبدل التعبير لعنصر البريد الالكتروني بهذا =IIf(IsNull([txtSearch2]),[E_mail],IIf(IsNull([e_mail]),"",Replace([E_mail],[txtSearch2],"<font color=red>" & [txtSearch2] & "</font>"))) وطبق على بقية العناصر بالتوفيق اخي وعزيزي

اخ اسلام انا ذكرت لك سبب المشكلة هو تحقق الشرط وهو وجود الاجمالي خالي . الاان ساشرح لك لماذا خالي وهو السبب المخفي لديك حدث عند الخروج للكائن تابع17 فهو غير مفعل السطر عند الخروج مع ان السطر موجود وما عليك الا النقر عند النقاط ليتعرف الكائن تابع17 على السطر الذي يسند قيمة الاجمالي . وبكذا صرنا حبايب ولو تعرف اديش اتبهذلت علشان اطلع السبب وسبب فعلا غبي اي مخفي تحياتي

نتشرف بالتعاون اخ عبدالله تحياتي

صحيح وفي محله . ولكن اعتقد الاجابة الافضل انه لكل مقام مقال هذه باختصار ولكن الذي يجب ان نعرفه نوعية المعالجة ففي الريكورد ست تتم المعالجة محليا حتى نعمل او نستدعي الامر update اما الا سكيو ال فتتم المعالجة على السيرفر وهنا فد لايظهر الفرق كما ذكرت في الاكسس لانك بفتح الملف كل شي لديك فتعتبر محليا وسيرفريا اما عند فصل الواجهات عن القاعدة وبالتقنيات الاخرى فيظهر الفرق السابق جليا . والموضوع اكبر لو بحثت قليلا فيما استخدم افضل او ما هو الفارق تحياتي

تفضل 1. حدد سجلاتك الفرعية من السجل الاول للرئيسي 2. اذهب لاضافة سجل جديد للطالب ثم اضف زيارة ثم حفظ او انقر على اي عنصر من الفرعي محاضرات ثم انقر زر تم ليتم المطلوب حسب فهمي بالتوفيق Students.rar

الاخ ابو نادر شوف المرفق وبه طريقتين 1. في النموذج 1 وحدث عند التحميل وباستخراج القيمة المخزنة في الجدول 2. في النموذج 2 وحدث عند التحميل وهنا يتطلب ابقاء الرئيسي مفتوحا بالتوفيق cccc.rar

اسمح لي بالتطفل اخي الاستاذ حسام حيث لست من المشرفين بالصدفة ان وجهة نظري معك استاذ حسام وهنا واعيد ذكرها هنا "عن نفسي عندما اشارك بفكرة او حل فهو للسائل اولا ثم للفائدة للجميع ولمن سيمر لاحقا واخيرا هي لنفسي وصدقني بالله هي لنفسي حيث اضعها كمرجع وارشيف استخدمه لاحقا لانه من المستحيل تذكر افكارك فالمنتدى كالمدونة بالنسبة لي . وصدقني بالله انني لا احتفظ باي ملف اشارك به او احمله من المنتدى . هذا واملنا في المهندس محمد طاهر خيرا وبالمحافظة على الاستمرارية ودعمه للمنتدى ولا يتعثر كغيره من المنتديات فهو اعتبره منتدى وارشيف ومدونة " تحياتي اخي وعزيزي حسام

وهذا الاقتراح Private Sub CmdAddtoGroup_Click() DoCmd.RunSQL "insert into tbl_FavConn(Cont_id,Fav_Name) select Cont_id, [forms]![frm_Groups]![txtGroupSrch] from tbl_Contacts where Cont_Selct=true" End Sub بالتوفيق

مشاركة مع الاستاذ ابو ادم وبعد اذنه Private Sub Command0_Click() Static x As Integer If x = 0 Then MsgBox " waleed" Else '''''''''''''''''''''''''''''' مطلوب كود هنا لظهور الرسالة الاولى مرة واحدة فقط ''''''''''' بعد ذلك عند كل كليك تظهر فقط الرسالتين الثانية و الثالثة MsgBox " mohamed" MsgBox " salah" End If x = x + 1 End Sub بالتوفيق

نريد مترجم اولا للجملة !

هلا بك استاذ سعيد اولا خليني اوضح المشكلة وبعدين الاقتراح هنا If Not (rs.EOF And rs.BOF) Then اشترطت ان الريكوردست ليست بوضع النهاية ولا بالبداية وهنا الشرط يتحقق بالجملة التالية Do Until rs.EOF ....... rs.MoveNext Loop فالجملة السابقة سببت حتما السجلات في وضع النهاية وهنا لن يتم المرور على الكود الحل : ضع السطر التالي وهو وضع السجلات في البدء دائما ليصبح الكود Private Sub CmdAddtoGroup_Click() Dim rs As DAO.Recordset Set rs = Me.RecordsetClone rs.MoveFirst If Not (rs.EOF And rs.BOF) Then Do Until rs.EOF If rs!Cont_Selct = True Then DoCmd.SetWarnings False DoCmd.RunSQL "insert into tbl_favconn (fav_name,cont_id) values('" & Me.txtGroupSrch & "','" & rs!Cont_id & "' )" DoCmd.SetWarnings True rs.Edit rs!Cont_Selct = False rs.Update End If rs.MoveNext Loop MsgBox "done" rs.Close Set rs = Nothing End If End Sub بالتوفيق

ممكن تحدد اكثر ؟ بشرح او ما هو عمل هذا النموذج لكي تفهم الصورة اكثر ! واذا كان عند فتح البرنامج فمشاركة الاستاذ ابو ادم تفي بالغرض او هات مرفق وبه المطلوب بالتوفيق

تمام ياباشا برافو عليك اهو انت ماشاء الله وماكانت حتخطر على بالي تحياتي

الله المستعان اخي اسلام ساعود لك ان شاء الله

اوكي اخي وائل امهلني نيفا من الوقت ولي عودة

اجرب ولي عودة