HOLA GRACIAS .. POR TU RESPUESTA PERO NO LO HE PODIDO SOLUCIONAR
LO EXPLICO MEJOR ...
CADA VEZ QUE INICIO PROGRAMA .. YO LO HAGO ARRANCAR CON EL SETFOCUS EN EL TEXTO QUE CORRESPONDA .. LUEGO DE VALIDAR LA INFORMACION QUE SE ESCRIBIRA EN EL TEXTO (SOLO NUMEROS, SOLO LETRAS, SI EXISTE EN LA MDB... ECT) LE DOY EL SETFOCUS AL TEXTO QUE SIGUE SEGUN LA LOGICA DEL PROGRAMA Y ES AHI CUANDO EL TEXT2.TEXT RECIBE EL FOCO ES CUANDO SUENA EL ODIADO !!!TENN!!!
EJ
Private Sub Text1_KeyPress(KeyAscii As Integer)
If (KeyAscii = 32 And Len(Text1.Text) < 1) Then
KeyAscii = 0
End If
If (KeyAscii >= 97 And KeyAscii <= 122) Or (KeyAscii >= 65 And KeyAscii <= 90) Or KeyAscii = 8 Or KeyAscii = 32 Then
ElseIf KeyAscii = 13 Then
If Text1.Text <> Empty Then
Text2.SetFocus '''' AQUI SE PRODUCE EL SONIDO
Else
MsgBox "Debe ingresar los Nombres del cliente", vbExclamation, "Advertencia"
End If
Else
KeyAscii = 0
End If
End Sub