المتغيرات

[bouchaib zakaria]

السلام عليكم ورحمة الله تعالى وبركاته 

لدي نموذج فيه أربعة  حقول    

الحقل sousf  سجلت فيه كلمة laptop  

ما اريد هو عمل متغير

اذ يظهر  في الحقل الخامس بكلمة lap  فقط 

قمت بكتابة هذا الكود  لم ينجح 

dim laptop as string
laptop = lap
Endsub

 

 

[ابو جودي]

ممكن تستعمل الكود الاتى 

Private Sub Form_Current()
    If sousf = "laptop" Then CodeInv = "lap"
End Sub

او

Private Sub sousf_AfterUpdate()
    If sousf = "laptop" Then CodeInv = "lap"
End Sub

 

[مسفر]

سؤال فقط 

الحقل sousf  

يضم أكثر من اسم ؟

يعني هل يضم فقط  laptop  

أم يضم أكثر من اسم وحسب الاسم يتغير الحقل الخامس ؟

[bouchaib zakaria]

8 ساعات مضت, مسفر said:

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

شكرا على الرد وفقكم الله