[Resolvido]Antes de excluir aparecer o registro

Boa tarde amigos desse fórum!

Este código abaixo, excluir um registro pelo campo "Codigo", porém gostaria que antes de fazer a exclusão, quando apertar neste botão, aparecer a inputbox, digitar o código que vou excluir, após estas rotinas, fazer a busca do registro aparecendo no formulário com a finalidade de conferência de dados da requisição , aí sim dar continuidade na exclusão.


Eis aqui o código para exclusão, e a chave primária é o campo "Codigo".

Desde já fico muito grato pela disponibilidade de vocês.


Private Sub cancelar_requisição()
On Error GoTo Err_Delete
Dim numRecord As Integer
numRecord = InputBox("Informe o número da Requisição:", "Exclusão")
   If MsgBox("Deseja excluir a requisição " & numRecord & "?", vbQuestion + vbYesNo, "Sistema!") = vbYes Then
       Dim SQL As String
       DoCmd.SetWarnings False
       SQL = "DELETE * FROM tabiogurte_atual WHERE Codigo = " & numRecord
       DoCmd.RunSQL SQL
                                   
       MsgBox "Operação realizada com sucesso!", vbInformation, "Exclusão"
          DoCmd.Close
DoCmd.OpenForm "iogurtes"
   Else
   Exit Sub
   End If
Exit_Delete:
Exit Sub

Err_Delete:
   MsgBox "Você cancelou a operação", vbCritical, "Exclusão"

Resume Exit_Delete

End Sub


Grato,

Campos.

Bom dia....

Para fazer aparecer o número que vai ser excluído

numRecord = InputBox("Informe o número da Requisição:", "Exclusão")

dentro de uma caixa de mensagem, você precisa de um módulo.

Eis o código para o módulo:

Código:

Option Compare Database

'////////////////////////////////////////////////////////////////////
'Password masked inputbox
'Allows you to hide characters entered in a VBA Inputbox.
'
'Code written by Daniel Klann
'http://www.danielklann.com/
'March 2003

'// Kindly permitted to be amended
'// Amended by Ivan F Moala
'// http://www.xcelfiles.com
'// April 2003
'// Works for Xl2000+ due the AddressOf Operator
'////////////////////////////////////////////////////////////////////

'******************** CALL FROM FORM *********************************
' Dim pwd As String
'
' pwd = InputBoxDK("Please Enter Password Below!", "Database Administration Security Form.")
'
' 'If no password was entered.
' If pwd = "" Then
' MsgBox "You didn't enter a password! You must enter password to 'enter the Administration Screen!" _
' , vbInformation, "Security Warning"
' End If
'**************************************
' Essa é a mascara para a caixa de senha, não apagar isso


'API functions to be used
Private Declare Function CallNextHookEx _
Lib "user32" ( _
ByVal hHook As Long, _
ByVal ncode As Long, _
ByVal wParam As Long, _
lParam As Any) _
As Long

Private Declare Function GetModuleHandle _
Lib "kernel32" _
Alias "GetModuleHandleA" ( _
ByVal lpModuleName As String) _
As Long

Private Declare Function SetWindowsHookEx _
Lib "user32" _
Alias "SetWindowsHookExA" ( _
ByVal idHook As Long, _
ByVal lpfn As Long, _
ByVal hmod As Long, _
ByVal dwThreadId As Long) _
As Long

Private Declare Function UnhookWindowsHookEx _
Lib "user32" ( _
ByVal hHook As Long) _
As Long

Private Declare Function SendDlgItemMessage _
Lib "user32" Alias "SendDlgItemMessageA" ( _
ByVal hDlg As Long, _
ByVal nIDDlgItem As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
ByVal lParam As Long) _
As Long

Private Declare Function GetClassName _
Lib "user32" _
Alias "GetClassNameA" ( _
ByVal hWnd As Long, _
ByVal lpClassName As String, _
ByVal nMaxCount As Long) _
As Long

Private Declare Function GetCurrentThreadId _
Lib "kernel32" () _
As Long

'Constants to be used in our API functions
Private Const EM_SETPASSWORDCHAR = &HCC
Private Const WH_CBT = 5
Private Const HCBT_ACTIVATE = 5
Private Const HC_ACTION = 0

Private hHook As Long

Public Function NewProc(ByVal lngCode As Long, _
ByVal wParam As Long, _
ByVal lParam As Long) As Long

Dim RetVal
Dim strClassName As String, lngBuffer As Long

If lngCode < HC_ACTION Then
NewProc = CallNextHookEx(hHook, lngCode, wParam, lParam)
Exit Function
End If

strClassName = String$(256, " ")
lngBuffer = 255

If lngCode = HCBT_ACTIVATE Then 'A window has been activated
RetVal = GetClassName(wParam, strClassName, lngBuffer)
If Left$(strClassName, RetVal) = "#32770" Then 'Class name of the Inputbox
'This changes the edit control so that it display the password character *.
'You can change the Asc("*") as you please.
SendDlgItemMessage wParam, &H1324, EM_SETPASSWORDCHAR, Asc("*"), &H0
End If
End If

'This line will ensure that any other hooks that may be in place are
'called correctly.
CallNextHookEx hHook, lngCode, wParam, lParam

End Function

'// Make it public = avail to ALL Modules
'// Lets simulate the VBA Input Function
Public Function InputBoxDK(Prompt As String, Optional Title As String, _
Optional Default As String, _
Optional Xpos As Long, _
Optional Ypos As Long, _
Optional Helpfile As String, _
Optional Context As Long) As String

Dim lngModHwnd As Long, lngThreadID As Long

'// Lets handle any Errors JIC! due to HookProc> App hang!
On Error GoTo ExitProperly
lngThreadID = GetCurrentThreadId
lngModHwnd = GetModuleHandle(vbNullString)

hHook = SetWindowsHookEx(WH_CBT, AddressOf NewProc, lngModHwnd, lngThreadID)
If Xpos Then
InputBoxDK = InputBox(Prompt, Title, Default, Xpos, Ypos, Helpfile, Context)
Else
InputBoxDK = InputBox(Prompt, Title, Default, , , Helpfile, Context)
End If

ExitProperly:
UnhookWindowsHookEx hHook

End Function




Abra a janela de códigos, insira um módulo, copie o que está acima e quando pedir para salvar, dar o nome de: MdlImputbox

Bons estudos a ti.

Ola Silvio, como vai voce.

Entao, na verdade nao e bem isso que estou precisando, nao me expressei bem.

O que preciso e um codigo que ao digitar o numero na inputbox, no botao chamado cancelar requisiçao, o sistema traga o lançamento do respectivo registro solicitado, no formulario de origem, para que eu possa conferir se realmente os dados correspondem ao registro que pretendo excluir. E se possível Silvio, fazer uma validação se realmente existe a requisição solicitada para exclusão, caso não exista, dar uma mensagem " Registro inexistente!"

E para melhor visualização segue o modelo, ok;



Sem mais,

Grato,

Campos

boa tarde,

Veja se serve....

Obrigado

Como vai Roberto,

Desde já agradeço por sua disponibilidade,

Realmente é isso que estou precisando,

Saiba,

Ajudou muito, é uma forma de evitar erros.

fico muito grato pela ajuda, sem se esquecer da força dada pelo Silvio, um abraço a você Silvio.

Abraços,

Fiquem com Deus.,

Campos.

Boa tarde,

De nada Campos2013, sempre que eu poder ajudar... não me custa nada...

Um abraço....