Fenomenos Acusticos

rivate Sub BUSCAR_Click()
Set segui = Workspaces(0).OpenDatabase("C:\visulaba\PROVEEDORES.mdb")
Set alumn = segui.OpenRecordset("PROVEEDORES")
a = 0
If Text1 = enty Then
MsgBox ("porfavorintrodusca el codigo ")
Text1.SetFocus
GoTo fin1
End If
Do Until alumn.EOF
If alumn!NOMBRE_EMPRESA = Text1 Then
varorigen = alumn.Bookmark
'On Error Resume Next
a = 1
Text2 =alumn!NOMBRE_ENCARGADO
Text3 = alumn!DIRRECION
Text4 = alumn!TELEFONO
Text5 = alumn!CORREO
dcciudad = alumn!CIUDAD
NUEVO.Enabled = True
ELIMINAR.Enabled = True
GUARDAR.Enabled = FalseEDITAR.Enabled = True
SALIR.Enabled = True
VOLVER.Enabled = True
Text2.Enabled = True
Text1.Enabled = False
dcciudad.Enabled = True
Text3.Enabled = True
Text4.Enabled = TrueText5.Enabled = True
dcciudad.Enabled = True
GoTo fin
End If
alumn.MoveNext
Loop
fin:
If a = 0 Then
MsgBox ("no se encuentra")
Text1.Enabled = False
Text2.Enabled = TrueText3.Enabled = True
Text4.Enabled = True
Text5.Enabled = True
dcciudad.Enabled = True
GUARDAR.Enabled = True

End If
fin1:
End Sub

Private Sub EDITAR_Click()
Set segui1 =Workspaces(0).OpenDatabase("C:\visulaba\PROVEEDORES.mdb")
Set perso1 = segui1.OpenRecordset("PROVEEDORES")

If Text1 = enty Then
MsgBox "por favor llene todas las casillas"
Text1.SetFocus
GoTo fin
End IfIf dcciudad = enty Then
MsgBox "por favor llena las casillas "
GoTo fin
End If
If Text2 = enty Then
MsgBox "por favor llene todas las casillas"
Text2.SetFocus
GoTo fin
End If
If Text3 =enty Then
MsgBox "por favor llene todas las casillas"
Text3.SetFocus
GoTo fin
End If
If Text4 = enty Then
MsgBox "por favor llene todas las casillas"
Text4.SetFocus
GoTo fin
End If
IfText5 = enty Then
MsgBox "por favor llene todas las casillas"
Text5.SetFocus
GoTo fin
End If
If Text2 = enty And Text3 = enty And Text4 = enty And Text5 = enty Then
MsgBox "por favor llene...