[Resolvido] Abrir formulário conforme critérios de cada usuário

Tenho um formulário com uma caixa de combinação (ordens de serviço). Gostaria de ao clicar duas vezes em um item na caixa, abrisse um formulário pop-up para editar esse item.
Mas até aí tudo fácil se não fosse pelo detalhe que o usuário precisa ser um sub-coordenador. Esse comando na tabela de funcionários é uma caixinha de opção (check-box).
Se ele não for sub-coordenador que aparecesse a seguinte mensagem de erro: "Você não é sub-coordenador para editar esta OS."
Não tenho experiência com a linguagem VBA.
Obrigado!

Se o campo aonde diz que o cidadão é "sub isso lá que você falou", pode colocar algo assim:

Código:

If Me.NomeDoCampo <> "Sub aquilo lá" Then
    MsgBox "Você não é sub blá blá blá", vbCritical, "Acesso não autorizado"
Else
    Instrução para seguir em frente com o plano maquiavélico
End If

Obrigado. Não deu certo.

Poste toda a função com uma análise do que precisa fazer para vermos melhor.

Formulário de apontamento de horas do usuário: FrmPopCadastroOSIndividual.

Nele possui:

Caixa de opção: subcoordenador (assistente do chefe do setor). Essa caixa é marcada pelo chefe do setor na ficha do usuário fora desse formulário.

Sub-formulário: SubFrmHoraTrabalhada_coi

Que possui:

Campo Número= NumOSCom (número da ordem de serviço)

Ao clicar duas vezes = Abrir formulário pop (FrmPopCadastro_subcoordenador) se o campo Sub-Coordenador estiver marcado como "sim". Se não, mostrar mensagem "Você não é sub-coordenador".

Talvez assim:

If Me.NomeDoCheckBox.Value = 0 Then
...

O checkbox está fora do subformulário, no principal. Como faço a referência a ele?
No subformulário, o usuário lança as horas na OS que ele trabalhou. Detalhes sobre ele está em sua ficha no sistema, com o chefe do setor, como a definição de sub-coordenador (caixa de opção).

Se a referência será feita dentro do sub, pode tentar algo assim:

Parent!NomeDaCheckbox

ou assim:

Forms!NomedoForm!NomeDaCheckBox

Deu não...

Por que não deu? Aparece mensagem de erro? Depura para alguma linha do vba?

Private Sub NumOScom2_DblClick(Cancel As Integer)
If Me.Form!FrmPopCadastroIndividualdeOS!coordenador.Value = 0 Then
MsgBox "Somente sub-coordenadores editam ordens de serviço.", vbCritical, "Acesso não autorizado"
Else
stDocName = "Frm Pop CadastroOS-subcoordenador"
DoCmd.OpenForm stDocName, , , stLinkCriteria

End If
End Sub

Falta um "s" no Me.forms aí.

Erro de compilação: método ou membro de dados não encontrado

Private Sub NumOScom2_DblClick(Cancel As Integer)
If Me.Forms!FrmPopCadastroIndividualdeOS!coordenador.Value = 0 Then
MsgBox "Somente sub-coordenadores editam ordens de serviço.", vbCritical, "Acesso não autorizado"
Else
stDocName = "Frm Pop CadastroOS-subcoordenador"
DoCmd.OpenForm stDocName, , , stLinkCriteria

End If
End Sub

Tire o Me. tambem. O Me indica algo que está no próprio elemento.

Agora a linha toda foi selecionada de amarelo:

Private Sub NumOScom2_DblClick(Cancel As Integer)
If Forms!FrmPopCadastroIndividualdeOS!coordenador.Value = 0 Then
MsgBox "As OS somente são editadas por sub-coordenadores.", vbCritical, "Acesso não autorizado"
Else
stDocName = "Frm Pop CadastroOS-subcoordenador"
DoCmd.OpenForm stDocName, , , stLinkCriteria

End If
End Sub

Dando o meu pitaco:


Private Sub NumOScom2_DblClick(Cancel As Integer)
Dim stDocName As String
If Parent!coordenador = 0 Then

MsgBox "Somente sub-coordenadores editam ordens de serviço.", vbCritical, "Acesso não autorizado"
Else
stDocName = "Frm Pop CadastroOS-subcoordenador" --> Revise o nome desse formulário. Evite espaços em nomes de objetos, pois só trazem problemas.
DoCmd.OpenForm stDocName, , , stLinkCriteria

End If
End Sub

Abraços

Obrigado. Não deu não. O erro foi o mesmo anterior.

Juliano

veja se o nome é esse mesmo: coordenador para a checkbox

Se sabe usar a janela imediata, abra o formulário, vai na janela imediata e digite

? Forms!FrmPopCadastroIndividualdeOS!coordenador

E veja o que acontece, se aparece o valor ou se da erro,
Se der erro, tal algo errado com tua checkbox ou com o nome do formulário.

No aguardo.

Oi, sim, é coordenador.

Apareceu o erro: Erro em tempo de execução 2465. O banco da dados não pode localizar o campo 'coordenador' referido em sua expressão.

Juliano

Você executou o código na janela imediata e deu esse erro?
Tai o problema.
Então verifique no formulário o nome exato do controle, talvez até tenha um espaço no inicio ou final do nome, por isso o Access não encontra o dito cujo.
Se for preciso, delete o controle e faça outro no lugar com o mesmo nome.
Veja também o formulário
Execute o mesmo código na janela imediata e coloque um outro campo, para ver se o problema está no nome do controle ou no nome do formulário.
Aguardo...

Olá, vi sua resposta agora. Na segunda eu retorno com os detalhes.

Olá, sim, eu testei o código na janela imediata com a linha inteira (em vermelho) e deu outro erro: "Erro de compilação. A variável ainda não foi criada neste contexto."
Como vê, o nome do formulário e o campo caixa de opção não possuem espaço.


Private Sub NumOScom2_DblClick(Cancel As Integer)
If Me.Forms!FrmPopCadastroIndividualdeOS!coordenador.Value = 0 Then
MsgBox "Somente sub-coordenadores editam ordens de serviço.", vbCritical, "Acesso não autorizado"
Else
stDocName = "Frm Pop CadastroOS-subcoordenador"
DoCmd.OpenForm stDocName, , , stLinkCriteria

End If
End Sub

Juliano

Certo, acredito que tenha mudado o nome do formulário, não somente no código.
Agora creio que está esquecendo de colocar o
Dim stDocName As String

Eu pedi para você verificar novamente essa linha na janela imediata, colocando o nome de um outro controle do formulário:

? Forms!FrmPopCadastroIndividualdeOS!OutraCaixaDeTexto

Pode me dizer o resultado?

Abraços

Bom dia. Não deu. Como teste, inseri um campo texto que já existe na tabela. Deu o seguinte erro:
"Erro de compilação. Era esperado: Then ou GoTo.

If Me.Forms!FrmPopCadastroIndividualdeOS!sexo

Acho que não tá dando certo mesmo. Vou tentar outras formas.
Obrigado pela força!
Abrs!

Calma Juliano

Se você testou esse código na janela imediata, lógico que vai dar erro:

Coloque assim:

? Forms!FrmPopCadastroIndividualdeOS!sexo

Mas antes deixe o formulário aberto.

Se funcionar, o valor deverá aparecer na janela imediata logo abaixo do código.

Aguardando...

Olá Balem. Depois de muito suor derramado consegui fazer funcionar. Fiz como disse. Fui testando cada linha na janela imediata.
Estou enviando um anexo com o resultado. A primeira figura mostra o usuário não definido como coordenador (assistente do chefe do setor) com a mensagem. Na figura 2 mostra o mesmo usuário quando a caixa "coordenador" está marcada. Essa caixa é oculta (visivel=não) no formulário pop.

Obrigado!

Juliano

Não conseguir ver a imagem, se a aumento,fica desfocada.
Então conseguiu ?
Se sim, então me diga o que estava acontecendo com o coordenador?
Então aproveite o post e clique no botão resolvido.
Abraços

Olá, segue as figuras.
O erro estava na referencia ao formulário e sub-formulário. O usuário clicava duas vezes sobre a OS e vinha o erro de formulário não encontrado.
Agora está ok.
Obrigado!

Segue a próxima figura.
Melhor abrir as figuras em um visualizador para poder usar o zoom. As regras aqui de pixeis são bem apertadas...ehehe.

Que bom que deu certo !!

E você estava quase desistindo

Temos que ser persistentes.

Valeu pelo retorno

Boa sorte!!

Conseguiu visualizar as imagens?

Sim consegui.

Eu tenho o irfanView, as primeiras quando aumentavam o tamanho, ficavam borradas(pixalizadas)

Também uso aqui no trabalho o Irfan View. Muito bom. Em casa uso o ACDSee.