houari-edu قام بنشر أبريل 30, 2021 مشاركة قام بنشر أبريل 30, 2021 لدي جدول يحتوي على حقول و هناك حقل الرقم التعريفي يتكون من 16 رقم يبدأ ب 10 أو 11 . 10 تعني ذكر و 11 تعني أنثى. و لدي حقل يسمى الجنس. السؤال ":كيف يمكن جعل الحقل يتغير من أنثى أو ذكر بمجرد كتابة الرقم التعريفي للطالب رابط هذا التعليق شارك More sharing options...
SEMO.Pa3x قام بنشر أبريل 30, 2021 مشاركة قام بنشر أبريل 30, 2021 (معدل) عليكم السلام، تفضل: 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 1 رابط هذا التعليق شارك More sharing options...
houari-edu قام بنشر أبريل 30, 2021 الكاتب مشاركة قام بنشر أبريل 30, 2021 السلام عليكم أستاذ أين أضع العبارة؟ رابط هذا التعليق شارك More sharing options...
SEMO.Pa3x قام بنشر أبريل 30, 2021 مشاركة قام بنشر أبريل 30, 2021 42 دقائق مضت, houari-edu said: السلام عليكم أستاذ أين أضع العبارة؟ أي عبارة ؟ رابط هذا التعليق شارك More sharing options...
kha9009lid قام بنشر أبريل 30, 2021 مشاركة قام بنشر أبريل 30, 2021 (معدل) من مبدأ تعدد الحلول اضافة لما اشار الية الدكتور الفاضل حسنين اذا كنت تستخدم احد الاصدارات الحديثة اكسس مممكن عملها في الجدول مباشرة عن طريق جعل حقل الجنس محسوب وتكون قيمة الحقل تساوي 👇 IIf(Left([الرقم_الوطني];2)=10;"ذكر";IIf(Left([الرقم_الوطني];2)=11;"انثى";"رقم غير صحيح")) وتفسيره اذا كان الرقمين من اليسار تساوي 10 الجنس ذكر واذا كان الرقمين تساوي 11 الجنس انثى واي رقم اخر يكون الرقم الوطني او التعريفي غير صحيح وكررنا دالة iif لكونها تعود بنتيجين ونحن نحتاج الى نتيجة ثالثة لو كان الرقم لا يساوي 11 او 10 مرفق مثال ذكروانثى.accdb تم تعديل أبريل 30, 2021 بواسطه kha9009lid 1 رابط هذا التعليق شارك More sharing options...
houari-edu قام بنشر مايو 1, 2021 الكاتب مشاركة قام بنشر مايو 1, 2021 شكرا أساتذتي تقبل الله منا و منكم صالح الاعمال رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.