Início
kah182 2/10/2020, 22:50Boa noite!
Tenho um campo em um formulario que traz os dados de uma tabela conforme a SAS que o usuário digita.
Ele está funcionando corretamente, porém preciso tratar caso o usuário digite uma SAS que não existe.
O ideal seria ver que o SELECT não encontra registro e aparecer uma msgbox com a informacao que a SAS não é válida, porém não sei como validar que o SELECT é nulo;
Segue parte do meu código:
Dim StrSQL As String
Dim DB As Database
Dim RS As Recordset
Dim varNP As String
StrSQL = "SELECT * FROM tblSASFinal WHERE tblSASFinal.SAS = " & Me.txtSAS
Set DB = CurrentDb
Set RS = DB.OpenRecordset(StrSQL)
Me.txtStatus = RS("STATUS")
Me.txtOM = RS("OM")
quando o codigo chega no " Me.txtStatus = RS("STATUS")" CASO a SAS seja invalida ele apresenta o erro: No current record
Alguém tem alguma ideia de como tratar essa situação?
Obrigada!
Tenho um campo em um formulario que traz os dados de uma tabela conforme a SAS que o usuário digita.
Ele está funcionando corretamente, porém preciso tratar caso o usuário digite uma SAS que não existe.
O ideal seria ver que o SELECT não encontra registro e aparecer uma msgbox com a informacao que a SAS não é válida, porém não sei como validar que o SELECT é nulo;
Segue parte do meu código:
Dim StrSQL As String
Dim DB As Database
Dim RS As Recordset
Dim varNP As String
StrSQL = "SELECT * FROM tblSASFinal WHERE tblSASFinal.SAS = " & Me.txtSAS
Set DB = CurrentDb
Set RS = DB.OpenRecordset(StrSQL)
Me.txtStatus = RS("STATUS")
Me.txtOM = RS("OM")
quando o codigo chega no " Me.txtStatus = RS("STATUS")" CASO a SAS seja invalida ele apresenta o erro: No current record
Alguém tem alguma ideia de como tratar essa situação?
Obrigada!
