Modificar datos VB 6.0
Publicado por ZeDfriT (1 intervención) el 19/10/2016 04:13:20
Hola comunidad. Recientemente comencé a hacer un software que trata de liquidación de expensas.
Estoy medio complicado.
A medida que avanzo en él hay cosas que no se resolverlas a falta de información o conocimiento.
Cuando hago clic en "grabar" y lleno los campos, me modifica siempre el 1° registro del grid y nunca los otros datos.
Dejo adjunto el código del botón Modificar a ver si pueden ayudarme...
Estoy medio complicado.
A medida que avanzo en él hay cosas que no se resolverlas a falta de información o conocimiento.
Cuando hago clic en "grabar" y lleno los campos, me modifica siempre el 1° registro del grid y nunca los otros datos.
Dejo adjunto el código del botón Modificar a ver si pueden ayudarme...
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
Private Sub CmdGrabar_Click()
If txtpropietario.Text = "" Then MsgBox "El campo propietario esta vacio", vbInformation, "Aviso": txtpropietario.SetFocus: Exit Sub
If txtedificio.Text = "" Then MsgBox "El campo edificio esta vacio", vbInformation, "Aviso": txtedificio.SetFocus: Exit Sub
If txtunidad.Text = "" Then MsgBox "El campo unidad esta vacio", vbInformation, "Aviso": txtunidad.SetFocus: Exit Sub
If txtporcentaje.Text = "" Then MsgBox "El campo porcentaje esta vacio", vbInformation, "Aviso": txtporcentaje.SetFocus: Exit Sub
If Modi = False ThenWith RsPropietarios
.Requery .AddNew!propietario = txtpropietario.Text
!edificio = txtedificio.Text
!unidad = txtunidad.Text
!porcentaje = txtporcentaje.Text
.Update .RequeryEnd With
Else
With RsPropietarios
.Requery.Find "idpropietario='" & Trim(GrillaPropietarios.Columns(0).Text) & "'"
!propietario = txtpropietario.Text
!edificio = txtedificio.Text
!unidad = txtunidad.Text
!porcentaje = txtporcentaje.Text
.UpdateBatch .RequeryEnd With
End If
habilitarcajas True
habilitarbotones True, Falsecerrargrilla
End Sub
Valora esta pregunta
0