Mensajes

Código [Seleccionar] Expandir

Sub Text1_Keypress(KeyAscii As Integer)
    If KeyAscii >= 48 And KeyAscii <= 57 Or KeyAscii = 127 Or KeyAscii = 8 Then
        ' El 48 es 0 y el 57 es 9, 127 es SUPR y 8 es Backspace
        Exit Sub
    Else
        MsgBox "Solo números para registrar el valor a pagar sin puntos, " & _
               "ni comas, ni cualquier caracter especial!!"
    End If
End Sub


pille este codigo para validar que solo ingrese numero el problema que al mandar el mensaje la letra sigue en el txt y no se borra

probe poniendo al final del msgbox text1="" pero no se borra

y em tirra error por que le pusiste eso de keypress ascci


tengo que cambiarle el nombre alos txt que tengo


por que mi txt se llama

Private Sub Text1_Change()

End Sub

no entendi eso del bacspace y del  8 borrar?

Código [Seleccionar] Expandir

Option Explicit
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset

Private Sub cmdprimero_Click()
    rs.MoveFirst
End Sub

Private Sub cmdUltimo_Click()
    rs.MoveLast
End Sub

Private Sub cmdanterior_Click()
    rs.MovePrevious
    If rs.BOF Then
        rs.MoveFirst
        MsgBox "estamos en el primer registro"
    End If
End Sub
Private Sub cmdsiguente_Click()
    rs.MoveNext
    If rs.EOF Then
        rs.MoveLast
        MsgBox "estamos en el ultimo registro"
    End If

End Sub




Private Sub fechanac_CallbackKeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer, ByVal CallbackField As String, CallbackDate As Date)

End Sub

Private Sub Command1_Click()
MDIForm1.Show
Unload Me
End Sub

Private Sub Form_Load()
    modoeditar False
    Set cn = New ADODB.Connection
    Set rs = New ADODB.Recordset
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source = dax.mdb; "
    rs.ActiveConnection = cn
    rs.CursorType = adOpenKeyset
    rs.LockType = adLockOptimistic
    rs.Open "select * from CAMBIO_UBICACION"
    Set Text1.DataSource = rs
    Text1.DataField = "ID_ANIMAL"
    Set Text3.DataSource = rs
    Text3.DataField = "POTRERO_ORIGEN"
   
    Set DTPicker1.DataSource = rs
    DTPicker1.DataField = "FECHA"
   
    Set Text4.DataSource = rs
    Text4.DataField = "POTRERO_DESTINO"
    Set Text5.DataSource = rs
    Text5.DataField = "COMENTARIO"
End Sub

Private Sub modoeditar(ByVal ok As Boolean)
    Text1.Locked = Not ok
    Text3.Locked = Not ok
    Text4.Locked = Not ok
    Text5.Locked = Not ok
    cmdnuevo.Enabled = Not ok
    cmdEditar.Enabled = Not ok
    cmdeliminar.Enabled = Not ok
    cmdGuardar.Enabled = ok
    If ok Then Text1.SetFocus
End Sub

Private Sub cmdnuevo_Click()

    rs.AddNew
    modoeditar True

End Sub

Private Sub cmdGuardar_Click()

    rs.Update
    modoeditar False

End Sub

Private Sub cmdEditar_Click()

    modoeditar True

End Sub

Private Sub cmdeliminar_Click()

    rs.Delete
    rs.MoveNext
    If rs.EOF Then
        rs.MoveLast
    End If
End Sub

PERO PARA ESO TENDRIA que HACER UAN SEGUNDA SELECCION PARA ABRIR LA SEGUNDA TABLA?

ola necesito saber como integrar una sentencia sql ah un control en visual

SELECT
FROM ESPECIE INNER JOIN ANIMALES ON ESPECIE.ESPECIE = ANIMALES.ESPECIE;
  algo asi

para que el combo que tengo muestre los datos de la tabla especie 

el problema es que lo llamo en un form en el cual ya tengo una conexccion a una tAbla que se llama animales

le puse un control llamado datapicker que te sirve tanto para fecha o la hora

Como era para que un txt acepte solo numeros , y que acepte solo letras era algo con el ascci pero no recuerdo bien busque pero no pille nada

OLA TENGO UN FORMULARIO QUE GUARDA LOS DATOS EN UNA BASE DE DATOS

pero necesito que antes de guardar verifique que algunos datos no esten actualmente en la base de datos

ejmplo

tengo un txt que me pide un nombre y pongo manuel pero al guardar si ya hay un nombre manuel me de un mensaje de advertencia y tenga que poner otro nombre que no este en la base de datos

YA LO SOULICONES ERA CON UN DATA PIKER