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:
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.SetFocusEnd Sub
Private Sub Command10_Click()
Me.HideEnd 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.SetFocusEnd 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
0