Jacinto Trillo Jareño

José Antonio: Ignoro el alcance global de tu código, pero supongo que te salta el error porque el Recordset no tiene registros. Si es así prueba con: If Not tbl.EOF And Not tbl.BOF Then tbl.MoveFirst Do While Not tbl.EOF If tbl("CODIGOPRODUCTO") =...

En un cuadro de texto que se llame>> TBoxNumeros, en el evento Al presionar una Tecla>> Private Sub TBoxNumeros_KeyPress(KeyAscii As Integer) If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0 MsgBox "Solo se pueden teclear NUMEROS en ésta caja de...

Alba: Dentro del 3x1 te comento primero el 1. Para obtener el Año actual, dependiendo si lo tienes en un Campo de Consulta o en VBA sería>> Consulta >> AñoActual: Año(Fecha()) Si es en Vba y suponiendo que quieras mostrarlo en un cuadro de Texto que...

Dariel: Para no inventar lo ya inventado, entre otros enlaces que te podría facilitar, mirate éste. http://aulaclick-access.blogspot.com/2011/10/como-ocultar-la-ventana-de-access.html Mis saludos >> Jacinto

Yahovir: Si lo que necesitas es mostrar o mosrar y añadir datos de una Fecha, en mi opinión no necesitas un Formulario Principal y un SubFormulario, como en el Caso de Pedidos y Detalle de Pedidos. Crea un Formulario Continuo sobre la Tabla de Partes...

Carlos: Esto lo puedes hacer en las Propiedades del Formulario en Vista de diseño. Cuadro de Control >> No Botón cerrar >> No Botones de minimizar maximizar >> Ninguno Saludos >> Jacinto

Carlos: No acabo de entender bien lo que pretendes. Me parece entender que quieres ver en la "Etiqueta" del CheckBox Pagado o Pendiente según sea el estado del CheckBox. Si eso es así has de poner el siguiente Código en dos lugares. If Me.Chk =True...

Jesús: Ahora los TextBox tienen una propiedad que es la de>> Mostrar el Selector de Fecha, que por omisión está en Para Fechas y hace que cuando pones el Cursor en el Control hace que se muestre un Icono de Calendario al lado. Si el uso que...

Carlos: Ese error justamente te dice que esa imagen no existe en esa Ubicación o que esa ubicación en su conjunto o parcialmente no Existe. En el TextBox Archivo tienes un valor no adecuado, porque vacío no lo tienes. Mis saludos >> Jacinto

Carde: Como Origen de la Fila del Combo, verás que hay los ..., (Puntos), a la derecha, y si los pulsas te aparecerá el Generador de Consultas. En uno de los Campos, ponle la Fecha_Pago y a la vez en Criterios escribes: <Fecha()-30 Ya me contarás....