ifrancoz

Lo que puede hacer es en el evento QueryUnload del form2 colocar la instrucción Form1. Show ' asumiendo que es el formulario madre, de la siguiente forma : Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) Form1.Show End Sub Sin...

Hay que adicionar la clausula Where en el Select .Open "Select * from Eventos Where Fectarea = #" & Format(Monthview1.value, "dd/mm/yyyy") & "#" * lo anterior en una sola línea y colocando el formato del Monthview de acuerdo al formato de la Fecha de...

Lo que tiene que hacer es al crear la tabla declarar el campo Consecutivo como tipo de dato "Autonumérico" y en la medida que se vayan insertando los datos de las personas Access le asigna dicho consecutivo. Si lo que quiere es un consecutivo por...

Lo que ocurre es que los controles Txtv y Txtt están definidos como una matriz de controles y por lo tanto requieren de un índice y ahí si aceptan la propiedad .Text Las asignaciones que quiere hacer sería algo así : V = Txtv(1).text ' 1 es el...

Pues tendría que hacer algo como esto, pero por supuesto que tiene que hacer las respectivas validaciones y estar seguro que todos los registros vengan con un nombre y al menos un apellido. Pero si vienen dos nombres y un apellido eso no se puede...

Lo que ocurre es que la función InputBox muestra un cuadro de dialogo para que el usuario escriba un texto y por lo tanto devuelve un tipo String, por lo tanto cuando no se ingresan datos numéricos de gasto. Para que le funcione debe hacer una...

La función FormatNumber por si sola no divide un numero para mostrarlo con decimales, en este caso tendría que realizar la división, algo como esto : Private Sub Form_Load() Dim Num As Single Dim Numw As Single Num = 51553 Numw = FormatNumber((Num /...

Lo podemos hacer de la siguiente manera: Dim I as Integer ' Al hacer click sobre una fila guardamos en I el nro. de fila Private Sub MSHFlexGrid1_Click() I = MSHFlexGrid1.Row End Sub ' Luego en un botón de comando colocamos lo siguiente para...

Funciona de la siguiente forma : Private Sub Image1_Click() Label1.Visible = True End Sub Suerte !

Se puede hacer de la siguiente manera : Nmes = MonthName(Month(Now)) MsgBox "Guardar " & Nmes, vbOKCancel If vbOK Then .... Else .... End If Suerte !