[Resolvido]Abrir formulário a partir de critérios via código

Boa tarde. Preciso criar uma mensagem para uma ordem de serviço que já foi finalizada ao abrir o formulário de faturamento. Esse formulário só pode ser aberto se a OS não esteja finalizada. Ele deverá abrir já com a OS sendo exibida.
Estou usando esse código mas não quer dar certo:

cbStatus é a caixa de combinação onde tem a palavra "finalizada".

Private Sub Comando529_Click()
On Error GoTo Err_Comando529_Click

If Me.cbStatus = "finalizada" Then
msgbox "Esta OS está finalizada. Reabra para inserir o faturamento.", vbExclamation, "Aviso OS Finalizada"
Cancel = True

Else
Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "Frm Pop Faturamento"

stLinkCriteria = "[NumOScom]=" & Me![NumOScom]
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Comando529_Click:
Exit Sub

Err_Comando529_Click:
Resume Exit_Comando529_Click

End If
End Sub

Boa tarde Juliano...

Em qual linha esta dando erro ? Precisamos de mais informações.

Abraços.

Silvio

Olá Juliano, fiz algumas alterações, espero que possa ter ajudado.

Private Sub Comando529_Click()
On Error GoTo Err_Comando529_Click

If Me.cbStatus = "finalizada" Then
msgbox "Esta OS está finalizada. Reabra para inserir o faturamento.", vbExclamation, "Aviso OS Finalizada"
Cancel = True
exit sub '**** Posso estar falando bobagem mas alguns de meus códigos funcionaram melhor sem o else.
end if
Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "Frm Pop Faturamento"

stLinkCriteria = "NumOScom =" & Me.NumOScom '****> tente retirar os colchetes do seu critério
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Comando529_Click:
Exit Sub

Err_Comando529_Click:
Resume Exit_Comando529_Click

End Sub

Juliano;

Repare que o evento ao pressionar de um botão, não tem o (Cancel As Integer), por isso não deve utilizar o Cancel=True

Teste assim e leia os comentários no código;


Private Sub Comando529_Click()
Dim stDocName As String
Dim stLinkCriteria As String

On Error GoTo Err_Comando529_Click

If Me.cbStatus.Value = "finalizada" Then
'mude para a coluna que tem o texto, se não for lista de valores
'If Me.cbStatus.Column(1) = "finalizada" Then

MsgBox "Esta OS está finalizada. Reabra para inserir o faturamento.", vbExclamation, "Aviso OS Finalizada"
DoCmd.CancelEvent 'cancela a ação
Exit Sub 'pára a validação

Else

stDocName = "Frm Pop Faturamento"

stLinkCriteria = "[NumOScom]=" & Me![NumOScom]
DoCmd.OpenForm stDocName, , , stLinkCriteria

End If

Exit_Comando529_Click:
Exit Sub

Err_Comando529_Click:
Resume Exit_Comando529_Click
End Sub

Boa tarde.
Silvio - Não tem linha dando erro. Ele não é mostrado. O botão simplesmente não funciona. Achei que era no inicio do código porque o resto dele de abrir o pop já na OS do cadastro funciona sem problemas.

Flav e JPaulo - Obrigado pelas dicas. Vou dar uma analisada e retorno em seguida.

Obrigado

Fiz os testes aqui.

Flav, a mensagem de OS finalizada não apareceu e também não apareceu nenhuma mensagem de erro. O pop Faturamento abriu na OS certinho mesmo tirando os colchetes como disse.

JPaulo, sua dica deu certo. A caixa de combinação não possui mais de uma coluna, é só texto, e por isso mantive a coluna 1 como colocou no código. Talvez seja este detalhe que faltava.

Obrigado a todos e até o próximo abacaxi.

Obrigado pelo retorno o fórum agradece.

Desta vez eu coloco o Resolvido.

Ok, obrigado!

Posso aproveitar esse tópico e só acrescentar mais uma dúvida?

E se fossem dois critérios na pesquisa, como ficar a linha do:

stLinkCriteria = "[NumOScom]=" & Me![NumOScom]

Grato,

Fernando

'Se ambos forem Texto
stLinkCriteria = "([NumOScom]=""'" & Me![NumOScom] & "'"") AND ([OutroCampo] = ""'" & Me![OutroCampo] & "'"")"

'Se ambos forem Numericos
stLinkCriteria = "([NumOScom]=""" & Me![NumOScom] & """) AND ([OutroCampo] = """ & Me![OutroCampo] & """)"

A diferença está nas aspas simples;