Visual Basic - Error 3426 en Visual basic 6.0 en tiempo de ejecución

Life is soft - evento anual de software empresarial
   
Vista:

Error 3426 en Visual basic 6.0 en tiempo de ejecución

Publicado por SAM (1 intervención) el 06/11/2012 16:51:55
Estoy haciendo una base de datos de una tienda y cada ver que presiono Guardar en el formulario Clientes me sale el error 3426. NO sé que puede ser el error ya revisé todo. Espero puedan ayudarme.

Comando en visual:

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
Private Sub cancelar_Click()
Call Command3_Click
 
End Sub
 
Private Sub Command1_Click()
Text1.Enabled = True
Text2.Enabled = True
Text3.Enabled = True
Text4.Enabled = True
Text5.Enabled = True
Text6.Enabled = True
 
Command2.Enabled = True
Command3.Enabled = True
 
Command1.Enabled = False
Command4.Enabled = False
Command5.Enabled = False
Command6.Enabled = False
Command7.Enabled = False
Command8.Enabled = False
Command9.Enabled = False
Command10.Enabled = False
 
Data1.Recordset.AddNew
Text1.SetFocus
 
End Sub
 
Private Sub Command10_Click()
Me.Hide
 
End Sub
 
Private Sub Command2_Click()
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
Text5.Enabled = False
Text6.Enabled = False
 
Command2.Enabled = False
Command3.Enabled = False
 
Command1.Enabled = True
Command4.Enabled = True
Command5.Enabled = True
Command6.Enabled = True
Command7.Enabled = True
Command8.Enabled = True
Command9.Enabled = True
Command10.Enabled = True
 
Data1.Recordset.Update<------------------------------------- Me marca esto en amarillo!
 
End Sub
 
Private Sub Command3_Click()
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
Text5.Enabled = False
Text6.Enabled = False
 
Command2.Enabled = False
Command3.Enabled = False
 
Command1.Enabled = True
Command4.Enabled = True
Command5.Enabled = True
Command6.Enabled = True
Command7.Enabled = True
Command8.Enabled = True
Command9.Enabled = True
Command10.Enabled = True
 
Data1.Recordset.CancelUpdate
 
End Sub
 
Private Sub Command4_Click()
Text1.Enabled = True
Text2.Enabled = True
Text3.Enabled = True
Text4.Enabled = True
Text5.Enabled = True
Text6.Enabled = True
 
Command2.Enabled = True
Command3.Enabled = True
 
Command1.Enabled = False
Command4.Enabled = False
Command5.Enabled = False
Command6.Enabled = False
Command7.Enabled = False
Command8.Enabled = False
Command9.Enabled = False
Command10.Enabled = False
 
Data1.Recordset.Edit
Text1.SetFocus
 
End Sub
 
Private Sub Command5_Click()
Data1.Recordset.Delete
Data1.Recordset.MoveFirst
 
End Sub
 
Private Sub Command6_Click()
Data1.Recordset.MoveFirst
 
End Sub
 
Private Sub Command7_Click()
On Error Resume Next
Data1.Recordset.MovePrevious
 
End Sub
 
Private Sub Command8_Click()
On Error Resume Next
Data1.Recordset.MoveNext
 
End Sub
 
Private Sub Command9_Click()
Data1.Recordset.MoveLast
 
End Sub
 
Private Sub DBGrid1_DblClick()
Form1.Text9 = Data1.Recordset.Fields("Apellido y Nombres")
Form1.Text10 = Data1.Recordset.Fields("Dirección")
Form1.Text17 = Data1.Recordset.Fields("CUIL")
Form1.Text8.SetFocus
Unload Me
End Sub
 
Private Sub eliminar_Click()
Call Command4_Click
 
End Sub
 
Private Sub guardar_Click()
Call Command2_Click
 
End Sub
 
Private Sub Nuevo_Click()
Call Command1_Click
 
End Sub
 
Private Sub salir_Click()
Call Command10_Click
 
End Sub
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

Error 3426 en Visual basic 6.0 en tiempo de ejecución

Publicado por jcmg (518 intervenciones) el 07/11/2012 05:58:38
no sera este el problema en el command2
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
Text5.Enabled = False
Text6.Enabled = False
que lo inhabilites al guardar
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

Error 3426 en Visual basic 6.0 en tiempo de ejecución

Publicado por Jesús B. (4 intervenciones) el 07/11/2012 09:33:10
Debes de indicarnos no solo el número de error, tambien el literar del mismo.

Se me ocurre que el Update lo añadas antes de poner en falso los controles.

Mira tambien si alguno de los datos que introduces no se corresponde con el tipo de dato que espera tu base de datos.

El literal del error nos daria mas luz para poderte ayudar.

Saludos. Jesús B.
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