Olá pessoal gostaria de saber como eu posso deletar um arquivo direto do meu msflexgrid...?

 

Tipo eu consultei minha tabela e obtive o resultado no msflexgrid, apartir dai eu desejo excluir um dos arquivos, selecionando ele no msflexgrid e acionando um  botão para deletar....

 

fico grato..

 

Rodrigo Salles 

 

Veja se isso te ajuda , nesse caso vai excluir quando você selecionar o registro na grade , mas aí vc pode fazer uma adaptação para o botão

 

Private Sub grd_clientes_Click()

    Dim msg as integer 

    msg = Msgbox("Exclui o registro ?" , vbyesno , "Clientes")

    if msg = vbyes then

       tb_Clientes.Index = "Codigo"
       tb_Clientes.Seek "=", grd_clientes.TextMatrix(grd_clientes.Row, 0)
       tb_Clientes.Delete

    end if

End Sub

 

estou tentando usar mas da erro

'CadCaixas.Index = "CaixaID"

 

Private Sub FG1_Click()
   Dim msg As Integer
    msg = MsgBox("Exclui o registro ?", vbYesNo, "Clientes")
    If msg = vbYes Then
       CadCaixas.Index = "CaixaID"
       CadCaixas.Seek "=", FG1.TextMatrix(FG1.Row, 0)
       CadCaixas.Delete
    End If

End Sub