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

عندى فى النموذج الاكسيس يرى التاريخ كأنه حقل Me.start = date يرى date كأنه حقل لا أعرف لماذا و لا يوجد حقل عندى باسم date هل يمكن كتابتها date بطريقه أخرى

يعنى مثلا هنضيف خانة وقت if me.time = 00:00:00 and 04:00:00 then me.test1 = date ( ) -1 or me.test1 = test -1 end if طبعا هذا الكود لن يعمل اريد من حضراتكم المساعدة فى كتابته الكتابة الصحيحة وجزاكم الله خيرا وكل عام و انتم بخير

هذا الكود سيعمل طوال اليوم و تاريخ اليوم الفعلى سينقص يوم

هل يمكن عند الضعط على الاختيار ( صح) من الساعة 12 منتصف الليل الى الساعة 4 فجراً تكون النتيجة بدل أن يضيف تاريخ اليوم يضيف تاريخ أمس و باقى اليوم يضيف التاريخ العادى يعنى الان الساعة 12:45 بدل أن يضيف تاريخ 25/6/2017 يضيف 24/6/2017 ووجزاكم الله خيرً وكل عام و حضراتكم طيبون test1001.rar

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

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

كيف يمكننى التبديل بين النموذج 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"