محمد احمد لطفى قام بنشر يناير 29, 2017 مشاركة قام بنشر يناير 29, 2017 عند الضغط على البحث ضغطتين يظهر نموذج بحث و عند الضغط على الاسم المراد البحث عنه يظهر فى النمموذج الاخر و يبحث اريد عند ادخل الاسم من النموذج البحث يعمل البحث فى البحث الاول test40.rar رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر يناير 29, 2017 مشاركة قام بنشر يناير 29, 2017 9 دقائق مضت, محمد احمد لطفى said: عند الضغط على البحث ضغطتين يظهر نموذج بحث و عند الضغط على الاسم المراد البحث عنه يظهر فى النمموذج الاخر و يبحث اريد عند ادخل الاسم من النموذج البحث يعمل البحث فى البحث الاول test40.rar عفوا منك اخي محمد لكن تكدر توضح اكثر اي تكتب النماذج بدل نموذج او نموذج اخر 1 رابط هذا التعليق شارك More sharing options...
محمد احمد لطفى قام بنشر يناير 29, 2017 الكاتب مشاركة قام بنشر يناير 29, 2017 كومبو بوكس نموذج main0 اريده ان يعمل من form0 عندما نفتح نموذج main0 نضغط على الكمبوبوكس ضغطين سوف يظهر نموذج form0 نضغط على الاسم المراد نقله الى كمبوبوكس نموذج main0 سوف ينقل الاسم ولكن البحث لن يجرى اريد عند نقل الاسم ان يظهر بيانات الاسم فى نموذج main0 رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر يناير 29, 2017 مشاركة قام بنشر يناير 29, 2017 30 دقائق مضت, محمد احمد لطفى said: كومبو بوكس نموذج main0 اريده ان يعمل من form0 عندما نفتح نموذج main0 نضغط على الكمبوبوكس ضغطين سوف يظهر نموذج form0 نضغط على الاسم المراد نقله الى كمبوبوكس نموذج main0 سوف ينقل الاسم ولكن البحث لن يجرى اريد عند نقل الاسم ان يظهر بيانات الاسم فى نموذج main0 اتفضل ملفك بعد تعديل test40.rar 1 رابط هذا التعليق شارك More sharing options...
محمد احمد لطفى قام بنشر يناير 29, 2017 الكاتب مشاركة قام بنشر يناير 29, 2017 (معدل) جزاك الله خيرا لدى كود أخر فى قى الحال 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 ولا يعملان معا تم تعديل يناير 29, 2017 بواسطه محمد احمد لطفى 1 رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر يناير 29, 2017 مشاركة قام بنشر يناير 29, 2017 12 دقائق مضت, محمد احمد لطفى said: جزاك الله خيرا لدى كود أخر فى قى الحال 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 ولا يعملان معا ارفق القاعدة اللي بها ذاك الكود لكي نشوفه ولعل وعسى ان نجد الحل مع تقدير 1 رابط هذا التعليق شارك More sharing options...
محمد احمد لطفى قام بنشر يناير 29, 2017 الكاتب مشاركة قام بنشر يناير 29, 2017 3 hours ago, Shivan Rekany said: ارفق القاعدة اللي بها ذاك الكود لكي نشوفه ولعل وعسى ان نجد الحل مع تقدير تفضل يا استاذى test50.rar رابط هذا التعليق شارك More sharing options...
محمد احمد لطفى قام بنشر يناير 29, 2017 الكاتب مشاركة قام بنشر يناير 29, 2017 عامل مشاكل مع الصور رابط هذا التعليق شارك More sharing options...
أبو عبدالله الحلوانى قام بنشر يناير 29, 2017 مشاركة قام بنشر يناير 29, 2017 السلام عليكم المرفق يعمل عندى بشكل جيد وبدون مشاكل نرجو توضيح موضع الخلل وما هى رسالة الخطأ التى تظهر لديكم وعند أى سطر من الكود 1 رابط هذا التعليق شارك More sharing options...
محمد احمد لطفى قام بنشر يناير 30, 2017 الكاتب مشاركة قام بنشر يناير 30, 2017 ضع لكل سجل صورة و استخدم كومبو بوكس نموذج main0 اريده ان يعمل من form0 عندما نفتح نموذج main0 نضغط على الكمبوبوكس ضغطين سوف يظهر نموذج form0 نضغط على الاسم المراد نقله الى كمبوبوكس نموذج main0 لن تظهر صور سوف تظهر صورة واحدة فقط رابط هذا التعليق شارك More sharing options...
محمد احمد لطفى قام بنشر يناير 30, 2017 الكاتب مشاركة قام بنشر يناير 30, 2017 Up رابط هذا التعليق شارك More sharing options...
محمد احمد لطفى قام بنشر يناير 30, 2017 الكاتب مشاركة قام بنشر يناير 30, 2017 21 hours ago, محمد احمد لطفى said: تفضل يا استاذى test50.rar رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر يناير 30, 2017 مشاركة قام بنشر يناير 30, 2017 3 ساعات مضت, محمد احمد لطفى said: Up ان شاء الله راح اشوفه بس خلي بيكون عندي مجال 1 رابط هذا التعليق شارك More sharing options...
محمد احمد لطفى قام بنشر فبراير 4, 2017 الكاتب مشاركة قام بنشر فبراير 4, 2017 هل من مساعدة رابط هذا التعليق شارك More sharing options...
أفضل إجابة Shivan Rekany قام بنشر فبراير 4, 2017 أفضل إجابة مشاركة قام بنشر فبراير 4, 2017 عامل مشاكل مع الصور ان شاء الله خلاص مافي المشاكل بعد Up اي الان ان شاء الله هل من مساعدة نعم والان صار كود في الحال للنموذج الى Private Sub Form_Current() On Error GoTo HandleErr Dim rs As Object If Not IsNull([PicFile]) Then [imgPicture].Picture = [PicFile] SysCmd acSysCmdSetStatus, "Image: '" & [PicFile] & "'." Set rs = Me.Recordset.Clone rs.FindFirst "[Name_b] = '" & Me![مربع_تحرير_وسرد96] & "'" If Not rs.EOF Then Me.Bookmark = rs.Bookmark Else [imgPicture].Picture = "" SysCmd acSysCmdClearStatus End If Exit Sub HandleErr: If Err = 2220 Then [imgPicture].Picture = "" SysCmd acSysCmdSetStatus, "Can't open image: '" & [PicFile] & "'" Set rs = Me.Recordset.Clone rs.FindFirst "[Name_b] = '" & Me![مربع_تحرير_وسرد96] & "'" If Not rs.EOF Then Me.Bookmark = rs.Bookmark Else MsgBox Err.Description, vbExclamation End If End Sub واليك ملفك بعد تعديل test50.rar 2 رابط هذا التعليق شارك More sharing options...
محمد احمد لطفى قام بنشر فبراير 4, 2017 الكاتب مشاركة قام بنشر فبراير 4, 2017 الله ينور عليك جزاك الله خيرا رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان