الرجائ مساعدة فى هذا الكود

مستر استرا كتب:

مساعدة فى ايجاد الخطا فى هذا الكود الخاص بــ

select case

Private Sub RakamKomy_AfterUpdate()
x = Mid(RakamKomy, 8, 2)
Select Case x
Case Is = "01"
mohafza = "القاهرة"
Case Is = "02"
mohafza = "الاسكندرية"
End Select
End Sub

جرب هذا

Private Sub RakamKomy_AfterUpdate()
Dim x as string

x = Mid(RakamKomy, 8, 2)
Select Case x
Case Is = "01"
mohafza = "القاهرة"
Case Is = "02"
mohafza = "الاسكندرية"
End Select
End Sub

أو هذا

Private Sub RakamKomy_AfterUpdate()
Dim x as string

x = Mid(RakamKomy, 8, 2)
Select Case x
Case  "01"
mohafza = "القاهرة"
Case  "02"
mohafza = "الاسكندرية"
End Select
End Sub

تحياتي

للاسف لم يفلح مع اى منهم

لذا ارفقت لك المثال للتعديل علية احتمال اكون غلطان فى حاجة تانية

وشاكر كجهودك معايا ومع الاخوة الاعضاء

الرقم القومي.rar

مستر استرا كتب:

للاسف لم يفلح مع اى منهم

لذا ارفقت لك المثال للتعديل علية احتمال اكون غلطان فى حاجة تانية

وشاكر كجهودك معايا ومع الاخوة الاعضاء

اخي الخطأ في اسم الحقل أنت كتبته في الكود mohafza بينما في الفورم اسمه MOhfza بينما الكود صحيح . ولايعطي خطأ لانه يقوم بانشاء متغير باسم mohafza يخزن فيه القيمة دون ان يتم استخدامها .

هذا الكود الصحيح .

 
Private Sub RakamKomy_AfterUpdate()
Dim x As String

x = Mid(RakamKomy, 8, 2)
Select Case x
Case "01"
[MOhfza] = "القاهرة"
Case "02"
[MOhfza] = "الاسكندرية"
End Select

End Sub

تحياتي

يا سبحان الله

فعلا عين الخبير غير عين المبتدا

بارك الله فيك ونفعك والمسلمين بعلمك

++