COMO CONFIGURAR UM COMANDO EXCLUIR/DELETAR

RAYANE147 06/07/2014 23:27:42
#439371

BRAZIL SUZANO
Cadast. em:Setembro/2012
Mensagem interna
Olá Boa tarde, Deus Abençoe A Todos!

Bom, indo direto Ao Assunto...
Estou Criando Uma Agenda Pessoal, onde insiro Dados Importantes em Que não Posso Anotar Apenas No Cérebro...Rsrsrsrsrs!

Estão Todos Os Comandos Completos apenas Falta O Botão: Excluir
Simplesmente Não sei o que há de errado, sempre que clico Nele Mostra Algum Erro Em que não Consigo Identificar...


Citação:

Private Sub AgPexcluir_Click()
If MsgBox([Ô]Deseja Mesmo Excluir Este Dado?:[Ô] & vbCrLf & Me.AgPcodigo.Caption & [Ô] - [Ô] & Me.AgPdados, vbYesNo + vbQuestion, [Ô]Excluir registro...[Ô]) = vbYes Then
tabela.Delete
[ô]tabela.re
If tabela.RecordCount > 0 Then
Call Preenche_Campos
Else
AgPcodigo.Caption = 0
MsgBox [Ô]Tabela de Produtos vazia[Ô], vbInformation, [Ô]Info..[Ô]
AgPdata.Enabled = False
AgPdados.Enabled = False
AgPvalor.Enabled = False
AgPcriar.Enabled = False
AgPalterar.Enabled = False
AgPexcluir.Enabled = False
AgPsalvar.Enabled = False
AgPcancelar.Enabled = False
AgPdados.Text = [Ô][Ô]
AgPvalor.Text = [Ô][Ô]
Exit Sub
End If
End Sub


-------------------------------------------------------------------------

Oque á De errado Em Minha configuração?

Grata!

Sejam Abençoados Em Nome De Jesus Cristo!
JABA 07/07/2014 01:35:29
#439372
Está faltando mais um [Ô]End If[Ô] aí.

Tente assim:

Private Sub AgPexcluir_Click()
If MsgBox([Ô]Deseja Mesmo Excluir Este Dado?:[Ô] & vbCrLf & Me.AgPcodigo.Caption & [Ô] - [Ô] & Me.AgPdados, vbYesNo + vbQuestion, [Ô]Excluir registro...[Ô]) = vbYes Then
tabela.Delete
[ô]tabela.re
If tabela.RecordCount > 0 Then
Call Preenche_Campos
Else
AgPcodigo.Caption = 0
MsgBox [Ô]Tabela de Produtos vazia[Ô], vbInformation, [Ô]Info..[Ô]
AgPdata.Enabled = False
AgPdados.Enabled = False
AgPvalor.Enabled = False
AgPcriar.Enabled = False
AgPalterar.Enabled = False
AgPexcluir.Enabled = False
AgPsalvar.Enabled = False
AgPcancelar.Enabled = False
AgPdados.Text = [Ô][Ô]
AgPvalor.Text = [Ô][Ô]
Exit Sub
End If

End If [ô]Verifique se o End If que está faltando entra aqui.

End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar