Bom Dia Pessoal, tudo bom?
Sei que é uma dúvida simples, mas não consigo entender o porque do código de DELETE não funciona...
O meu problema é na opção 1, quando eu tenho que digitar uma data para excluir o registro. Alguém pode me ajudar?
Segue o código:
Dim db As Database, x As String
On Error GoTo errado:
If MsgBox("Deseja excluir dados da base de dados", 36, "Atenção") = vbYes Then
x = InputBox("Digite o tipo de exclusão :" & Chr(13) & Chr(13) & "1 - Para determinado periodo" & Chr(13) & Chr(13) & "2 - Para todo Banco de Dados", "Atenção")
If x = 1 Then
VTeste = InputBox("Entre com o periodo a ser excluido (ex.12FE)", "Atenção")
DoCmd.SetWarnings False
If Len(VTeste) <> 0 Then
DoCmd.RunSQL "Delete FROM tbBJ09 WHERE Periodo = " & VTeste" DoCmd.SetWarnings True
Refresh_form
MsgBox "Excluido com sucesso", vbInformation, "Atenção"
End If
ElseIf x = 2 Then
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE * from tbBJ09"
DoCmd.SetWarnings True
Refresh_form
MsgBox "Todos os dados foram excluidos com sucesso", vbInformation, "Atenção"
Else
MsgBox "Tipo de opção incorreta", vbInformation, "Atenção"
End If
End If
Exit Sub
errado:
End Sub
Sei que é uma dúvida simples, mas não consigo entender o porque do código de DELETE não funciona...
O meu problema é na opção 1, quando eu tenho que digitar uma data para excluir o registro. Alguém pode me ajudar?
Segue o código:
Dim db As Database, x As String
On Error GoTo errado:
If MsgBox("Deseja excluir dados da base de dados", 36, "Atenção") = vbYes Then
x = InputBox("Digite o tipo de exclusão :" & Chr(13) & Chr(13) & "1 - Para determinado periodo" & Chr(13) & Chr(13) & "2 - Para todo Banco de Dados", "Atenção")
If x = 1 Then
VTeste = InputBox("Entre com o periodo a ser excluido (ex.12FE)", "Atenção")
DoCmd.SetWarnings False
If Len(VTeste) <> 0 Then
DoCmd.RunSQL "Delete FROM tbBJ09 WHERE Periodo = " & VTeste" DoCmd.SetWarnings True
Refresh_form
MsgBox "Excluido com sucesso", vbInformation, "Atenção"
End If
ElseIf x = 2 Then
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE * from tbBJ09"
DoCmd.SetWarnings True
Refresh_form
MsgBox "Todos os dados foram excluidos com sucesso", vbInformation, "Atenção"
Else
MsgBox "Tipo de opção incorreta", vbInformation, "Atenção"
End If
End If
Exit Sub
errado:
End Sub