Ayuda Por Favor Urge

pedrowiss
27 de Febrero del 2004
Tengo un problema con este codigo
Me da todo tipo de errores
Por favor podriais ayudarme a encontrar el fallo?
Muchas Gracias


Function LeeCampos()
Nombre = TablaAmigos.Fields("Nombre")
Apellidos = TablaAmigos.Fields("Apellidos")
Direccion = TablaAmigos.Fields("Direccion")
Poblacion = TablaAmigos.Fields("Poblacion")
Telefono = TablaAmigos.Fields("Telefono")
Cumpleaños = TablaAmigos.Fields("Cumpleaños")
End Function
Function Validar()
If Nombre.Text = "" Then
MsgBox "Campo NOMBRE obligatorio", vbCritical
Nombre.SetFocus
GoTo Salir
End If
If Apellidos.Text = "" Then
MsgBox "Campo APELLIDOS obligatorio", vbCritical
Apellidos.SetFocus
GoTo Salir
End If
If Direccion.Text = "" Then
MsgBox "Campo DIRECCION Obligatorio", vbCritical
Direccion.SetFocus
GoTo Salir
End If
If Poblacion.Text = "" Then
MsgBox "Campo POBLACION Obligatorio", vbCritical
Poblacion.SetFocus
GoTo Salir
End If
If Telefono.Text = "" Then
MsgBox "Campo TELEFONO Obligatorio", vbCritical
Telefono.SetFocus
GoTo Salir
End If
Exit Function
Salir:
Error = 1
End Function
Function CopiaCampos()
TablaAmigos.Fields("Nombre") = Nombre
TablaAmigos.Fields("Apellidos") = Apellidos
TablaAmigos.Fields("Direccion") = Direccion
TablaAmigos.Fields("Poblacion") = Poblacion
TablaAmigos.Fields("Telefono") = Telefono
TablaAmigos.Fields("Cumpleaños") = Cumpleaños
End Function
Function LimpiaCampos()
Nombre.Text = ""
Apellidos.Text = ""
Direccion.Text = ""
Poblacion.Text = ""
Telefono.Text = ""
End Function
Option Explicit
Public BaseAmigos As Database
Public TablaAmigos As Recordset
Public Opcion As Integer
Public Error As Integer

Private Sub Aceptar_Click()
Validar
If Error = 0 Then
CopiaCampos
TablaAmigos.Update
LimpiaCampos
Aceptar.Visible = False
Opcion = 0
Else
Error = 0
End If
End Sub



Private Sub Apellidos_LostFocus()
If Opcion = 2 Or Opcion = 3 Then
If Nombre.Text <> "" Then
If Apellidos.Text <> "" Then
TablaAmigos.Index = "Indice"
TablaAmigos.Seek "=", Nombre.Text, Apellidos.Text
If TablaAmigos.NoMatch = True Then
MsgBox "Este Registro NO EXISTE", vbCritical
Nombre.Text = ""
Apellidos.Text = ""
Nombre.SetFocus
Else
LeeCampos
If Opcion = 2 Then TablaAmigos.Edit
End If
Else
MsgBox "Teclee el apellido para la" & "busqueda", vbInformation
Apellidos.SetFocus
End If
Else
MsgBox "teclee un nombre pa la busqueda", vbInformation
Nombre.SetFocus
End If
End If
End Sub

Private Sub Borrar_Click()
TablaAmigos.Delete
LimpiaCampos
Borrar.Visible = False
Opcion = 0
End Sub


Private Sub Amigos_Load()
Set BaseAmigos = OpenDatabase("Agenda")
Set TablaAmigos = BaseAmigos.OpenRecordset("Amigos", dbOpenTable)
Opcion = 0
End Sub

Private Sub mnuGesAl_Click()
Aceptar.Visible = True
Modificar.Visible = False
Borrar.Visible = False
TablaAmigos.AddNew
Opcion = 1
End Sub

Private Sub mnuGesBo_Click()
Borrar.Visible = True
Modificar.Visible = False
Aceptar.Visible = False
Opcion = 3
End Sub

Private Sub mnuGesMo_Click()
Modificar.Visible = True
Aceptar.Visible = False
Borrar.Visible = False
Opcion = 2
End Sub

Private Sub Modificar_Click()
Validar
If Error = 0 Then
CopiaCampos
TablaAmigos.Update
LimpiaCampos
Modificar.Visible = False
Opcion = 0
Else
Error = 0
End If
End Sub

Private Sub Salir_Click()
TablaAmigos.Close
BaseAmigos.Close
End
End Sub