msgbox

c_moscoso26
07 de Octubre del 2004
como pongo un msgbox cuando pongo texto en un campo numerico.
Por ejemplo tengo esto:

Private Sub Ingresar_Click()
sqltxt$ = "Select * from pacientes where paci_id = '" & Text1 & "'"
pacientes.RecordSource = sqltxt$
pacientes.Refresh

If pacientes.Recordset.EOF Then
pacientes.Recordset.AddNew
pacientes.Recordset.Fields("paci_id") = Text1
pacientes.Recordset.Fields("paci_Nombre") = Text2
pacientes.Recordset.Fields("paci_direccion") = Text3
pacientes.Recordset.Fields("paci_fono") = Text4
'MsgBox "Debe ingresar solo Numeros", vbInformation, "Pacientes"
pacientes.Recordset.Fields("paci_fecha_nacimiento") = Text5
pacientes.Recordset.Fields("paci-seguro_social") = Text6



pacientes.Recordset.Update
pacientes.Refresh
MsgBox "Datos del Paciente Ingresados", vbInformation, "Pacientes"
Text1.SetFocus

'Text1 = Empty
Text2 = Empty
Text3 = Empty
Text4 = Empty
Text5 = Empty
Text6 = Empty

Form2.Show
Form2.Text1.Text = Form1.Text1.Text



End If
End If

End Sub

cmoraga
07 de Octubre del 2004
Una forma seria capturar el error y en la maca error decirle que mande el msgbox.

On error goto errores
.
.
.
.
Errores:
msgbox "debe ingresar solo......

sdemingo
07 de Octubre del 2004
Hola,

pon este código asóciado a cada caja de texto:

Private Sub Text1_KeyPress(keyascii As Integer)

'Este codigo sólo deja meter números
If InStr("0123456789", Chr(keyascii)) = 0 Then keyascii = 0

End Sub


De ese modo solo dejhará escribir escribir números en la caja de texto en la que pongas el código

salu2
sdemingo