محمد السباعي

تسلم يا أخ أبو سليم فكرة رائعة جزاك الله خيرا

أنا عايز أفهم حضرتك عدلت إيه بالظبط علشان أنا شايف الملف زي ما هو

أرفقت لك مثالا اخي الكريم AddNewRecords.rar

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

اسف أبو سليم

والله مش عارف اقولك ايه اخي ابو سالم بارك الله فيك وزادك علماً أخيك محمد السباعي

أخي أبو سالم الكود لا يعطي خطأ الآن لكن في نفس الوقت لا يظهر الكائنات المخفية أرفقت لك القاعدة ( زر تحديث الإقامة ) 3labarakt_ellah_07.rar

نعم أخي اضفته صورة الخطأ في المرفقات بارك الله فيك على مجهودك معي

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

تسلم يدك يا أبو سليم معذرة هل يوجد شكل آخر لكود الإظهار جزاك الله خيرا

مرفق مثال به الكود أرجو التعديل بارك الله فيكم Visible.rar

السلام عليكم ورحمة الله وبركاته اخواني الكرام عندي نموذج باستخدمه لغرضين الغرض الأول بجعل بعض الحقول مخفية والغرض الآخر أريد ان تظهر هذه الحقول المخفية حاولت ادراج كود الاظهار مع كود فتح النموذج لا يعمل بأي شكل من الاشكال الكود هو : Forms!F_T_Eqama_01_02!Text31.Visible = True الكود المراد ادخال كود الاظهار معه هو : Private Sub Command81_Click() On Error GoTo Err_Command81_Click If IsNull([Combo70]) Then MsgBox "Insert The Number Frist" Else stDocName = "F_T_Eqama_01_02" stlinkcriteria = "[EmployeeKod]=" & Me.Combo70 DoCmd.OpenForm stDocName, , , stlinkcriteria, , acDialog End If Exit_Command81_Click: Exit Sub Err_Command81_Click: MsgBox Err.Description Resume Exit_Command81_Click End Sub افيدوني بالحل بارك الله فيكم جزاكم الله خيرا

بارك الله فيك زادك الله علما

السلام عليكم ورحمة الله أرجو من أهل الخبرة معرفة حل هذا الخطا في معادلة Dlookup المعادلة تعمل بشكل جيد في نموذجها اما لما تكون في نموذج فرعي تعطي خطأ برجاء الإفادة بارك الله فيكم Dlookup.rar

جزاك الله خيرا على الرد هذا ليس مرادي لكن وجدت كود أفادني الحمد لله Private Sub cmdCopyRecord_Click() Dim v1 As Variant Dim v2 As Variant Dim v3 As Variant Dim v4 As Variant Dim v5 As Variant v1 = Me!Field1.Value v2 = Me!Field2.Value v3 = Me!Field3.Value v4 = Me!Field4.Value v5 = Me!Field5.Value RunCommand acCmdRecordsGoToNew Me!Field1 = v1 Me!Field2 = v2 Me!Field3 = v3 Me!Field4 = v4 Me!Field5 = v5 End Sub

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

جزاك الله خير الجزاء

جزاك الله خيرا اخي يوسف على الاهتمام ووضع مثال بأكسيس 2003 من فضلكم على من يجد الحل يخبرني بارك الله فيكم

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

أخي اسامه في المثال يوجد جدول به بيانات العمال دائمين ومؤقتين أريد الفصل بينهم في نموذجين ليكون نموذج به الدائمين على حده ونموذج آخر به المؤقتين على حده

مفيش حل ؟؟؟

جزاك الله خيرا

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

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

ما في حل ؟