boas , estou a fazer a pap para programação em vb6 e eu tenho o controlo data tudo bem com o nome "compra" mas ao carregar numa image para correr o código da-me esse erro não sei porque , preciso de ajuda sff :s Código :
Private Sub Image3_Click()
If MsgBox("Tem a certeza que quer cancelar totalmente o pedido?", vbOKCancel, "Kofeware Alerta") = vbOK Then
compra.Recordset.MoveFirst "aqui é onde da o debug"
Do
If compra.Recordset![mesa] = nrmesa And compra.Recordset![confirmado] <> "" Then
fecho = 1
MsgBox "Os pedidos confirmados já não poderam ser eleminados.", vbOKCancel, "Kofeware Informação"
Exit Do
End If
compra.Recordset.MoveNext
Loop Until pedidos.Recordset.EOF
compra.Recordset.MoveFirst
Do
If compra.Recordset![mesa] = nrmesa And compra.Recordset![confirmado] = "" Then
compra.Recordset.Delete
End If
compra.Recordset.MoveNext
Loop Until pedidos.Recordset.EOF
data.Recordset.FindFirst ("mesa=" & nrmesa & "")
data.Recordset.Delete
If fecho = 0 Then
cont = 0
Clientes.Show
Unload Me
End If
End If
End Sub
alguém sabe como resolver isto ?
Private Sub Image3_Click()
If MsgBox("Tem a certeza que quer cancelar totalmente o pedido?", vbOKCancel, "Kofeware Alerta") = vbOK Then
compra.Recordset.MoveFirst "aqui é onde da o debug"
Do
If compra.Recordset![mesa] = nrmesa And compra.Recordset![confirmado] <> "" Then
fecho = 1
MsgBox "Os pedidos confirmados já não poderam ser eleminados.", vbOKCancel, "Kofeware Informação"
Exit Do
End If
compra.Recordset.MoveNext
Loop Until pedidos.Recordset.EOF
compra.Recordset.MoveFirst
Do
If compra.Recordset![mesa] = nrmesa And compra.Recordset![confirmado] = "" Then
compra.Recordset.Delete
End If
compra.Recordset.MoveNext
Loop Until pedidos.Recordset.EOF
data.Recordset.FindFirst ("mesa=" & nrmesa & "")
data.Recordset.Delete
If fecho = 0 Then
cont = 0
Clientes.Show
Unload Me
End If
End If
End Sub
alguém sabe como resolver isto ?