Access - Validar Informacion Antes De Crear Registro

 
Vista:
sin imagen de perfil
Val: 1
Ha aumentado su posición en 49 puestos en Access (en relación al último mes)
Gráfica de Access

Validar Informacion Antes De Crear Registro

Publicado por adolfo (16 intervenciones) el 22/08/2016 17:13:16
Saludos amigos, aquí estoy con otra duda: Tengo un formulario principal que contiene dos sub formularios en cascada, tanto el principal como los dos subs actualizan cada uno, una tabla. Al llenar todos los datos de los tres formularios, se crea el registro. El problema es que si el usuario abandona la operación antes de llegar al tercer formulario, las tablas se actualizan con lo introducido en los dos formularios previos, quedando esa especie de "basura" almacenada en las tablas y el registro no queda completo. Como podría evitarlo? Es decir, si el usuario abandona el proceso en cualquier punto que no se cree ese registro.
Gracias de nuevo
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Francesc
Val: 23
Ha disminuido su posición en 6 puestos en Access (en relación al último mes)
Gráfica de Access

Validar Informacion Antes De Crear Registro

Publicado por Francesc (68 intervenciones) el 22/08/2016 21:00:16
Yo tuve este problema, aunque sólo para ingresar datos en una tabla y en el formulario a parte de los campos para rellenar, cree tres botones, uno para controlar los datos, el segundo para borrar si había errores y el ultimo para ingresar en la tabla los datos validados. Aquí envío el código:
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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
Option Compare Database
Option Explicit
 
 
 
Function Esta_Buit(Casella, tipUs)
Dim Valid
'Tipus 0 - No necesita revisio, 1 - Tel. 2 - Email
    If Nz(Casella, "") = "" Then
        Esta_Buit = 1
    Else
        Select Case tipUs
            Case 0
                Esta_Buit = 0
            Case 1
                If Len(Casella) = 9 Then
                    Esta_Buit = 0
                Else
                    MsgBox "Alerta! Teléfon incorrecte", vbCritical, "Error"
                    Esta_Buit = 1
                    txt_fix.SetFocus
                End If
            Case 2
                Valid = InStr(Casella, "@")
                If Valid = 0 Then
                    MsgBox "Falta una @"
                    Esta_Buit = 1
                    txt_email.SetFocus
                Else
                    Valid = InStr(Casella, ".")
                    If Valid = 0 Then
                        MsgBox "Falta una ."
                        Esta_Buit = 1
                        txt_email.SetFocus
                    End If
                End If
                Esta_Buit = 0
        End Select
    End If
End Function
 
Function Valida_Nif(nif)
Dim DNI, letra_dni, DNINULL
 
DNI = txt_dni.Value
DNINULL = 0
 
'SI EL DNI TE UNA LONGITUD DE 8, AFEGIM LA LLETRA AL FINAL
If (Len(DNI) = 8) Then
    Select Case Left$(DNI, 1)
        Case Is = "X"
            letra_dni = Mid$("TRWAGMYFPDXBNJZSQVHLCKE", (Val(Replace(DNI, "X", "0")) Mod 23) + 1, 1)
        Case Is = "Y"
            letra_dni = Mid$("TRWAGMYFPDXBNJZSQVHLCKE", (Val(Replace(DNI, "Y", "1")) Mod 23) + 1, 1)
        Case Is = "Z"
            letra_dni = Mid$("TRWAGMYFPDXBNJZSQVHLCKE", (Val(Replace(DNI, "Z", "2")) Mod 23) + 1, 1)
        Case Else
            letra_dni = Mid$("TRWAGMYFPDXBNJZSQVHLCKE", (Val(DNI) Mod 23) + 1, 1)
    End Select
    txt_dni.Value = DNI & letra_dni
    DNINULL = 1
Else
    'SI ES MES GRAN DE 9 NO ES CORRECTE
    If (Len(DNI) > 9) Then
        MsgBox "Alerta! Sobren xifres al DNI!", vbExclamation, "Informació"
        DNINULL = 1
        txt_dni.Value = ""
        txt_dni.SetFocus
    Else
        'SI ES MES PETIT DE 8 NO ES CORRECTE
        If (Len(DNI) < 8) Then
            MsgBox "Alerta! Falten xifres al DNI!", vbExclamation, "Informació"
            DNINULL = 1
            txt_dni.Value = ""
            txt_dni.SetFocus
        Else
            If (Len(DNI = 9)) Then
                letra_dni = Mid$("TRWAGMYFPDXBNJZSQVHLCKE", (Val(DNI) Mod 23) + 1, 1)
                If Right(DNI, 1) <> letra_dni Then
                    MsgBox "Alerta! Sembla que la lletra del DNI no es correcta", vbExclamation, "Informació"
                    txt_dni.SetFocus
                    DNINULL = 0
                Else
                    DNINULL = 1
                End If
            End If
        End If
    End If
End If
 
If DNINULL = 0 Then
    Valida_Nif = 1
Else
    Valida_Nif = 0
End If
End Function
 
Private Sub btn_alta_Click()
Dim Caselles_Buides, Continuar_igualment
Dim SQL_Insert, SQL_Values
 
Caselles_Buides = 0
 
Caselles_Buides = Valida_Nif(txt_dni)
 
Caselles_Buides = Caselles_Buides + Esta_Buit(txt_nom.Value, 0)
Caselles_Buides = Caselles_Buides + Esta_Buit(txt_c1.Value, 0)
Caselles_Buides = Caselles_Buides + Esta_Buit(txt_c2.Value, 0)
Caselles_Buides = Caselles_Buides + Esta_Buit(txt_data_naixement.Value, 0)
Caselles_Buides = Caselles_Buides + Esta_Buit(txt_domicili.Value, 0)
Caselles_Buides = Caselles_Buides + Esta_Buit(txt_cp.Value, 0)
Caselles_Buides = Caselles_Buides + Esta_Buit(txt_poblacio.Value, 0)
Caselles_Buides = Caselles_Buides + Esta_Buit(txt_fix.Value, 1)
Caselles_Buides = Caselles_Buides + Esta_Buit(txt_mobil.Value, 1)
Caselles_Buides = Caselles_Buides + Esta_Buit(txt_email.Value, 2)
Caselles_Buides = Caselles_Buides + Esta_Buit(txt_data_alta.Value, 0)
Caselles_Buides = Caselles_Buides + Esta_Buit(txt_taula.Value, 0)
Caselles_Buides = Caselles_Buides + Esta_Buit(txt_seient.Value, 0)
Caselles_Buides = Caselles_Buides + Esta_Buit(txt_pis.Value, 0)
Caselles_Buides = Caselles_Buides + Esta_Buit(txt_compadre.Value, 0)
Caselles_Buides = Caselles_Buides + Esta_Buit(txt_sexe.Value, 0)
Caselles_Buides = Caselles_Buides + Esta_Buit(txt_llengua.Value, 0)
 
 
If Caselles_Buides > 0 Then
    Continuar_igualment = MsgBox("Falta omplenar les dades de " & Caselles_Buides & " camps" & Chr(13) & "Vol continuar de totes formes?", vbYesNo, "Alerta")
End If
 
If Caselles_Buides = 0 Or Continuar_igualment = 6 Then
    SQL_Insert = "INSERT INTO tblSocis(NUMSOCI, COGNOM1, COGNOM2, NOM, DOMICILI, POBLACIO, CODIPOSTAL, TELEFON, MOBIL, MAIL, FECALTA, FECNAIXAMENT, LLOCNAIXEMENT, PROVNAIXEMENT, SEXE, ESTATCIVIL, DNI, CONJUGE, LLENGUA, FESTES, EXCURSIONS, AVISOS, BAIXA, FECBAIXA, MOTIUBAIXA, OBSERVACIONS, RUTAIMAGEN, NUMESCPISPOR, COMPLEMADREÇA) VALUES "
 
    SQL_Values = "(" & txt_num_soci.Value & ",'" & txt_c1.Value & "','" & txt_c2.Value & "','" & txt_nom.Value & "','" & txt_domicili.Value & "','" & txt_poblacio.Value & "','" & txt_cp.Value & "','" & txt_fix.Value & "','" & txt_mobil.Value & "','" & txt_email.Value & "',#" & txt_data_alta.Value & "#,#" & txt_data_naixement.Value & "#,'','','','','" & txt_dni.Value & "'," & lst_conjuge.Value & ",'" & txt_llengua.Value & "'," & txt_taula.Value & "," & txt_seient.Value & ",'','','','','" & lst_observacions.Value & "','" & txt_num_soci.Value & ".jpg','" & txt_pis.Value & "','" & txt_compadre.Value & "')"
 
    'Revisem quines dades esta inserint descomentar per fer supervisio
    'MsgBox SQL_Insert & Chr(13) & SQL_Values
 
    DoCmd.SetWarnings False
    DoCmd.RunSQL SQL_Insert & SQL_Values
 
    MsgBox "Soci inserit correctament" & Chr(13) & "Núm Soci: " & txt_num_soci.Value & Chr(13) & _
    "DNI: " & txt_dni.Value & Chr(13) & _
    "Nom complert: " & txt_nom.Value & " " & txt_c1.Value & " " & txt_c2.Value & Chr(13) & _
    "Domicili: " & txt_domicili.Value & " " & txt_pis.Value & " " & txt_compadre.Value & " " & txt_poblacio.Value & " " & txt_cp.Value & Chr(13) & _
    "Tel Fix: " & txt_fix.Value & " Tel. Mòbil: " & txt_mobil.Value & Chr(13) & _
    "Email: " & txt_email.Value & Chr(13) & _
    "Taula Festes: " & txt_taula.Value & " Seient autobús: " & txt_seient.Value, vbInformation, "Informació"
 
    '-> Esborrem les dades, aixó podría anar en una funcio unica que es crida tant al premer el boto esborrar como inserir
    txt_num_soci.Value = ""
    txt_nom.Value = ""
    txt_c1.Value = ""
    txt_c2.Value = ""
    txt_dni.Value = ""
    txt_data_naixement.Value = ""
    txt_domicili.RowSource = "SELECT CnsCarrersAlfa.NOMCARRER, CnsCarrersAlfa.CP, CnsCarrersAlfa.municipi FROM CnsCarrersAlfa WHERE (((CnsCarrersAlfa.NOMCARRER) Like '*' & [Quin carrer desitjes] & '*')) ORDER BY CnsCarrersAlfa.NOMCARRER, CnsCarrersAlfa.[CP];"
    txt_domicili.Requery
    txt_domicili.Value = ""
    txt_cp.Value = ""
    txt_poblacio.Value = ""
    txt_fix.Value = ""
    txt_mobil.Value = ""
    txt_email.Value = ""
    txt_data_alta.Value = ""
    txt_taula.Value = ""
    txt_seient.Value = ""
    lst_conjuge.Value = ""
    lst_observacions.Value = ""
    txt_pis.Value = ""
    txt_compadre.Value = ""
    txt_sexe.Value = ""
    txt_llengua.Value = ""
 
    'Cridem a form_load per recalcular el ID
    Call Form_Load
    DoCmd.SetWarnings True
End If
End Sub
 
Private Sub btn_esborrar_Click()
Dim Resultat
 
'Confirmem que l'usuari vol esborrar les dades, si es aixi procedim, si no no fem res
Resultat = MsgBox("Atenció, esta a punt de netejar totes les caselles, vol continuar?", vbInformation + vbYesNo, "Alerta")
If Resultat = 6 Then
    txt_num_soci.Value = ""
    txt_nom.Value = ""
    txt_c1.Value = ""
    txt_c2.Value = ""
    txt_dni.Value = ""
    txt_data_naixement.Value = ""
    txt_domicili.RowSource = "SELECT CnsCarrersAlfa.NOMCARRER, CnsCarrersAlfa.CP, CnsCarrersAlfa.municipi FROM CnsCarrersAlfa WHERE (((CnsCarrersAlfa.NOMCARRER) Like '*' & [Quin carrer desitjes] & '*')) ORDER BY CnsCarrersAlfa.NOMCARRER, CnsCarrersAlfa.[CP];"
    txt_domicili.Requery
    txt_pis.Value = ""
    txt_compadre.Value = ""
    txt_sexe.Value = ""
    txt_llengua.Value = ""
    txt_cp.Value = ""
    txt_poblacio.Value = ""
    txt_fix.Value = ""
    txt_mobil.Value = ""
    txt_email.Value = ""
    txt_data_alta.Value = ""
    txt_taula.Value = ""
    txt_seient.Value = ""
    lst_conjuge.Value = ""
    lst_observacions.Value = ""
    txt_pis.Value = ""
    txt_compadre.Value = ""
    txt_sexe.Value = ""
    txt_llengua.Value = ""
    Call Form_Load
End If
End Sub
 
Private Sub cmdCerrar_Click()
DoCmd.Close acForm, Me.Name
DoCmd.OpenForm "Switchboard"
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil
Val: 1
Ha aumentado su posición en 49 puestos en Access (en relación al último mes)
Gráfica de Access

Validar Informacion Antes De Crear Registro

Publicado por adolfo (16 intervenciones) el 22/08/2016 21:49:45
Ok amigo, gracias por responder, sin embargo busco algo que sea transparente para el usuario. Que no tenga que usar botones, ni hacer mas que introducir los datos, que sea la aplicación la que detecte la inconsistencia y que no guarde un registro incompleto
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar