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


    [Resolvido]É possivel fazer upgrade

    avatar
    AzorKiller
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 70
    Registrado : 27/09/2013

    [Resolvido]É possivel fazer upgrade Empty [Resolvido]É possivel fazer upgrade

    Mensagem  AzorKiller 15/3/2014, 15:19

    Pessoal gostava de saber se é possível fazer upgrade de uma base de dados feito em 2007 para o Office 2013?
    avatar
    AzorKiller
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 70
    Registrado : 27/09/2013

    [Resolvido]É possivel fazer upgrade Empty Re: [Resolvido]É possivel fazer upgrade

    Mensagem  AzorKiller 15/3/2014, 16:06

    Consegui abrir a base de dados em 2013 mas tirei o login porque não reconhecia esse parâmetro MyEmpID = Me.cboEmployee.Value alguem sabe porque?

    o c+odigo que tinha no botão era esse:

    Código:
    'Check to see if data is entered into the UserName combo box

        If IsNull(Me.cboEmployee) Or Me.cboEmployee = "" Then
                MsgBox "You must enter a User Name.", vbOKOnly, "Required Data"
                Me.cboEmployee.SetFocus
            Exit Sub
        End If

    'Check to see if data is entered into the password box

        If IsNull(Me.txtPassword) Or Me.txtPassword = "" Then
                MsgBox "You must enter a Password.", vbOKOnly, "Required Data"
                Me.txtPassword.SetFocus
            Exit Sub
        End If

    'Check value of password in tblEmployees to see if this matches value chosen in combo box

        If Me.txtPassword.Value = DLookup("Password", "Logon", "[Código]=" & Me.cboEmployee.Value) Then

            MyEmpID = Me.cboEmployee.Value

    'Close logon form and open splash screen
          'MsgBox DoCmd.RunSQL "insert into [Equipamentos em arrecadação] ([Verificado(a)]) values('" & Me.cboEmployee.Column(1) & "')"'
          'DoCmd.RunSQL "insert into Equipamentos em arrecadação ([Verificado (a)]) values('" & Me.cboEmployee.Column(1) & "')"
            n1 = Me.cboEmployee.Column(1)
            DoCmd.Close acForm, "Login", acSaveNo
            DoCmd.OpenForm "Principal"
            'MsgBox n1
           

            Else
            MsgBox "Password Invalid.  Please Try Again", vbCritical + vbOKOnly, "Invalid Entry!"
            Me.txtPassword.SetFocus
        End If
       
    'If User Enters incorrect password 3 times database will shutdown
       
        intLogonAttempts = intLogonAttempts + 1
        If intLogonAttempts > 3 Then
            MsgBox "You do not have access to this database.  Please contact your system administrator.", vbCritical, "Restricted Access!"
            Application.Quit
        End If
    End Sub
    avatar
    AzorKiller
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 70
    Registrado : 27/09/2013

    [Resolvido]É possivel fazer upgrade Empty Re: [Resolvido]É possivel fazer upgrade

    Mensagem  AzorKiller 17/3/2014, 20:55

    Resolvido!

    Conteúdo patrocinado


    [Resolvido]É possivel fazer upgrade Empty Re: [Resolvido]É possivel fazer upgrade

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 2/5/2024, 03:55