بحث نموذج من نموذج أخر

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

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

اريد عند ادخل الاسم من النموذج البحث يعمل البحث فى البحث الاول

test40.rar

[Shivan Rekany]

9 دقائق مضت, محمد احمد لطفى said:

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

اريد عند ادخل الاسم من النموذج البحث يعمل البحث فى البحث الاول

test40.rar

عفوا منك اخي محمد
لكن تكدر توضح اكثر اي تكتب النماذج بدل نموذج او نموذج اخر
 

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

كومبو بوكس نموذج 

main0 

اريده ان يعمل من 

form0

عندما نفتح نموذج 

main0

نضغط على الكمبوبوكس ضغطين سوف يظهر نموذج 

form0

نضغط على الاسم المراد نقله الى 

كمبوبوكس نموذج 

main0

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

[Shivan Rekany]

30 دقائق مضت, محمد احمد لطفى said:

كومبو بوكس نموذج 

main0 

اريده ان يعمل من 

form0

عندما نفتح نموذج 

main0

نضغط على الكمبوبوكس ضغطين سوف يظهر نموذج 

form0

نضغط على الاسم المراد نقله الى 

كمبوبوكس نموذج 

main0

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

اتفضل ملفك بعد تعديل
 

test40.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

 

ولا يعملان معا 

تم تعديل يناير 29, 2017 بواسطه محمد احمد لطفى

[Shivan Rekany]

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

 

ولا يعملان معا 

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

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

3 hours ago, Shivan Rekany said:

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

تفضل يا استاذى

test50.rar

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

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

[أبو عبدالله الحلوانى]

السلام عليكم

المرفق يعمل عندى بشكل جيد وبدون مشاكل 

نرجو توضيح موضع الخلل وما هى رسالة الخطأ التى تظهر لديكم وعند أى سطر من الكود

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

ضع لكل سجل صورة 

و استخدم 

كومبو بوكس نموذج 

main0 

اريده ان يعمل من 

form0

عندما نفتح نموذج 

main0

نضغط على الكمبوبوكس ضغطين سوف يظهر نموذج 

form0

نضغط على الاسم المراد نقله الى 

كمبوبوكس نموذج 

main0

لن تظهر صور  سوف تظهر صورة واحدة فقط

 

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

Up

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

21 hours ago, محمد احمد لطفى said:

تفضل يا استاذى

test50.rar

 

[Shivan Rekany]

3 ساعات مضت, محمد احمد لطفى said:

Up

ان شاء الله راح اشوفه
بس خلي بيكون عندي مجال

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

هل من مساعدة

[Shivan Rekany]

 

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

ان شاء الله خلاص مافي المشاكل بعد

 

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

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

الله ينور عليك جزاك الله خيرا