عندي ليبل اسمه (LabNumber) يحوي عدد السجلات 204 سجل
و Text1.Text اكتب فيه اي رقم ولكن في نطاق 1-204
و Command1 للانتقال الى السجل المكتوب في Text1.Text
و cboName.ListIndex يحوي البيانات والبيانات فيه = 203 + 1 = 204 بدل قيمة 0 في cboName.ListIndex
هل يصح كتابة هذا الكود في الزر Command1 للانتقال الى السجل المسجل في التكست مع رفض العملية اذا كان
Text1.Text اصغر من LabNumber
Private Sub Command1Click() If Text1.Text > LabNumber.Caption Then MsgBox "قم بكتابة رقم أقل من " & LabNumber.Caption End If If Text1.Text > LabNumber.Caption Then cboName.ListIndex = Text1.Text - 1 End If End Sub
