Excluindo Em Duas Tabelas!

[Rochedo]

Opa,

então pessoal, programa de cadastrar, buscar e excluir! Cadastrar e buscar está beleza, porém no excluir está quase, está dando errado que ele não esta excluindo da tabelda de dados(tbd), porém na tabela de oficios (tbo) está excluindo certo.

Já tentei algumas coisas aqui mas não dá certo, ele deleta o primeiro, ou deleta outro nada vê, ou seja, não estou conseguindo!

Se alguém der uma ajuda agradeço!..

abraço!

Private Sub CMD_Excluir_co_CLick()
If LBL_satec.Caption = "" Then
MsgBox "Nenhum ofício selecionado para excluir!", , "Ofício Informa"
    Else
    tbo.Seek "=", LBL_satec.Caption
    tbd.Seek "=", LBL_satec.Caption
    If tbo.NoMatch = True And tbd.NoMatch = True Then
    MsgBox "Erro, ofício inexistente", vbCritical, "Ofício Informa"
        Else
        LBL_satec.Caption = tbo("nsatec")
        LBL_satec.Caption = tbd("nsatec")
        TXT_data.Text = tbo("datarecebido")
        TXT_noficio.Text = tbo("noficio")
        TXT_nprocesso = tbo("nprocesso")
        TXT_npa.Text = tbo("npa")
        TXT_Origem.Text = tbo("origempa")
        CBO_escolha_juiz.Text = tbo("nomejuiz")
        CBO_escolha_vara.Text = tbo("nomevara")
        cbo_responsa.Text = tbo("responsavel")
        TXT_obs.Text = tbo("obs")
        TXT_usuario.Text = tbo("usuario")
        
        If OPT_mod1.Value = True Then
            TXT_usuario.Text = tbo("modresposta")
            TXT_dados.Text = tbd("dadosdigitados1")
            Else
            If OPT_mod2.Value = True Then
                cbo_modelo.Text = tbd("modelo2")
                TXT_dados.Text = tbd("dadosdigitados2")
                Else
                if OPT_mod3.Value = True Then
                    cbo_modelo.Text = tbd("modelo3")
                    TXT_dados.Text = tbd("dadosdigitados3")
                    Else
                    If OPT_mod4.Value = True Then
                        cbo_modelo.Text = tbd("modelo4")
                        TXT_dados.Text = tbd("dadosdigitados4")
                        
                    End If
                End If
            End If
        End If
        Dim Confirm As Boolean
        Confirm = MsgBox("Deseja realmente excluir o ofício?", vbYesNo + vbQuestion, "Ofício Informa")
        If Confirm = True Then
            tbo.Delete
            tbd.Delete
            Limpa_Campos
        End If
End If
End If
End Sub

Editado Abril 27, 2007 por Rochedo

[Graymalkin]

A comparação aqui...

Dim Confirm As Boolean
Confirm = MsgBox("Deseja realmente excluir o ofício?", vbYesNo + vbQuestion, "Ofício Informa")
If Confirm = True Then
  ...

... está errada. Msgbox não retorna um boolean. Ele retorna valores definidos pelas constantes vbYes e vbNo. Veja o exemplo:

Dim confirma As Boolean
    
confirma = MsgBox("Teste?", vbYesNo)
MsgBox confirma

Tanto "Sim" como "Não" retornarão True. O certo seria algo como:

Dim confirma As VbMsgBoxResult
    
confirma = MsgBox("teste", vbYesNo)
MsgBox confirma = vbYes

Ah, e o seu código também está todo mal-identado.

Abraços,

Graymalkin

[Rochedo]

A beleza, valeu pelas dicas. É que faz pouco tempo que comecei com vb e estou aprendendo na raça.

E quanto as tabelas? sobre o excluir da uma força!

Editado Abril 30, 2007 por Rochedo

[Graymalkin]

A beleza, valeu pelas dicas. É que faz pouco tempo que comecei com vb e estou aprendendo na raça.

E quanto as tabelas? sobre o excluir da uma força!

Bom, o que eu vi ali que pode estar errado é que...

tbo.Delete
tbd.Delete

... só deveria ser executado se...

If tbo.NoMatch = True And tbd.NoMatch = True Then

... ou seja, se o registro fosse encontrado em ambas as tabelas. Mas, me parece que não é isso que está acontecendo (identando o código corretamente você vai poder ver isso melhor).

Abraços,

Graymalkin