none
Depois de migrar para o Office 2010, não adiciona os registros da tabela. RRS feed

  • Pergunta

  • Senhores, após migrar para o Access 2010, ao selecionar o registros para
    acrescentar na tabela, isso não ocorre. O form que faria esta função não carrega
    os registros e em seguida congela no form limpar. Verificando com a versão
    anterior, notei que o Microsoft Access 12.0 Object Library, no Access 2010 é o
    14.0.
    Tbm abilitei o Microsoft Access 14.0 Access Databse Engine Object e
    não resolveu.

    Abraços!

    Private Sub Form_Load()
    Dim UltInd As Integer
    Dim I As Integer

    DoCmd.GoToRecord , , acFirst

    While Not IsNull(Etapa) And Etapa <> "" And Índice < 10
        DoCmd.GoToRecord , , acNext
    Wend

    If IsNull(Etapa) Or Etapa = "" Then
        Etapa = Forms![Folha 2].Etapas & "."
        Forms![Folha 2].Etapas = Null

        For I = 0 To Forms![Folha 2].Riscos.ListCount
            If Forms![Folha 2].Riscos.Selected(I) Then
                If IsNull(Risco) Or Risco = "" Then
                    Risco = Forms![Folha 2].Riscos.Column(1, I)
                Else
                    Risco = Risco & ", " & Forms![Folha 2].Riscos.Column(1, I)
                End If
               
                Forms![Folha 2].Riscos.Selected(I) = 0
            End If
        Next I
       
        If Not IsNull(Risco) And Risco <> "" Then Risco = Risco & "."
       
        For I = 0 To Forms![Folha 2].Medidas.ListCount
            If Forms![Folha 2].Medidas.Selected(I) Then
                If IsNull(Risco) Then
                    Medida = Forms![Folha 2].Medidas.Column(1, I) & "."
                Else
                    Medida = Medida & " " & Forms![Folha 2].Medidas.Column(1, I) & "."
                End If
               
                Forms![Folha 2].Medidas.Selected(I) = 0
            End If
        Next I
       
        DoCmd.Close
        Forms![Folha 2].SubERM.Form.Requery
        Forms![Folha 2].SubERM.Form.Conta_Etapas_Criadas.Requery
    Else
        DoCmd.Close
        MsgBox "Não há mais espaço para adicionar etapas de trabalho."
    End If

    End Sub

    terça-feira, 4 de setembro de 2012 09:56