Carlo Navarro Rojas

La verdad la herramienta que aprendas a utilizar te servirá de mucho, si aprendes las dos seria genial, yo en lo personal no me he adentrado al mundo del .NET pero espero poder hacerlo pronto, por el tema de las macros en MS excel, son formularios de...

' -- Opcional : colocar en negrita y de color rojo los enbezados en la hoja With Obj_Hoja .Rows(1).Font.Bold = True .Rows(1).Font.Color = vbRed ' -- Autoajustar las cabeceras . Columns("A:Z").AutoFit End With End If Ese es un ejemplo espero te sirva,...

Rs. Open "SELECT * FROM tu_tabla order by campo asc", cn, adOpenDynamic, adLockOptimistic While Not rs.EOF Combo1. AddItem rs. Fields("campo") Rs. MoveNext Wend Primero debes cargar el recordset con la consulta a la base de datos y apuntando a la...

El control Data se utiliza con el motor de base de datos Microsoft Jet para acceder a base de datos de diferentes formatos como por ejemplo: Microsoft Access, Dbase, Excel, FoxPro, Lotus y Paradox, aunque en los ejemplos solo se utilizará Microsoft...

Podrías hacer lo siguiente, primero debes tener dos insert con el mismo código y todo, pero al momento de insertar los datos en la BD si no quieres insertar nada en vez que el textbox sea " " (vacío) le dices. if txtretiro.text = "" then en la...

en el user form debes crear la funcion, por ejemplo, function guardar() aqui pones el codigo que quieres utilizar end function

Lo que debes hacer es al momento de hacer clic en el botón guardar que refresque la conexión a la base de datos del datagrig 2, ¿estos los tienes conectados vía linea de código o por el otro método que no recuerdo que se la da la opción?

De esta manera puedes escribir solo con mayúsculas: Private Sub Text1_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) End Sub Recuerda seleccionar el evento KeyPress del texbox espero te sirva saludos

Pero de todas maneras existe una forma estimado... paso a explicar crearemos una función llamada validar Function validar() If recSql.EOF = True Then validar = True Else If recSql.EOF = False Then validar = False End If End If End Function Luego Se...

en ves de estar utilizando eso, por que no mejor utilizas insert into? Quedaría así: RSEmpleados.open "insert into empleados (cedula,lugar_expedicion,nombres,apellidos,fecha_nacimiento,fecha_ingreso,sexo) values ("& txtcedula.text & "," &...