28/07/2011, 01:33
|
| | | Fecha de Ingreso: marzo-2011
Mensajes: 21
Antigüedad: 13 años, 1 mes Puntos: 1 | |
| Respuesta: Error de Sintasis
Muchas gracias por contestar. Ya no esta ese problema. Ahora hay otro: error de sintasis en la funcion update. Dejo el codigo del boton editar y el de update:
Private Sub Editar()
Dim i As Integer
' verifica que hay datos en el ListView y que hay uno seleccionado
If (lv.ListItems.Count = 0) Then
MsgBox "No hay ningún regisro para editar", vbInformation
Exit Sub
End If
If (lv.SelectedItem Is Nothing) Then
MsgBox "Selecciona previamente un registro para poder editarlo", vbInformation
Exit Sub
End If
With fmeditar
' obtiene el elemento seleccionado
.nc = lv.SelectedItem.Text
For i = 1 To 12
.Text1(i).Text = lv.SelectedItem.ListSubItems(i).Text
Next
.abcd = lv.SelectedItem.Text
.ACCION = editar_registro
.Show vbModal
End With
End Sub |