Cuadros combinados
Publicado por Miguel (53 intervenciones) el 10/06/2016 14:00:07
Buenas.
Tengo un problemilla con una base y no sé realmente si es un tema de relaciones o realmente de código.
El caso es que parto de un formulario independiente que me muestra tres cuadros combinados ( que tienen reflejo en sus tablas). En ese formulario, tengo un botón que al hacer click me produce el evento de ir a otro formulario y mostrarme la selección previa que he hecho. El caso es que me lleva hasta allí pero, al hacer de nuevo la misma operación me sobreescribe el registro anterior ( o sea, que no me lo graba...). Os muestro el código del botón:
(notas:
-AÑO, Entidad y Documento son los tres cuadros combinados
-RESUELVE es el formulario que me abre
)
Porqué no se me guarda el registro en el Formulario RESUELVE??
AL abrir de nuevo el formulario de inicio, todo parecenormal lo que hace es sobreescribirlo..
Alguna ayuda. Gracias por adelantado
Tengo un problemilla con una base y no sé realmente si es un tema de relaciones o realmente de código.
El caso es que parto de un formulario independiente que me muestra tres cuadros combinados ( que tienen reflejo en sus tablas). En ese formulario, tengo un botón que al hacer click me produce el evento de ir a otro formulario y mostrarme la selección previa que he hecho. El caso es que me lleva hasta allí pero, al hacer de nuevo la misma operación me sobreescribe el registro anterior ( o sea, que no me lo graba...). Os muestro el código del botón:
(notas:
-AÑO, Entidad y Documento son los tres cuadros combinados
-RESUELVE es el formulario que me abre
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Private Sub Comando47_Click()
On Error GoTo xEr
If IsNull(Me.AÑO) Or IsNull(Me.Documento) Or IsNull(Me.Entidad) Then
MsgBox "Debe seleccionar año, entidad y documento.", vbCritical
Exit Sub
End If
DoCmd.OpenForm "Resuelve", acNormal
Forms!RESUELVE!AÑO = Me.AÑO
Forms!RESUELVE!Enti = Me.Entidad
Forms!RESUELVE!TD = Me.Documento
Forms!RESUELVE!FecRec = DLookup("[FECHA REC]", "Entidades", "[CIF] ='" & Me.Entidad & "'")
Forms!RESUELVE!Presi = DLookup("[REPRESENTANTE]", "Entidades", "[CIF] ='" & Me.Entidad & "'")
Forms!RESUELVE!NIF = DLookup("[NIF_REPRESENTANTE]", "Entidades", "[CIF] ='" & Me.Entidad & "'")
Forms!RESUELVE.Requery
Salir:
'cerrar todo abierto...
Exit Sub
xEr:
MsgBox Err.Description
Resume Salir
End Sub
Porqué no se me guarda el registro en el Formulario RESUELVE??
AL abrir de nuevo el formulario de inicio, todo parecenormal lo que hace es sobreescribirlo..
Alguna ayuda. Gracias por adelantado
Valora esta pregunta
0