santiagomf

Prueba con este código: Function buscar_alumno(tabla As Recordset, entrada As String, opcion As Integer) As Recordset ' declaracion de variables Dim datos As Database Dim tabla As Recordset Dim eleccion As String buscar_alumno = "" ' Valor por...

Yo trabajo con VB6 pero no creo que varíe mucho. Lo que yo haría es tener todos los Label como no visibles y los iría presentando según pulsen el botón 'btnPresentaNuevoLabel'. El código sería: Private Sub btnPresentaNuevoLabel_Click() If Not...

Dim nomFich as string nomFich = sheets("nombreDeLaPagina").Range("celdaConElNombre") ThisWorkBook. Save as nomFich

Prueba a jugar con la propiedad ".visible". En el botón pondrías: miCalendario.Visible = true Mientras que en el evento 'lostFocus' del calendario lo que harías es ocultarlo. Private Sub miCalendario_LostFocus() miCalendario.Visible = False End Sub...

Para saber el error habría que ver el contenido de la instrucción SQL. Es posible que construyas la instrucción sobre una variable para después ejecutarla. En este caso, un problema muy común es qué pasa si en un campo de texto te teclean una...

Cópiame el código que usas para alguna de las 3 acciones y qué quieres que haga con los controles que tiene el formulario.

En VB6 tienes el evento "queryUnload" que se ejecuta cuando se cierra un formulario. Es ahí donde podrías poner el código que quieres. Mirando en la página de Microsoft he visto que en la versión 2005 este evento ha sido sustituido por el...

Para insertar el contenido de una variable dentro de una cadena lo que tienes que hacer es concatenar el contenido de la variable con el texto que quieras. Si pones: Shell ("cmd.exe /c TEXTBOX>>hola.txt") La palabra "TEXTBOX" es fija porque está...

Prueba con este código: Private Sub btnCalcular_Click() Dim anoActual As Integer Dim anoNacim As Integer Dim i As Integer Dim nBisiestos As Integer ' El año actual es el año de la fecha del sistema anoActual = Year(Now()) ' Comprobamos que tenga una...

Entiendo que las fechas las tienes en la columna "A" de la página "hoja2" a partir de la celda "A2" hacia abajo. Si es así... prueba este código en el userForm: Private Sub UserForm_Initialize() Dim sh As Worksheet Dim nLin As Integer Dim fecha As...