+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [vb6.0] عندي مشكلة في هذا الكود حيث انه لا يقبل الا رقم فقط اريد ان يقبل الارقام والاحرف ؟ (/showthread.php?tid=47357)
عندي مشكلة في هذا الكود حيث انه لا يقبل الا رقم فقط اريد ان يقبل الارقام والاحرف ؟ - Microformt - 23-10-23
الاخوة الكرام
السلام عليكم ورحمة وبركاته
عندي مشكلة في هذا الكود حيث انه لا يقبل الا رقم فقط اريد ان يقبل الارقام والاحرف ؟
نامل التعديل على الكود التالي
كود :
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وجزكم الله خيراً