التغيير التلقائي في جدول

[houari-edu]

لدي جدول يحتوي على حقول و هناك حقل الرقم التعريفي يتكون من 16 رقم يبدأ ب 10 أو 11 . 10 تعني ذكر و 11 تعني أنثى. و لدي حقل يسمى الجنس. السؤال ":كيف يمكن جعل الحقل يتغير من أنثى أو ذكر بمجرد كتابة الرقم التعريفي للطالب

[SEMO.Pa3x]

عليكم السلام، تفضل:

Public Function startsWith(str As String, prefix As String) As Boolean
    startsWith = Left(str, Len(prefix)) = prefix
End Function

Private Sub cmd_checkGender_Click()

    Dim vCheckGender As Boolean
    Dim vGenderStr As String
    vGender = startsWith("Here Your Number Student", "10")
    
    If vGender = True Then
        vGenderStr = "ÐßÑ"
    Else
        vGenderStr = "ÃäËì"
    End If
    
    MsgBox vGenderStr
    
End Sub

 

استبدل العبارة ( Here Your Number Student ) برقم الطالب.

تم تعديل أبريل 30, 2021 بواسطه SEMO.Pa3x

[houari-edu]

السلام عليكم أستاذ أين أضع العبارة؟

[SEMO.Pa3x]

42 دقائق مضت, houari-edu said:

السلام عليكم أستاذ أين أضع العبارة؟

أي عبارة ؟

[kha9009lid]

من مبدأ تعدد الحلول

اضافة لما اشار الية الدكتور الفاضل حسنين

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

وتكون قيمة الحقل تساوي 👇

IIf(Left([الرقم_الوطني];2)=10;"ذكر";IIf(Left([الرقم_الوطني];2)=11;"انثى";"رقم غير صحيح"))

وتفسيره

اذا كان الرقمين من اليسار تساوي 10 الجنس ذكر واذا كان الرقمين تساوي 11 الجنس انثى واي رقم اخر يكون الرقم الوطني او التعريفي غير صحيح

وكررنا دالة iif لكونها تعود بنتيجين ونحن نحتاج الى نتيجة ثالثة لو كان الرقم لا يساوي 11 او 10

مرفق مثال

 

 

ذكروانثى.accdb

تم تعديل أبريل 30, 2021 بواسطه kha9009lid

[houari-edu]

شكرا أساتذتي تقبل الله منا و منكم صالح الاعمال