Eduardo Pérez Fernández

Adicione una línea, algo como; If Me.RecordsetClone.RecordCount = 0 Then MsgBox "No hay coincidencias", vbOKOnly, "AVISO" Me.RecordSource = "Select * from [CBuscaArticulo] '"

Estuve probando y esta línea no está borrando el portapapeles: ObjetoClipboard. Clear

Si quiere escríbame a [email protected] y le suministro un ejemplo

Entiendo que tiene un formulario de Login, después de aceptar el operador debe ir el código, algo como; Dim lnoperador As Integer lnoperador=nz(Dlookup("[operador]","Usuarios","operador=" & Me.txtoperador ),0) IF lnoperador=1 Then DoCmd.OpenForm...

Para contar use Dcount(). Por ejemplo. DCOUNT("*","mitabla","Not Isdate([FECHA])")

Revise la consulta origen de datos del informe, si es posible adjunte el diseño para así tener una aproximación. Si están triplicados algo anda mal, en caso contrario el error es en el diseño del informe.

Esta empleando mal la función DateDiff(). Asegúrese que a los 2 campos les asigno formato fecha corta. Asigne variables para cada camp, algo como: Dim nrodias As Integer Dim campo1 As Date Dim campo2 As Date Dim parte1 As Integer campo1=Me.fec_Asig...

Puede concatenar el nombre Name + Surname y agrupar por este y contar por Name: TABLA DE DATOS DISEÑO DE LA CONSULTA RESULTADO DE LA CONSULTA

Sería antes de abrir el formlulario Fcitas_Atencion algo como: IF nz(Dlookup("[Atendido]","Tcitas","IdCita=" & Me.IdCita),0) =- 1 then DoCmd.OpenForm Fcitas_Atencion, , , "idCita=" Me.Idcita End If Veo que esta validando es con Fecha Y hora, me...

Access que y sepa no tiene la forma de exportar una consulta sin los encabezados, pero se puede hacer abriendo Excel desde Access y eliminando la primera fila. Estudie este código: FORMULARIO CODIGO BOTON EXPORTAR CONSULTA CODIGO PROCEDIMIENTO...