محمد احمد لطفى

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

ألا يمكن عملها فى المثال فى عنصر التحكم علامة مجدولة

كيف يمكننى التبديل بين النموذج test and test1 فى نفس الصفحة وجزاكم الله خيرا test1000.rar

جزاك الله خيرا كان لدى مشكلة فى تامين السجلات

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

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

عند الضغط على start تظهر المشكلة

انها نفس القاعدة المرفقة هنا الملاحظ عند تغيير الاسم النموذج الفرعى الاول يغير البيانات المفروض لا يعير البيات يتم التعديل فقط

عند تشغيل البرنامج بعد التعديل تظهر هذه الرسالة

السلام عليكم ورحمة الله و بركاته كيف اعدل الاسم فى النموذج الرئيس و كذلك يتم التعديل على النماذج الفرعية و جزاكم الله خيرا test444.rar

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

شكرا أستاذى Shivan Rekany لك منى كل الشكر و العرفان أين أجد شرح عن التنسيق سواء أكواد أم التنسيق الشرطى

السلام عليكم ورحمة الله و بركاته عندى مشكلة عند البحث اذا كان الكلمة بها علامة apostrophe تظهر رسالة خطا هل من حل ياشباب وجزاكم الله خيراً test5.rar

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

كيف تشغيل زرار من زرار أخر فى نفس النموذج مثلا button1 and button2 كيف اشغل button2 من button1 test300.rar

جزاك الله خيرا حاليا كيف اشغل زرار من زرار أخر فى نفس النموذج مثلا button1 and button2 كيف اشغل button2 من button1 test300.rar

نفس المشكلة ولكن عند عمل زرار به الكود الثانى فقط يعمل من اول مرة هل هناك كود يفصل بين الامرين

اسف مش هاعرف ارفق الملف لانه كبير بس تقريبا لازم افصل الاكواد عن بعضها Private Sub ÃãÑ24_Click() On Error GoTo g: If MsgBox(" åá ÇäÊ ãÊÃßÏ ¿", _ vbCritical + vbYesNo, _ "ÊäÈíå") = vbNo Then Exit Sub Else Dim i As Integer Dim x As Date DoCmd.GoToRecord , , acNewRec x = Forms![DataMasterForm]![test1]![Date_M] For i = 0 To Forms![DataMasterForm]![test1]![no] - 1 Me.date1 = Forms![DataMasterForm]![test1]![Date_M] Me.serial = Forms![DataMasterForm]![test1]![serial] Me.date1 = x Me.no = DateAdd("d", i, Forms![DataMasterForm]![test1]![no1]) DoCmd.GoToRecord , , acNext x = DateAdd("d", Forms![DataMasterForm]![test1]![no2], x) Next DoCmd.Requery End If DoCmd.GoToRecord , , acLast Forms![DataMasterForm]![ends1] = Me.date1 g: Exit Sub End Sub اخر سطرين عاوز افصلهم عن الى فوق DoCmd.GoToRecord , , acLast Forms![DataMasterForm]![ends1] = Me.date1

عدى زرار نقل بيان من النموذج الفرعى الى نموذج رئيس و لكن عند الضغط اول مرة لا ينفذ عند الضغط مرة ثانية يتم التنفيذ هل من حل DoCmd.GoToRecord , , acLast Forms![DataMasterForm]![ends1] = Me.date1 حيث Me.date1 تكون خليه فى النموذج الفرعى

شكرا ياشباب عمل معى هكذا If Forms![main]!![Kind] = "man" then Forms![main]!![work] = "مصر " Then end if end if

السلام عليكم ورحمى الله وبركاته هل هناك خطأ فى هذا الكود لا يعمل If Forms![main]![sub]![Kind] = "man" then if Forms![main]![sub]![work] = "مصر " Then End If End If هذا يعمل تمام ولكن عند اضافة النصف الاخر لا يعمل If Forms![main]!![Kind] = "man"

جزاك الله خيراً و لكن معظم النتائج أتت بالسالب لقد وجدت مثالا للأستاذة زهرة عمل جيداً za-db1.rar

اعتذر لحضرتك كيف يمكن اذا كان السجل الاول 500 و السجل الثانى 1000 أن يكزن النتيجة تظهر بالسالب -500 و ليس بالموجب وجزاك الله خيرا

لا أجدها بتاتا

هل من مساعدة