Jacinto Trillo Jareño

Hugo: Por lo que expones es algo parecido (por no decir igual), a éste ejemplo que tengo en Mediafire. http://www.mediafire.com/file/v66sy4jq34b30lo/CbosPaisCiudadEmpresa.rar/file Un saludo >> Jacinto

Ignoro la causa, pero quizás comenzaría por quitar el = y poner algo así como >> If (Me.FolioSind Is Null And Me.NASINDICATO Not IsNull Or Me.SNTE Not IsNull Or Me.SITEM Not IsNull) Then FolioSind = Nz(DLookup("Max(FolioSind)", "FILIACIONESNI") + 1)...

José Manuel: Supongo era ésto lo que buscabas. http://www.mediafire.com/file/wvcgv3nzuhtw06g/Academia_00.accdb/file Un saludo >> Jacinto

Si ves el Código asociado, es que los formularios están. Mira que en el Panel de Navegación de la Izquierda de Access tengas seleccionados >> Todos... Un saludo >> Jacinto

Josè Manuel: Esta pregunta me sale sugerida y aunque adjuntas enlace para visualizar la BD, en mi caso y en varios días el inconveniente va a ser el tiempo disponible para analizarlo. No obstante te voy a recomendar un par de ejemplos de Neckkito (un...

Mauricio: Dura: Format([NombreDeTuCampo];"nnss") Luego lo concatenas como has hecho comn lo otros, o bien al concatenarlo pones el >> & Format([NombreDeTuCampo];"nnss") Un saludo >> Jacinto

Prueba con >> If DCount("id", "FiliacionesIni","NASINDICATO = "" And SNTE = "" And SITEM = """) > 0 Then Un saludo >> Jacinto

Diego: Evidentemente el camino es el de hacer una Función personalizada. Para ello has de provocar un Evento al abrir o cargar el Formulario, que alcance a los Controles que tu necesites. Una forma que a mi me parece buena, aunque el Evento no sea el...

Daniel: Si quieres enviar el informe directamente a la impresora lo puedes hacer con un simple >> Docmd. OpenReport "NombreDeTuInforme" Si antes quieres visualizarlo, o filtrarlo o..., mira el M´retodo completo...

Daniel: Haz algo así, si quieres claro está: Private Sub NombreDeTuBoton_Click() Dim LaContra As String Dim ElMensaje As Integer LaContra = InputBox("Escribe una Contraseña:", " CONTRASEÑA OBLIGATORIA ") If LaContra = "TuContraseña" Then ElMensaje =...