Jacinto Trillo Jareño

Juan: Veo ésta pregunta de ayer, y en realidad, lo que estás pidiendo a mi modo de verlo, no es una Rutina, sino una Aplicación. En ese sentido, mira si te resuelve tu problema éste ejemplo de Neckkito....

A mi modo de ver, el camino que me parece más corto es programar algún Evento del Formulario, que te haga repasar los datos. De forma Global estaría el: Private Sub Form_Unload(Cancel As Integer) 'Aquí pones la pregunta que quieras te haga y las...

Carlos: El Evento es un poco más extenso y requiere que además la Propiedad Limitar a la lista esté en No. Dado que es un poco largo y el propio Microsoft lo explica muy bien, te facilito el Enlace:...

Fernando: La verdad es que los ejemplos que citas no los he vist, pero te sugiero mires, si quieres este Ejemplo Confeccionado por Sveinbjorn en la Web de Neckkito....

Leonardo: Quizá la solución más rápida es que construyas una consulta con el Asistente. En el tipo de Consultas, eliges >> Asistente de búsqueda de no coincidentes. Luego si quieres ver la SQL, ya la tendrás. Mis saludos >> Jacinto

Carlos: Con las modificaciones anteriores queda afectado el Formulario Gastos Generales y la ConsultaGastos. Supongo que lo que pretendes es tener en el Formulario de Gastos Generales una visión resumida de lo que has hecho en EditaGasto. Si eso es...

Carlos: Ese código Cambiando el False por True y viceversa lo has de poner Inmediatamente después de las tres líneas de Cálculo que te mandé, de modo que quedaría. '***** Me.TotRecargo = Round(Nz(Me.ImporteGasto, 0) * (Nz(Me.Recargo, 0) / 100), 2)...

Luisa: En mi opinión el mejor evento para sondearlo es el GotFocus del propio Combo, ya que se te adelantará y podrás elegir alguna de de las sustancias sugeridas. Private Sub CboSUSTenPROD_GotFocus() Dim Rst As DAO.Recordset Dim CadenaCand As String...

Juan: Prueba con =Cuenta(Nz([Nombre]);0)) Mis saludos >> Jacinto

Allan: Llevas razón que hay mucha literatura sobre ese tema. Si lo que quieres es sondear si existe un Fichero basta con que hagas: Private Sub Form_Load() On Error GoTo SalidaDirecta Dim UnaVariable UnaVariable =...