ola pessoal to fazendo um botao delete e nao sei porq ele nao esta tualzaido , eu excluo o ultimo item do txt ele ainda fica la, nao fica em branco o txt alguem sabe oq to fazendo errado?

 

Dim del As String

del = MsgBox("Você Deseja Deletar" & vbCrLf & txtJournal.Text & "?", vbQuestion & vbYesNo, "Delete " & txtJournal.Text & "?")
If del = vbYes Then

    rsCalendario.Close
   
    rsCalendario.Open "Select * FROM entries where journal_id =(" & jid & ")"
 
 If Not rsCalendario.EOF Then
 
        rsCalendario.Delete
        rsCalendario.MoveNext
        
        rsCalendario.Close
   
    rsCalendario.Open "Select * FROM entries where journal_id =(" & jid & ")"
 
      
        MsgBox "Compromisso Excluído com Sucesso!", vbInformation, "|||| Compromisso Delete ||||"
 
    If Not rsCalendario.EOF Then
    rsCalendario.MoveMax
    
    End If
  Else
     Exit Sub
  End If
  
    
      If rsCalendario.EOF = True And rsCalendario.BOF = True Then
    MsgBox "O Banco de Dados está vazio", vbCritical, "|||| Compromisso Delete ||||"
    Exit Sub
End If
Exit Sub

  End If

korn , explica direito , nao entendi o que vc quer, que txt é esse?

Você quer excluir um item da tabela que você esta com ele em um txtbox correto, pergunto você esta conseguindo exclui-lo da tabela ??

Pelo que entendi ele somente esta ficando na txtbox neste caso não seria só fazer txtbox.text=""

é um calendario , que nele eu incluo varios compromissos, em um só txt ,

mas na hora de deletar esses compromissos , um por um , ele deleta de boa , massss quando sobra um deles ele nao atualiza o txt pra ele ficar em branco

   

 

quem quiser da uma olhada no projetinho da um toque, eu mando sem problemas , eu passei ele pra ado , ele estava em dao

alguem