23-10-23, 08:06 PM
الاخوة الكرام
السلام عليكم ورحمة وبركاته
عندي مشكلة في هذا الكود حيث انه لا يقبل الا رقم فقط اريد ان يقبل الارقام والاحرف ؟
نامل التعديل على الكود التالي
وجزكم الله خيراً
السلام عليكم ورحمة وبركاته
عندي مشكلة في هذا الكود حيث انه لا يقبل الا رقم فقط اريد ان يقبل الارقام والاحرف ؟
نامل التعديل على الكود التالي
كود :
Dim i As Integer
For i = 0 To fox.Rows - 1
If Trim$(Val(fox.TextMatrix(i, 0))) <> 0 Then
DB.Execute "INSERT INTO aol VALUES (" & Trim$(Text1.Text) & ",'" & Trim$(fox.TextMatrix(i, 0)) & "','" & Trim$(fox.TextMatrix(i, 1)) & "'," & "" & Val(Trim$(fox.TextMatrix(i, 2))) & ",'" & Trim$(fox.TextMatrix(i, 3)) & "','" & Trim$(fox.TextMatrix(i, 4)) & "')"
DoEvents
End If
Next
MsgBox "تم الحفظ بنجاح", vbExclamation + vbMsgBoxRtlReadingوجزكم الله خيراً