مممكن مساعدة في تعديل في بنامج اكسس

nacer_alger · 2013-07-23, 13:35

السلام عليكم
انا في طور تصميم برناج باكسس لكن توقفت عند مشكلة في محرر النض visual basic
كود اظهار zone de texte عند اختيار قيم في zone de liste déroulement
ارجو مساعدة

لقد قمت بوضع توضيح لمشكلتي في ملف ورد بصورة
https://hotfile.com/dl/234907536/7a7c40f/____.doc.html

لقد رفعت المشروع الذي انا في طور العمل فيه
ارجو المساعدة

https://hotfile.com/dl/234961576/a97..._bois.rar.html

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

If Me.Type_de_payement.Value = "Especes" Then

Me.N°de_chèque.Visible = False
Me.versemente.Visible = False
Me.Reste_à_ajouter_au_solde.Visible = False
Me.Texte55.Visible = False
Else
Me.N°de_chèque.Visible = True
Me.versemente.Visible = True
Me.Reste_à_ajouter_au_solde.Visible = True
Me.Texte55.Visible = True
ElseIf Me.Type_de_payement.Value = "cridit" Then
Me.N°de_chèque.Visible = False
Else
Me.versemente.Visible = True
Me.Reste_à_ajouter_au_solde.Visible = True

عاصم ق · 2013-08-01, 18:55

السلام عليكم
أخي هناك خطأ في البرنامج .. جرب هذا

If Me.Type_de_payement.Value = "Especes" Then
Me.N°de_chèque.Visible = False
Me.versemente.Visible = False
Me.Reste_à_ajouter_au_solde.Visible = False
Me.Texte55.Visible = False
Else

If Me.Type_de_payement.Value = "Credit" Then
Me.N°de_chèque.Visible = False
Me.versemente.Visible = True
Me.Reste_à_ajouter_au_solde.Visible = True
Me.Texte55.Visible = True
Else

If Me.Type_de_payement.Value = "Chèque" Then
Me.N°de_chèque.Visible = true
Me.versemente.Visible = False
Me.Reste_à_ajouter_au_solde.Visible = False
Me.Texte55.Visible = False

راجع فقط أخي الكلمات ذات اللون الأزرق إن كانت صحيحة وأيضا مربع النص Texte55 لم تقل شيئا عنه

nacer_alger · 2013-08-07, 23:22

شكرا لك اخي الكريم

عاصم ق · 2013-08-09, 11:36

لا شكر على واجب

nacer_alger · 2013-08-22, 14:41

merci merci