تكوين جدول لادخال الارقام والنصوص

الحمد لله وجدت الحل :)

استخدمت الكود هذا مع FlexGrid

     



Private Sub Grid1_KeyPress(KeyAscii As Integer)

Dim old_val, Key_prss_val

Key_prss_val = KeyAscii



If (Key_prss_val <= 57 And 48 <= Key_prss_val) Then



old_val = Grid1.Text

Grid1.Text = old_val & Chr(KeyAscii)

ElseIf Key_prss_val = 8 Then

Grid1.Text = ""

Else

MsgBox "Not Allwod"

End If

End Sub

اتمنى ان يستفيد منه احد :)

تحاتي :)