Carlos Arrocha

Prueba una cosa, aunque no se si te funcionará porque con access me pierdo. Haz click en el formulario, selecciona propiedades y busca la opción ShowModal. Si está en true ponlo en false y pruebas así a ver que tal. Salu2

[Hola Sara. Si quieres utilizar la variable "j" en los dos formularios, tendas que hacelas pública. Ejemplo: Public j as Integer y la debes colocar por arriba de: Sub CommandButton1_click() Salu2 C.A.

[Hola Felipe. Te paso un par de ejemplos a ver si te sirve alguno. Debes hacerle los cambios necesarios. 'Opción 1. 'Mestra datos en formulario 1 Private Sub CommandButton1_Click() Dim Opcion As String With UserForm1 Select Case True Case...

[Hola Juan. El siguiente código te registra en la hoja1, desde la columna "A" hasta la "G", y numera en la columna "A" Prueba y me comentas si es lo que necesitas. Private Sub BtnReg_Click() Dim uFil As Long With Hoja2 uFil = .Range("A" &...

[Hola. Prueba así Private Sub CommandButton1_Click() Worksheets(Index + 1).Select End Sub

[Hola. Para eso debes modificar una línea de código Donde pone Date, En la imagen esta mal señalado, debes cambiar date por la opción donde quieras poner la fecha.

[Hola Diana. Copia y guarda el contenido de los módulos "lo que está dentro de Sub y End Sub" en Word, por ejemplo, y elimina los módulos. Para eliminar, click derecho sobre el módulo y la opción quitar. Te va a pedir confirmación para guardar, le...

[Hola. Prueba así Private Sub ListBox1_Click() Cargar = ListBox1.ListIndex Me.TextBox1 = ListBox1.List(Cargar, 0) Me.TextBox2 = ListBox1.List(Cargar, 1) 'Txt_Descripcion = ListBox1.List(Cargar, 2) 'Txt_Precio = ListBox1.List(Cargar, 3) End Sub '<--...

[Hola. No sé si te he entendido bien, pero prueba así Movimiento = ActiveSheet.Cells(10, 4) If Sheets(CodigoHoja).Cells(14, 14).Value <> " " Then MsgBox "La celda contiene registro" Else If Movimiento <> "Saldo Inicial" Then MsgBox "Es necesario...

Private Sub CommandButton1_Click() Dim fname As String fname = Application.GetOpenFilename(filefilter:= _ "Bitmap Files(*.jpg),*.jpg", Title:="Select Image To Open") 'SOLO ABRE IMAGENES JPG, PERO PUEDES AÑADIR MAS FORMATOS If fname <> "False" The...