RE:ayuda con una ventana terca
gracias por su ayuda eso si me funciono oye ahora tengo otro problem y no se porke si en otro codigo tengo el mismo y si funciona el problem es al kerer agregar un registro me marca un error de muchos numeros por fa cheka el codigo y ayudame por fa....
Option Explicit
Private Sub Adodc1_WillMove(ByVal adReason As ADODB.EventReasonEnum, _
adStatus As ADODB.EventStatusEnum, ByVal _
pRecordset As ADODB.Recordset)
On Local Error Resume Next
Adodc1.Caption = "Registro actual"
End Sub
Private Sub cmdvista_Click()
frmvistavideoteca.Show vbModal
Adodc1.Refresh
End Sub
Private Sub Form_Load()
Adodc1.ConnectionString = "Provider= Microsoft.Jet.OLEDB.4.0;" & _
"Data source = C:\PROYECTO_VIDEOTECA.mdb"
Adodc1.CursorType = adOpenDynamic
Adodc1.RecordSource = "Videoteca"
Adodc1.Refresh
Dim i As Long
End Sub
Private Sub doADOAgregar()
Adodc1.Recordset.AddNew
Text1.SetFocus
End Sub
Private Sub doADOCancelar()
'
If MsgBox("¿Deshacer los cambios?", vbYesNo + vbQuestion, _
"Cancelar Modifcaciones") = vbYes Then
Adodc1.Refresh
cmdaccion(0).Caption = "&Agregar"
End If
Text1.SetFocus
End Sub
Private Sub doADOEliminar()
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveLast
Text1.SetFocus
End Sub
Private Sub cmdaccion_Click(Index As Integer)
'
With Adodc1
Select Case Index
Case 0: doADOAgregar
Case 1: doADOEliminar
Case 2: doADOCancelar
End Select
End With
End Sub
Private Sub cmdactualizar_Click()
Adodc1.Refresh
Text1.SetFocus
End Sub
Private Sub cmdsalir_Click()
frmvideoteca.Visible = False
frmacceso.Visible = False
End Sub