calvuch

Prueba esto Private Sub Command1_Click() On Error GoTo err If CDate(Text2) > CDate(Text1) Then MsgBox "Llegas Tarde", vbExclamation err: If err.Number = 13 Then MsgBox "La hora esta mal escrita", vbCritical End Sub La hora de llegada va en el text1 y...

Prueba con esto Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 13 Then Dim n As Long Dim i As Long TextBox1 = Trim(TextBox1) If TextBox1 = "" Then Exit Sub If Len(TextBox1) = 0 Then Exit Sub...

No se si comprendí bien, pero por lo general en los textbox siempre borras el texto con la tecla retroceso. Ahora dices que validaste el control para que entraran solo números y punto, ¿esta validación la realizaste mediante Mascara de formato o...

No conseguí replicar el problema que tienes. Cada vez que tomo una fila del flexgrid, me da el registro que selecciono, ningún otro... Cuando dices que te da la fila superior, te refieres al foco dentro del control o a la info que recupera al...

¿Supongo qué la imagen esta en un picture?. Probaste con bajar la escala del picture, por ejemplo Picture1. Scale (-2, 2)-(2, -2) Con esta escala puedes ir mucho más rapido si realizas un rastreo pixel a pixel, hace rato realize un aplicación que...

¿La impresión la sacas sobre un form o sobre un report? Si es sobre un form. Basta con que cargues el jpg en algún picture y luego imprimes todo el form con : Form1. PrintForm ( en este ejemplo mi formulario se llama Form1, tu debes cambiar el...

Prueba con: If Text16 <> "" Then Adodc1.RecordSource = "select amso00.nro_soc, amso00.nro_fam, amso00.ape_soc, WHERE amso.ape_soc like '* " & Text16.Text & " *'" o bien: If Text16 <> "" Then Adodc1.RecordSource = "select amso00.nro_soc,...

Por que no utilizas un control DTPicker, le das el formato que gustes y los usuarios, no digitan la fecha, la seleccionan directamente del calendario y si llegan a meter el dedo, de igual forma este control valida su contenido