Sveinbjorn El Rojo

Si quieres incluir los cuadros combinados en tu validación de datos, basta con que añadas a tu código el tipo de control: If Control.ControlType = acTextBox Or Control.ControlType= acComboBox Then If IsNull([Control]) Then MsgBox "* Faltan Campos por...

Si pones el Do Loop dentro del For Next, te recorrerá todos los registros del recordset dándole a todos los campos el valor de P(i) en cada valor de i... Para mi te sobra el bucle Do, o bien tienes que poner el For dentro del Do

Si Num_Afiliado lo configuras en la tabla como Autonumérico, ya te evitas ese problema y toda la parte de código para generarlo "manualmente". Si por el motivo que sea necesitas hacerlo así, puedes crear una tabla auxiliar (por ejemplo TUltimo) con...

El código a usar es el mismo (con el cambio en los nombres correspondientes a los objetos), pero en el informe has de usar otro evento: "al dar formato" de la sección en la que tengas tu control imagen (que imagino que será en la sección Detalle). Te...

Puedes hacerlo de varias formas: Una sería usando la función DLookUp() para recoger el valor de esa consulta en el cuadro de texto: =DLookUp("nombreCampoSuma","NombreConsulta") Otra sería con la función DSum(), para sumar los campos de tu...

Pues es muy sencillo: El primer parámetro es para indicar el intervalo (meses, años...) En tu caso, tendrás que usar "q" o "t" (en función de tu configuración regional o de si la usas en código VBA o en una consulta), que es la letra para los...

Con permiso de Jacinto, con tu "idea chapuza" puedes modificar fácilmente la función para que te quede como quieres, solo has de usar replace() dos veces, una al principio para añadirle los espacios antes y después y otra al final de la función para...

Es muy sencillo, solo has de definir el tipo de dato y según el tipo de dato, alguna de sus propiedades, por ejemplo: CREATE TABLE TPruebas (ID Counter, CampoTexto String(25), CampoNumerico Long, CampoFecha Date, CampoMoneda Currency) Puedes ojear el...

Puedes usar una función como ésta: Public Function existeCampo(laTabla As String, elCampo As String) As Boolean On Error GoTo sol_err Set rst = CurrentDb.OpenRecordset("SELECT " & elCampo & " FROM " & laTabla) existeCampo = True Salida: rst.Close Set...

Si bien lo que te comenta Jacinto (un saludo) es correcto, sí puedes abrir en una BD una consulta de otra BD, tan solo indicando en la SQL de la consulta la ruta completa al archivo de la BD Externa. Por ejemplo, si en la base B quieres abrir una...