اذهب الي المحتوي
أوفيسنا

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


houari-edu

الردود الموصى بها

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

رابط هذا التعليق
شارك

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

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 ) برقم الطالب.

تم تعديل بواسطه SEMO.Pa3x
  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

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

وتفسيره

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

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

مرفق مثال

 

 

ذكروانثى.accdb

sex.PNG

تم تعديل بواسطه kha9009lid
  • Like 1
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information