none
Access 2013 - Formulário fica em branco após um Form.Requery RRS feed

  • Pergunta

  • Olá. Estou trabalhando duro em alguns bancos de dados Access, andei tendo muitas dúvidas mas fui resolvendo aos poucos.

    O problema agora é: Em meu formulário, existe uma combobox que na função "Ao Alterar", ele faz um Form.Requery para puxar algumas informações de uma consulta relacionada ao formulário para outros campos ainda no mesmo formulário.

    O grande problema é que quando eu seleciono um dado nesta combobox que foi inserido diretamente na tabela, ele me traz as informações normalmente. Mas se eu seleciono um dado que foi inserido pelo formulário, o formulário fica em branco, como se eu tivesse configurado para todos os campos, botões e rótulos ficarem com .Visible = False.

    Segue os comandos do Insert:

    "

    Private Sub btnSalvar_Click()

    On Error GoTo Erro

    Dim blSalvo As Boolean

    Dim strRackNome As String

    strRackNome = Me.Planta.Value & "-" & Me.Predio.Value & "-" & Me.Sala.Value & "-" & Me.NRack.Value

    Dim strComando As String

    If blNovo = True Then

        strComando = "INSERT INTO TB_RACK Values ('" & Me.Planta.Value & "', '" & Me.Predio.Value & "', '" & Me.Sala.Value & "', '" & Me.NRack.Value & "', '" & strRackNome & "', '" & Me.Inventario2.Value & "', " & Me.QtdU2.Value & ", '')"

        CurrentDb.Execute strComando
       
        Me.Inventario2.Enabled = False
        Me.QtdU2.Enabled = False
       
        MsgBox "Dados salvos com sucesso!", vbOKOnly + vbInformation
       
        blSalvo = True
       
        Me.cmbNRack.Value = Me.NRack.Value
        Me.cmbNRack.Visible = True
        Me.NRack.Visible = False

    End If

    Exit Sub

    Erro:
    MsgBox "Houve um erro ao salvar, verifique os campos e tente novamente.", vbInformation

    End Sub

    "

    Segue comandos da combobox:

    "

    Private Sub cmbNRack_Change()

    Me.btnAtualizar.Visible = True
    Me.lblAtualizar.Visible = True

    Me.btnExcluir.Visible = True
    Me.lblExcluir.Visible = True

    Form.Requery

    End Sub

    "

    Na TB_RACK, todos os campos são alfanuméricos, com exceção do dado vindo do campo "QtdU2" que é numérico.

    Alguém poderia me ajuda?

    sexta-feira, 12 de agosto de 2016 16:45

Respostas

  • Erro de relacionamento de tabela...

    Removi todos os relacionamentos físicos das tabelas (chaves estrangeiras) e funcionou.

    Eu estava tentando trazer um dado que não tinha um dado para relacionar com uma outra tabela, então ele não aparecia.

    • Marcado como Resposta Lucas DC terça-feira, 27 de setembro de 2016 11:18
    terça-feira, 27 de setembro de 2016 11:18