Visual Basic - run time error '91'

Life is soft - evento anual de software empresarial
   
Vista:

run time error '91'

Publicado por Ribó (3 intervenciones) el 04/04/2008 12:45:44
Haber es un programa que por lo que veo debo incluirle cosas para los ordenadores que no tengan el visual basic instalado no lo ven.

Os pongo aqui el codigo para ver si veis cosas chungas.OJALA ALGUIEN ME AYUDE ,ahora que ya se hacer todo esto lo mejor seria preparar mis programas para poderlos poner en otros pc's claro y que no salte el error...
GRacias


Private Sub acep_Click()
On Error GoTo errores

modi.Enabled = True
dar.Enabled = True
alta.Enabled = True
acep.Enabled = False
canc.Enabled = False
T1.Enabled = False
T2.Enabled = False
T3.Enabled = False
T4.Enabled = False
Data1.Enabled = True
Data1.Recordset.Update
Data1.Refresh
Data1.Recordset.MoveLast

'''''''''''''''''''''''''''''''''''''''''''''''
'''''''''Inicio Control de errores'''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''
errores:
'error 1 pone letras en campos numericos'''''''
If Err.Number = 3426 Then
MsgBox "Debes introducir: -Nombre y -Apellido(letras de 0 a 50 caracteres),-Posicion y -Puntos(números del 0 al 32767)", vbInformation + vbOKOnly, "Información"
T1.Enabled = True
T2.Enabled = True
T3.Enabled = True
T4.Enabled = True
alta.Enabled = False
modi.Enabled = False
dar.Enabled = False
canc.Enabled = True
acep.Enabled = True
Data1.Enabled = False
End If
If Err.Number = 3314 Then
'''''''''''''''''''''''''''''''''''''''''''''''
'Esto es el BUGG para cuando no hay registros'
'y añades uno incorrectamente es la forma de ''
'eliminar el alta si esta mal escrita y no hay'
''''''''''''''ningun registro''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''
If Data1.Recordset.RecordCount = 0 Then
Data1.Recordset.CancelUpdate
End If
'''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''Fin Del Codigo'''''''''''''''''''
''''''''Cancelupdate en aceptar''''''''''''''''
'''''''''''''cuando faltan campos''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''
MsgBox "Debes Rellenar Todos los campos", vbCritical + vbOKOnly, "Advertencia"
If Data1.Recordset.RecordCount = 0 Then
MsgBox "No Hay Registros en la base de datos", vbInformation + vbOKOnly, "Información"
modi.Enabled = False
dar.Enabled = False
Data1.Enabled = False
alta.Enabled = True
''''''''''''''''''''''''''''''''''''''''''''''''''
'en el codigo de arriba cuando no hay registros'''
''''te deshabilita todo menos el boton de alta''''
''en cambio cuando haya mas registros y no se ''''
''''hayan rellenado todos los campos saltara al'''
'''''''''''''''''''''primero''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''
Else: Data1.Recordset.MoveFirst
End If
End If
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''
'''¡¡¡¡¡¡¡¡¡¡¡¡OJO MSGBOX larguisimo!!!!!!''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub acer_Click(Index As Integer)
MsgBox "Copyright 2008-2009 Version 1.0 beta, Gestor de Concursantes. Realizado por Ribó. Free Source Code For The rest your life", vbOKOnly, "Acerca de..."
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''Fin msgbox largo de "Acerca de"''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub alta_Click()
T1.Enabled = True
T2.Enabled = True
T3.Enabled = True
T4.Enabled = True
modi.Enabled = False
dar.Enabled = False
alta.Enabled = False
acep.Enabled = True
canc.Enabled = True
Data1.Enabled = False
Data1.Recordset.AddNew
End Sub

Private Sub canc_Click()
Data1.Recordset.CancelUpdate
modi.Enabled = True
dar.Enabled = True
alta.Enabled = True
T1.Enabled = False
T2.Enabled = False
T3.Enabled = False
T4.Enabled = False
acep.Enabled = False
canc.Enabled = False

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Cuando no hay registros, das una alta y cancelas, luego'
'se quedan los textos en blanco y si mueves de registro''
'Tira al error 3021''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''
If Data1.Recordset.RecordCount = 0 Then
Data1.Enabled = False
End If

End Sub


Private Sub dar_Click()
On Error GoTo errores
modi.Enabled = False
dar.Enabled = False
alta.Enabled = False
acep.Enabled = False
canc.Enabled = False
Data1.Enabled = False
If Data1.Recordset.RecordCount = 0 Then
MsgBox "No hay ningun registro que eliminar", vbInformation + vbOKOnly, "Advertencia"
Else: respuesta = MsgBox("¿Esta seguro de que quiere dar de baja a este usuario?", vbCritical + vbYesNo, "Confirmación")
End If

''''''''''''''''''''''''''''''''''''''''''''''
''Aqui se juega con la propiedad eof, end of''
''file, para decirle que nos mueva al final'''
'''sino se movera al siguiente''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''
If respuesta = vbYes Then
Data1.Recordset.Delete
Data1.Recordset.MoveNext
If Data1.Recordset.EOF Then
Data1.Recordset.MoveLast
End If
End If
modi.Enabled = True
dar.Enabled = True
alta.Enabled = True
Data1.Enabled = True

errores:
'''''''''''''''''''''''''''''''''''''''''''''''
''No hay registros y se intenta borrar uno'''''
'''salta msgbox para decirte que los has ''''''
'''eliminado todos, se deshabilitan todos los''
''botones y textos y se HABILITA EL ALTA'''''''
'''''''''''''''''''''''''''''''''''''''''''''''
If Err.Number = 3021 Then
MsgBox "Ha Eliminado todos los registros", vbInformation + vbOKOnly, "Informacion"
modi.Enabled = False
dar.Enabled = False
Data1.Enabled = False
alta.Enabled = True
End If
End Sub

Private Sub Form_Load()
T1.Enabled = False
T2.Enabled = False
T3.Enabled = False
T4.Enabled = False
acep.Enabled = False
canc.Enabled = False
modi.Enabled = True
dar.Enabled = True
alta.Enabled = True

End Sub

Private Sub modi_Click()
Data1.Enabled = False
modi.Enabled = False
dar.Enabled = False
alta.Enabled = False
T1.Enabled = True
T2.Enabled = True
T3.Enabled = True
T4.Enabled = True
''''''''''''''''''''''''''''''''''''''''''''''''''
' Si no hay registros que modificar no permitas''
'que se modifique, y si los hay edit''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''
If Data1.Recordset.RecordCount = 0 Then
MsgBox "No hay ningun registro que modificar", vbInformation + vbOKOnly, "Advertencia"
acep.Enabled = False
canc.Enabled = False
alta.Enabled = True
modi.Enabled = True
T1.Enabled = False
T2.Enabled = False
T3.Enabled = False
T4.Enabled = False
dar.Enabled = True
Else: Data1.Recordset.Edit
acep.Enabled = True
canc.Enabled = True
End If
End Sub

Private Sub Timer1_Timer()
context.Text = Data1.Recordset.RecordCount
abspos.Text = Data1.Recordset.AbsolutePosition
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