Abrir un formulario y que me asigne un numero de expediente automático con el formato 462-01-000001/2016 y que aumente el 1

Preguntas y respuestas relacionadas

Como Crear un autonumérico secuencial

El otro día encontré un articulo sobre este tema y un código: ublicFunction NumId() As Long Dim Numero As Long Numero = Nz(DMax("Campo","Tabla"),0) + 1 NumId = Numero EndFunction El problema es que no se donde y como he de poner este código. Alguien...
2 respuestas

Introducir un archivo jpg en campo OLE de Access

Quiero introducir un objeto jpg en un campo de nombre PASAPORTE y definido como “Objeto OLE” El jpg lo tengo con el número de pasaporte, por ejemplo 11122233.jpg guardado en un directorio C:\pasaportes\ ¿Cómo sería la instrucción e Visual para añadir...
1 respuesta

Control de Usuarios

Espero que alguien me pueda ayudar con esto tan simple. Sucede que tengo un Sistema de Ventas en Access 2000.. Al entrar, quiero que verifique su entrada con su nombre de usuario y su contraseña, las cuales deberán de verificarse en una tabla ya...
1 respuesta

Ayuda para mejorar registros con valor numérico correlativo en una base de datos de Microsoft Access

Tengo una base de datos en donde necesito que me coloque un valor numérico correlativo si se cumplen unas variables, ejemplo: Tengo mi tabla con el campo "Modulo" y campo "zanjado", necesitaría si en algún registro dice "si" genere un numero que se...
1 respuesta

Filtrar registros.

Tengo un formulario en el cual puedo introducir cuatro palabras que luego utilizo como criterio de búsqueda para filtrar los registros que contengan alguna de esas palabras en el campo Descripción. El código se dispara al hacer clic a un botón. En...
1 respuesta

Dudas sobre formularios y msgbox al hacer consulta en una base de datos de Microsoft Access

Tengo un formulario y quiero que si busco un campo y no se encuentra me aparezca un msgbox en que diga que no se encuentra el registro. El código que he puesto es este: Dim stDocName As String Dim stLinkCriteria As String stDocName = "LICENCIAS" If...
1 respuesta

Poner formato correcto a expresión fecha

Con el código que me paso ayer Sveinbjorn El Rojo para realizar un INSERT INTO a una tabla histórico, que es este: Private Sub Imagen113_Click() Dim respuesta As String Dim cSql As String Dim vFecha As Variant respuesta = MsgBox("ELIMINARÁ EL...
2 respuestas

¿Cómo crear un campo calculado que se reinicie cada año?

En una tabla con un listado de pacientes quiero crear un campo calculado que me genere un número con el formato xxxx-aa, donde xxxx es un número correlativo y aa son los dos últimos dígitos del año en curso. Hasta aquí lo he conseguido hacer de forma...
1 respuesta

Como copiar datos al seleccionar un combor

Tengo el siguiente código: Private Sub Cuadro_combinado50_AfterUpdate() Dim vMatr As String Dim vNom As String vMatr = Me.Cuadro_combinado50.Value If IsNull(vMatr) Then Exit Sub vNom = DLookup("[CARP]", "DatosVarios", "[Responsable]='" & vEnc & "'")...
2 respuestas

Generar numero de factura

Necesito hacer una base de datos en access, donde pueda generar números de factura a partir de un valor específico. Estas facturas una vez que la envíe a imprimir no debe dejarme acceder a ellas para que no se puedan volver a imprimir. Además debo...
3 respuestas
¿No es la pregunta que estabas buscando?
Puedes explorar otras preguntas de los temas