Form_FRM_Alteracao_1_0GE

Option Compare Database

Private Sub Form_Load()
'Verifica o nível de acesso do usuário
TpAcesso = VerificaAcesso()
If TpAcesso = "OcultaTudo" Or TpAcesso = "CETES - Consulta" Or _
        TpAcesso = "GEOCE" Or _
        TpAcesso = "GILOG - Pagamentos" Then
    DoCmd.Close
    Exit Sub
End If
'Permite alterar e incluir registros
'(deveria ser automático, mas por algum motivo aleatório não permite
'em alguns casos)
Me.AllowAdditions = True
Me.AllowEdits = True

Call Ajuda("Oculta")
Call Botoes("Exibe")
End Sub

Private Sub lstEGTTV_Click()
'Ao selecionar um Grupo EGTTV, encontra o registro dele

Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim txtSQL As String
Set db = CurrentDb

txtSQL = "SELECT TBL_EGTTVGrupos.CodGrupoEGTTV,TBL_EGTTVGrupos.GrupoEGTTV FROM TBL_EGTTVGrupos ORDER BY TBL_EGTTVGrupos.GrupoEGTTV;"
Set rst = db.OpenRecordset(txtSQL, dbOpenDynaset, dbFailOnError + dbSeeChanges)

rst.MoveFirst
LinhaForm = 1

Do While Not rst.EOF
    If CStr(rst.Fields("CodGrupoEGTTV").Value) = CStr(Me.lstEGTTV) Then Exit Do
    LinhaForm = LinhaForm + 1
    rst.MoveNext
Loop

rst.Close
db.Close

DoCmd.GoToRecord acDataForm, "FRM_Alteracao_1_0GE", acGoTo, LinhaForm
End Sub

Private Sub QuestionMark_Click() 'Se oculto, exibe os campos de Ajuda e vice-versa
If Me.LinhaHelp1.Visible = False Then
    Call Ajuda("Exibe")
Else
    Call Ajuda("Oculta")
End If
End Sub

Private Sub Ajuda(OQueFazer As String)
Dim VF As Boolean
If OQueFazer = "Exibe" Then VF = True
If OQueFazer = "Oculta" Then VF = False

'Linhas e quadros de ajuda que vão aparecer ou ocultar
Me.LinhaHelp1.Visible = VF
Me.LinhaHelp2.Visible = VF
Me.LinhaHelp3.Visible = VF
Me.LinhaHelp4.Visible = VF
Me.LinhaHelp5.Visible = VF
Me.LinhaHelp6.Visible = VF
Me.LinhaHelp7.Visible = VF
Me.LinhaHelp8.Visible = VF
Me.LinhaHelp9.Visible = VF
Me.LinhaHelp10.Visible = VF
Me.LinhaHelp11.Visible = VF
Me.Help1.Visible = VF
Me.Help2.Visible = VF
Me.Help3.Visible = VF
Me.Help4.Visible = VF
Me.Help5.Visible = VF
Me.Help6.Visible = VF
Me.Help7.Visible = VF
Me.Help8.Visible = VF
Me.Help9.Visible = VF
Me.Help10.Visible = VF
End Sub

Private Sub Botoes(OQueFazer As String)
Dim VF As Boolean
If OQueFazer = "Exibe" Then VF = True
If OQueFazer = "Oculta" Then VF = False

'Linhas e quadros de ajuda que vão aparecer ou ocultar
Me.Comando6.Visible = VF
Me.BOTAO_Excluir_Registro_FRM_Unidades.Visible = VF
Me.Comando7.Visible = VF
Me.BOTAO_Salvar_Registro_FRM_Unidades.Visible = VF
Me.BOTAO_Ir_Para_Primeira_FRM_Unidades.Visible = VF
Me.BOTAO_Ir_para_registro_anterior_FRM_Unidades.Visible = VF
Me.BOTAO_Ir_para_proximo_registro_FRM_Unidades.Visible = VF
Me.BOTAO_Ir_para_ultimo_registro_FRM_Unidades.Visible = VF
End Sub