عمر45
2013-08-16, 00:03
السلام عليكم
هذا الكود لا يعطي نتائج صحيحة و كاملة
أرجو منكم التصحيح
و جزاكم الله خيرا
Dim z
Dim i
Dim x As String
Adodc1.*******
Adodc1.Recordset.MoveFirst
x = InputBox("ادخل السن")
Adodc1.Recordset.Find "age = " + x + ""
If Not Adodc1.Recordset.EOF Then
I = 1
Do While Not Adodc1.Recordset.EOF
z = z & vbNewLine & I & "-" & " " & Adodc1.Recordset.Fields("name") & " " & Adodc1.Recordset.Fields("surname")
Adodc1.Recordset.MoveNext
I = I + 1
Loop
MsgBox z
Else
MsgBox " لا يوجد شخص بهذا السن "
End If
Adodc1.Recordset.Close
End Sub
هذا الكود لا يعطي نتائج صحيحة و كاملة
أرجو منكم التصحيح
و جزاكم الله خيرا
Dim z
Dim i
Dim x As String
Adodc1.*******
Adodc1.Recordset.MoveFirst
x = InputBox("ادخل السن")
Adodc1.Recordset.Find "age = " + x + ""
If Not Adodc1.Recordset.EOF Then
I = 1
Do While Not Adodc1.Recordset.EOF
z = z & vbNewLine & I & "-" & " " & Adodc1.Recordset.Fields("name") & " " & Adodc1.Recordset.Fields("surname")
Adodc1.Recordset.MoveNext
I = I + 1
Loop
MsgBox z
Else
MsgBox " لا يوجد شخص بهذا السن "
End If
Adodc1.Recordset.Close
End Sub