Hola a todos,
Tengo este codigo en un boton para buscar X numero de PO:
Private Sub SearchAcct_Click()
On Error GoTo Err_SearchAcct_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "PO"
stLinkCriteria = "[PONumero]=" & "'" & Me![Acc] & "'"
DoCmd.Close acForm, "Por_PO", acSaveNo
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_SearchAcct_Click:
Exit Sub
Err_SearchAcct_Click:
MsgBox Err.Description
Resume Exit_SearchAcct_Click
End Sub
El problema que tengo es que cuando no exite el PONumero en la basa de datos, me muestra cualquiera.
Quisiera de su ayuda para agregar los codigos que me perimitan una MsgBox con mensaje de record no exite y al pulsar OK regrese a la misma forma.
Muchas Gracias de antemano a todos.
Alex
