إخفاء مربع نص بشرط

بدأه كريمو2 في 4 سبتمبر 2014 · 9 رد · 351 مشاهدة · في قواعد بيانات Microsoft Access

#14 سبتمبر 2014 في 10:06 صاحب الموضوع

السلام عليكم إخواني

كيف يتم تصحيح هذا الحدث كي يتم إخفاء مربع نص اسم الزوجة عندما يكون مربع نص ComboBox مكتوب فيه "أعزب" او "عزباء" ويظهر عندما يكون "متزوج"

Private Sub ComboBox_AfterUpdate()

If Me.ComboBox.Value = "متزوج" Then

Me.اسم_الزوجة.Visible = True

Me.اسم_الزوجة.Visible = True

Me.اسم_الزوجة.Visible = True

End If


If Me.ComboBox.Value = "أعزب" Then

Me.اسم_الزوجة.Visible = False

Me.اسم_الزوجة.Visible = False

Me.اسم_الزوجة.Visible = False


End If


End Sub

تم تعديل هذه المشاركة بواسطة كريمو2 في 4 سبتمبر 2014 في 10:07

الْلَّهُم صَلِّ وَبَارِك وَسَلِم عَلَى سَيِّدِنَا مُحَمَّد وَعَلَى الِه وَصَحْبِه وَسَلِّم

#25 سبتمبر 2014 في 01:22

Private Sub ComboBox_AfterUpdate()

If Me.ComboBox.Value = "متزوج" Then

Me.[اسم_الزوجة].Visible = True

else

Me.[اسم_الزوجة].Visible = False

End If

End Sub

كما انصحك بوضع البرمجة في الحدث

Current

للفورم وذلك ليتم تنفيذة في حال التنقل بين السجلات

ولا اعلم لما كررت اسم الزوجة 3 مرات؟؟؟؟؟؟؟؟؟؟؟

تم تعديل هذه المشاركة بواسطة fwares في 5 سبتمبر 2014 في 01:25

#35 سبتمبر 2014 في 16:43

fwares كتب:

Private Sub ComboBox_AfterUpdate()

If Me.ComboBox.Value = "متزوج" Then
Me.[اسم_الزوجة].Visible = True

else
Me.[اسم_الزوجة].Visible = False

End If

End Sub

كما انصحك بوضع البرمجة في الحدث
Current
للفورم وذلك ليتم تنفيذة في حال التنقل بين السجلات
ولا اعلم لما كررت اسم الزوجة 3 مرات؟؟؟؟؟؟؟؟؟؟؟

شكرا لك اخي fwares

لقد وضعت الكود في الفورم عند الحدث "في الحالي " ولكن تحت كود اخر وهو

Private Sub Form_Current()
  On Error GoTo HandleErr
  If Not IsNull([PicFile]) Then
    [imgPicture].Picture = [PicFile]
    SysCmd acSysCmdSetStatus, "Image: '" & [PicFile] & "'."
  Else
    [imgPicture].Picture = ""
    SysCmd acSysCmdClearStatus
  End If
  Exit Sub

HandleErr:
  If Err = 2220 Then
    [imgPicture].Picture = ""
    SysCmd acSysCmdSetStatus, "Can't open image: '" & [PicFile] & "'"
  Else
    MsgBox Err.Description, vbExclamation
  End If
If Me.ComboBox.Value = "متزوج" Then
Me.[اسم_الزوجة].Visible = True
 
Else
Me.[اسم_الزوجة].Visible = False
 
End If

End Sub

فأصبح مربع النص مرة يختفي ومرة لا

كيف العمل

الْلَّهُم صَلِّ وَبَارِك وَسَلِم عَلَى سَيِّدِنَا مُحَمَّد وَعَلَى الِه وَصَحْبِه وَسَلِّم

#45 سبتمبر 2014 في 18:07

Private Sub Form_Current()

On Error GoTo HandleErr

If Not IsNull([PicFile]) Then

[imgPicture].Picture = [PicFile]

SysCmd acSysCmdSetStatus, "Image: '" & [PicFile] & "'."

Else

[imgPicture].Picture = ""

SysCmd acSysCmdClearStatus

End If

If Me.ComboBox.Value = "متزوج" Then

Me.[اسم_الزوجة].Visible = True

Else

Me.[اسم_الزوجة].Visible = False

End If

Exit Sub

HandleErr:

If Err = 2220 Then

[imgPicture].Picture = ""

SysCmd acSysCmdSetStatus, "Can't open image: '" & [PicFile] & "'"

Else

MsgBox Err.Description, vbExclamation

End If

عزيزي فقط ضع الكود قبل

exit sub

HandleErr::

وسيعمل تماما

تم تعديل هذه المشاركة بواسطة fwares في 5 سبتمبر 2014 في 18:08

#55 سبتمبر 2014 في 21:46

بقي نفس الشيء مرة يظهر ومرة يختفي عند إختيار "أعزب"

Private Sub Form_Current()

  On Error GoTo HandleErr

  If Not IsNull([PicFile]) Then

    [imgPicture].Picture = [PicFile]

    SysCmd acSysCmdSetStatus, "Image: '" & [PicFile] & "'."

  Else

    [imgPicture].Picture = ""

    SysCmd acSysCmdClearStatus

  End If

If Me.ComboBox.Value = "متزوج" Then

Me.[اسم_الزوجة].Visible = True


Else

Me.[اسم_الزوجة].Visible = False


End If

  Exit Sub


HandleErr:

  If Err = 2220 Then

    [imgPicture].Picture = ""

    SysCmd acSysCmdSetStatus, "Can't open image: '" & [PicFile] & "'"

  Else

    MsgBox Err.Description, vbExclamation

  End If

الْلَّهُم صَلِّ وَبَارِك وَسَلِم عَلَى سَيِّدِنَا مُحَمَّد وَعَلَى الِه وَصَحْبِه وَسَلِّم

#65 سبتمبر 2014 في 21:47

بقي نفس الشيء مرة يظهر ومرة يختفي عند إختيار "أعزب"

Private Sub Form_Current()

  On Error GoTo HandleErr

  If Not IsNull([PicFile]) Then

    [imgPicture].Picture = [PicFile]

    SysCmd acSysCmdSetStatus, "Image: '" & [PicFile] & "'."

  Else

    [imgPicture].Picture = ""

    SysCmd acSysCmdClearStatus

  End If

If Me.ComboBox.Value = "متزوج" Then

Me.[اسم_الزوجة].Visible = True


Else

Me.[اسم_الزوجة].Visible = False


End If

  Exit Sub


HandleErr:

  If Err = 2220 Then

    [imgPicture].Picture = ""

    SysCmd acSysCmdSetStatus, "Can't open image: '" & [PicFile] & "'"

  Else

    MsgBox Err.Description, vbExclamation

  End If

الْلَّهُم صَلِّ وَبَارِك وَسَلِم عَلَى سَيِّدِنَا مُحَمَّد وَعَلَى الِه وَصَحْبِه وَسَلِّم

#75 سبتمبر 2014 في 21:48

بقي نفس الشيء مرة يظهر ومرة يختفي عند إختيار "أعزب"

Private Sub Form_Current()

  On Error GoTo HandleErr

  If Not IsNull([PicFile]) Then

    [imgPicture].Picture = [PicFile]

    SysCmd acSysCmdSetStatus, "Image: '" & [PicFile] & "'."

  Else

    [imgPicture].Picture = ""

    SysCmd acSysCmdClearStatus

  End If

If Me.ComboBox.Value = "متزوج" Then

Me.[اسم_الزوجة].Visible = True


Else

Me.[اسم_الزوجة].Visible = False


End If

  Exit Sub


HandleErr:

  If Err = 2220 Then

    [imgPicture].Picture = ""

    SysCmd acSysCmdSetStatus, "Can't open image: '" & [PicFile] & "'"

  Else

    MsgBox Err.Description, vbExclamation

  End If

الْلَّهُم صَلِّ وَبَارِك وَسَلِم عَلَى سَيِّدِنَا مُحَمَّد وَعَلَى الِه وَصَحْبِه وَسَلِّم

#85 سبتمبر 2014 في 22:45

ارجو منك ارسال الملف مضغوط
اعتقد المشكلة ليست بالكود

#95 سبتمبر 2014 في 23:19

هاهو الملف

fonction.rar

الْلَّهُم صَلِّ وَبَارِك وَسَلِم عَلَى سَيِّدِنَا مُحَمَّد وَعَلَى الِه وَصَحْبِه وَسَلِّم

#105 سبتمبر 2014 في 23:42

اتفقنا ان تضع الكود في مكانين

الاول هو after update ونصحتك ان تضعه ايضا في current

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

مثال عن اسماء الحقول

empName التسمية التوضيحه : اسم الموظف

empPic التسمية التوضيحة : صورة الموظف

fonction.rar

مواضيع مشابهة

اخفاء مربع نص مدرج بتقرير عند الطباعة فقط2 رد · 31 مايو 2010
اخفاء مربع النص في التقرير بالشرط4 رد · 17 ديسمبر 2009
اخواني كيف يمكن اخفاء السهم في مربع التحرير والسرد1 رد · 18 نوفمبر 2010
اخفاء السجلات الفارغة في مربع تحرير وسرد3 رد · 13 أغسطس 2013
تجميع لعدة سجلات في مربع خانة ثم أخفاء مربع / خانة ..2 رد · 28 نوفمبر 2010
كيفية اخفاء مربع قائمة7 رد · 8 سبتمبر 2010

إخفاء مربع نص بشرط

مواضيع مشابهة

عدد الزوار حالياً