Hola, he probado lo que me han indicado, pero sigo sin poder solucionarlo, asi que les dejo el codigo que tengo en el boton
BORRAR CLIENTE
Lo que me hace es si le digo que no lo elimine, me muestra los msgbox, pero al final me dice,
Cliente eliminado y por supuesto lo elimina....
Les pego el codigo, a ver si me dicen o me ayudan a intentar solucionarlo...
Código:
Private Sub Command5_Click()
Dim resp As Integer
resp = MsgBox("¿Deseas elimiar la ficha?", vbYesNo + vbInformation, "ATENCION")
If resp = vbNo Then
MsgBox "No ha eliminado ningun cliente", vbOKOnly + vbInformation, "ATENCION"
End If
Close
Open "C:\Archivos de programa\Microsoft Visual Studio\VB98\Proyectos\BASE DATOS\datos.dat" For Input As 1
Open "C:\Archivos de programa\Microsoft Visual Studio\VB98\Proyectos\BASE DATOS\pasadatos.dat" For Append As 2
Do While Not EOF(1)
Input #1, nomcogido
Input #1, apecogido
Input #1, dircogido
Input #1, pobcogido
Input #1, obscogido
If nomcogido = Text7.Text Then
Text1.Text = nomcogido
Text2.Text = apecogido
Text3.Text = dircogido
Text4.Text = pobcogido
Text5.Text = obscogido
Else
Write #2, nomcogido
Write #2, apecogido
Write #2, dircogido
Write #2, pobcogido
Write #2, obscogido
End If
Loop
Close #1
Close #2
Kill "C:\Archivos de programa\Microsoft Visual Studio\VB98\Proyectos\BASE DATOS\datos.dat"
Name "C:\Archivos de programa\Microsoft Visual Studio\VB98\Proyectos\BASE DATOS\pasadatos.dat" As "C:\Archivos de programa\Microsoft Visual Studio\VB98\Proyectos\BASE DATOS\datos.dat"
MsgBox "CLIENTE BORRADO", vbOKOnly + vbInformation, "ATENCION"
End Sub