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

هل من مساعدة

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

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

اذا اجلت مرة On Error Resume Next واذا كنسلت مرة اخرى يكرر نفس الامر الاول أما هذا الكود فهو افضل On Error GoTo g: g: Exit Sub هل ينفع عمل رسالة التاجيل نموذج بدلا من

Up

صحيح تغيير هذا الى فورم عند الضغط على كنسل يظهر خطأ

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

عامل مشاكل مع الصور

هل يمكن عمل هذا المربع الحوارى عن طريق form أم لا

تفضل يا استاذى test50.rar

هل من مساعدة

جزاك الله خيرا لدى كود أخر فى قى الحال Dim rs As Object Set rs = Me.Recordset.Clone rs.FindFirst "[Titles] = '" & Me![ãÑÈÚ_ÊÍÑíÑ_æÓÑÏ53] & "'" If Not rs.EOF Then Me.Bookmark = rs.Bookmark On Error GoTo HandleErr If Not IsNull([MainData.PicFile]) Then [imgPicture].Picture = [MainData.PicFile] SysCmd acSysCmdSetStatus, "Image: '" & [MainData.PicFile] & "'." Else [imgPicture].Picture = "" SysCmd acSysCmdClearStatus End If Exit Sub HandleErr: If Err = 2220 Then [imgPicture].Picture = "" SysCmd acSysCmdSetStatus, "Can't open image: '" & [MainData.PicFile] & "'" Else MsgBox Err.Description, vbExclamation End If End Sub ولا يعملان معا

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

عند الضغط على البحث ضغطتين يظهر نموذج بحث و عند الضغط على الاسم المراد البحث عنه يظهر فى النمموذج الاخر و يبحث اريد عند ادخل الاسم من النموذج البحث يعمل البحث فى البحث الاول test40.rar

بسم الله الرحمن الرحيم عند الضغط على زرار تأجيل يفتح رسالة كم يوم سيؤجل مثلا نضع 30 يأجل التاريخ فى السجل و السجلات التالية وجزاكم الله خيرا test30.rar

هذا ما اريده يا أخوانى أعتذر ان لم اقدر ان اوصل لكم ما اريده تم تغيير فى اول الكود DoCmd.GoToRecord , , acNext الى DoCmd.GoToRecord , , acNewRec تم الحل و جزاكم الله خيرا test42.rar

بسم الله الرحمن الرحيم الخلية من هى بداية تسلسل السجلات الخلية عدد هى عدد السجلات التى يجب اضافتها زرار ستارت لاضافة البيانات اول مرة زرار ستارت 2 لاضافة البيانات اكثر من مرة الخلية من عندما تساوى 1 و الخلية عدد عندما تساوى 5 بالضغط على ستارت اضاف السجلات من 1 و2و3و4و5 2بالضغط على ستارت الخلية من عندما تساوى 10 و الخلية عدد عندما تساوى 15 اضاف السجلات من 10 و11و12و13و14 كله ده تمام اريد عند الضغط ستارت 2 اكثر من مرة عندما تكون الخلية من بها رقم 1 والخلية عدد بها عدد السجلات تبدأ السجلات مرة اخرى بنفس رقم 1 فى هذا المثال بدأت مرة اخرى من 10 الى 15 اذا تم الضغط وهى بنفس القيمة يكرر من 10 الى 15 اذا لم تصل الفكرة رجاء افادتى وجزاك الله خيرا test42.rar

UP

جزاك الله خيرا تم الحل

بسم الله الرحمن الرحيم الخلية من هى بداية تسلسل السجلات الخلية عدد هى عدد السجلات التى يجب اضافتها زرار ستارت لاضافة البيانات اول مرة زرار ستارت 2 لاضافة البيانات اكثر من مرة الخلية من عندما تساوى 1 و الخلية عدد عندما تساوى 5 بالضغط على ستارت اضاف السجلات من 1 و2و3و4و5 2بالضغط على ستارت الخلية من عندما تساوى 10 و الخلية عدد عندما تساوى 5 اضاف السجلات من 10 و11و12و13و14 كله ده تمام اريد عند الضغط ستارت 2 اكثر من مرة عندما تكون الخلية من بها رقم 1 والخلية عدد بها عدد السجلات تبدأ السجلات مرة اخرى بنفس رقم 1 فى هذا المثال بدأت مرة اخرى من 10 الى 15 اريد اذا تم الضغط وهى بنفس القيمة يضيف من 10 الى 15 مرة اخرى اذا لم تصل الفكرة رجاء افادتى وجزاك الله خيرا test42.rar

عندى خلية التاريخ اريد فى الاستعلام ظهور يوم الاسبوع لهذا التاريخ يعنى مثلا 27/1/2017 يوافق يوم الجمعة test20.rar

عملت معى فقط عندما كتبت الكود فى الاستعلام عندما عملت جميع الخطوات لم تعمل قمت بحذف الكود من مربع سرد و ارجاعه بياناته الى النتموذج الرئيسى و لم يتبقى الا كود الذى اضفته فى الاستعلام و عملت جيدا Like "*" & [Forms]![test1]![مربع_تحرير_وسرد15] شكراً كثيراً لك

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

1 - اذا كان لدينا استعلام لتحديد بعض البيانات مثلا ظهور اسم أحمد فقط او العمر اكبر من 30 كيف سنضيف "محمد" Or Like "*" & [Forms]![test1]![مربع_تحرير_وسرد15] هل سيتم انشاء استعلام جديد من الاستعلام test1 لاضافة Like "*" & [Forms]![test1]![مربع_تحرير_وسرد15]