[Resolvido]Front End e Back End

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

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.

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.