Eduardo Pérez Fernández

Coloque este código en el evento Al hacer clic del botón Buscar: Dim lngFactura AS Long lngFactura=NZ(Dlookup("[FECHA]","nombre_tabla","FACTURA=" & Me.buscar)) IF lngFactura>0 THEN Me.FechaRecepcion=NZ(Dlookup("[FECHA]","nombre_tabla","FACTURA=" &...

Pruebe con este código Private Sub btn_guardar_Click() If IsNull(Me.codigobarras) Or IsNull(Me.Nom_Prod) Or IsNull(Me.Prec_Prod) Then MsgBox "Faltan los **campos obligatorios del producto", vbInformation, "Registrando Producto" Exit Sub End If...

Si no quiere usar el maldito Outlook puede adaptar los ejemplos de este link: Enviar Correo Usando CDO de Microsoft - Access JJJT (google.com) Puede enviar los reportes a PDF como le explican. Tenga en cuenta que también tiene que configurar su...

Ya le respondí su pregunta, me cuenta.

Guarde esta función en un módulo de VBA Public Function extraer(strFrase As String, intPosicion As Integer) As String 'Función para extraer una palabra de una frase de acuerdo con la posición 'Parámetros: ' strFrase --> Frase a examinar ' intPosicion...

Seria conveniente subiera una imagen de sus formularios o tablas, así le puedo dar una respuesta más acertada.

Asumo que el cuadro de lista tiene un campo ID, es decir, este es el primer campo: Tengo un cuadro de lista que llamo lstLista y un botón al que llamo miboton y en el evento Al hacer clic programo el evento Sub miboton_Click() Dim varPos As Variant...

Creo que esto se lo había respondido el 28 de septiembre, ahora no comparto el concepto de no utilizar _ por ejemplo, Nro_Pieza, esto es viable lo que no se debe es utilizar guion bajo _ como primer caractere, por ejemplo, _NroPieza, esto causa...

Esta es otra forma de hacerlo, se requiere: 1. Tabla 1 Consulta (Dependiente del formulario) 1. Formulario 1. Reporte TABLA Observe que en la tabla existe el campo enviado y es de tipo Sí/No (poco me gustan). FORMULARIO El formulario consta de un...

Le recomiendo validar el contenido de la información adicional del control (TAG) y depurar el código con Debug. Print, esto le ayuda a detectar el error. Algo como: Private Sub Comando0_Click() Dim sFiltro As String Dim ctrl As Control Dim strSQL As...