MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

    [Resolvido]Front End e Back End

    dyl2011.programador
    dyl2011.programador
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 525
    Registrado : 08/07/2011

    [Resolvido]Front End e Back End Empty Front End e Back End

    Mensagem  dyl2011.programador 13/10/2011, 12:50

    Bom dia,

    Estou com dois problemas:

    1º) Quando mudo o caminho do Back-End e abro o Front-End ele pede normalmente o caminho do Back, coloco e clico em salvar, só que me aparece a mensagem de que não foi salvo a informção do caminho do back, mas fecho o front e reabro e ele salvou e abre normalmente. O que faço para mudar isso.

    2º) Quando atribuo permissões a um usuário, restrinjo alguns formulários para ele, só que quando clico no menu de formularios e clico num formulário bloquado para aquele usuário, fecha tudo, até o formulário de início e fico sem nenhuma opção de abrir mais nada a não ser fechar o bd e reabrir de novo, o que faço para mudar isso, olhe o codigo que tenho.


    Est é o código do cboMenus.


    Private Sub cboMenus_Click()

    With cboMenus

    Select Case .ListIndex
    Case 0
    DoCmd.OpenForm "frmAtendimento", acNormal
    DoCmd.Close acForm, "frmCadAluno"
    Case 1
    DoCmd.OpenForm "frmEntrevista", acNormal
    DoCmd.Close acForm, "frmCadAluno"
    Case 2
    DoCmd.OpenForm "frmFechamento", acNormal
    DoCmd.Close acForm, "frmCadAluno"
    ' Case 2
    ' DoCmd.OpenForm "frmCadAluno", acNormal
    ' DoCmd.Close acForm, "frmAtendimento"
    Case 3
    DoCmd.OpenForm "frmSitFamiliar", acNormal
    DoCmd.Close acForm, "frmCadAluno"
    Case 4
    DoCmd.OpenForm "frmProntuarioAlunos", acNormal
    DoCmd.Close acForm, "frmCadAluno"
    Case 5
    DoCmd.OpenForm "frmConsultaGeral", acNormal
    DoCmd.Close acForm, "frmCadAluno"
    Case 6
    DoCmd.OpenForm "frmRecados", acNormal
    DoCmd.Close acForm, "frmCadAluno"
    Case 7
    DoCmd.OpenForm "frmDosagemDiaria", acNormal
    DoCmd.Close acForm, "frmCadAluno"
    Case 8
    DoCmd.OpenForm "frmOcorrencias", acNormal
    DoCmd.Close acForm, "frmCadAluno"
    Case 9
    DoCmd.OpenForm "frmConsultaRecados", acNormal
    DoCmd.Close acForm, "frmCadAluno"
    Case 10
    DoCmd.OpenForm "frmAgenda_Entrevista", acNormal
    DoCmd.Close acForm, "frmCadAluno"
    Case 11
    DoCmd.OpenForm "frmAgenda_Ambulatorial", acNormal
    DoCmd.Close acForm, "frmCadAluno"
    Case 12
    DoCmd.OpenForm "frmProntuarioAmbulatorial", acNormal
    DoCmd.Close acForm, "frmCadAluno"
    End Select
    End With
    End Sub



    E este é o código para atribuir permissões ao usuario na combo.



    Private Sub cboMenus_GotFocus()
    booLiberaCbo = Me.AllowEdits
    If booLiberaCbo = False Then Me.AllowEdits = True
    End Sub

    Private Sub cboMenus_LostFocus()
    Me.AllowEdits = booLiberaCbo
    End Sub

    Você pode me ajudar a resolver isso.

    Atenciosamente


    Adilson


    .................................................................................
    "Não há quem saiba tanto que não tenha o que aprender, e não há quem saiba tão pouco que não tenha o que ensinar".

    Blog Com vídeo-aulas grátis: http://moriabereiasolucoes.wordpress.com
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Front End e Back End Empty Re: [Resolvido]Front End e Back End

    Mensagem  criquio 16/10/2011, 03:41

    Como é feito o controle de quem pode ou não realizar determinada tarefa? Uma opção seria ter um campo Cargo na tabela de usuário aonde você diria se o usuário é Admin, Editor, Corretor... por exemplo e carregar a combo de usuários, colocando, no "After Update" dessa combo:

    If Me.NomeDaCombo.Column(2) = "Editor" Then
    O que deve ser bloqueado para editores
    ElseIf Me.NomeDaCombo.Column(2) = "Corretor" Then
    O que deve ser bloqueado para corretores
    Else...


    E na combo de formulário tambem pode carregar os nomes reais dos formulários em uma coluna oculta e usar essa coluna para abrir os formulários:

    If Me.NomeDaCombo.Column(0) = "frmCadAluno" Then
    DoCmd.OpenForm "frmSitFamiliar", acNormal
    DoCmd.Close acForm, Me.NomeDaCombo.Column(0)
    Else
    DoCmd.OpenForm Me.NomeDaCombo.Column(0), acNormal
    DoCmd.Close acForm, "frmCadAluno"
    End If


    Logicamente, sem conhecer a estrutura do bd e o que envolve toda a temática, isso é o máximo que podemos dar em termos de dicas tendo como base as informações até o momento adquiridas.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    dyl2011.programador
    dyl2011.programador
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 525
    Registrado : 08/07/2011

    [Resolvido]Front End e Back End Empty Re: [Resolvido]Front End e Back End

    Mensagem  dyl2011.programador 16/10/2011, 19:25

    Valeu Mestre,

    Pela ajuda, Agradeço muito o seu interesse em me ajudar. Porém já tinha resolvido isso com o Avelino, ele montou uma rotina desconhecida para mim. E solucionou o problema.
    Posto ele para posterior necessidade de outros membros:

    nomeBotao = Split("CmdCadAlunos,CmdContAtendimento,cmdEntrevista,cmdSituaçãoFamiliar,btnDosDiaria,btnOcorrencias,btnBackup,btnConsultaRecados,btnAgendaEntrevista,btnAgendaAmbulatorial,btnPermissoes,btnUsuarios,cmdConsGeral,cmdFechamento,cmdProntuario,btnImagem,btnRecados", ",")

    nomeForm = Split("frmCadAluno,frmAtendimento,frmEntrevista,frmSitFamiliar,frmDosagemDiaria,frmOcorrencias,frmBackup,frmConsultaRecados,frmAgenda_Entrevista,frmAgenda_Ambulatorial,frmPermissoesUsuarios,frmUsuarios,frmConsultaGeral,frmFechamento,frmProntuarioAlunos,frmImgFundo,frmRecados", ",")

    For j = 0 To UBound(nomeForm) - 1

    filtro1 = "objeto = '" & nomeForm(j) & "'"

    filtro1 = "Idfuncao = " & Nz(DLookup("idFuncao", "tblFunçoes", filtro1), 0) & " AND idUsuario =" & CLng(login.id)

    If Nz(DLookup("Bloqueada", "tblPermissoesUsuarios", filtro1), True) = True Or login.id = 0 Then

    Me(nomeBotao(j)).enabled = False

    Else

    Me(nomeBotao(j)).enabled = True

    End If

    Next


    Brigadoooooooooooooooo.

    Graças a DEus neste fórum tem pessoas como você, interessadas em ajudar.

    Brigadoooooooooooooooooooo


    Adilson.


    .................................................................................
    "Não há quem saiba tanto que não tenha o que aprender, e não há quem saiba tão pouco que não tenha o que ensinar".

    Blog Com vídeo-aulas grátis: http://moriabereiasolucoes.wordpress.com

    Conteúdo patrocinado


    [Resolvido]Front End e Back End Empty Re: [Resolvido]Front End e Back End

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 16:54