locked
MEU CODIGO NAO FUNCIONA VBA RRS feed

  • Pergunta

  • Estou começando a mecher com ACCESS agora, nunca tinah usado antes, criei um formulário (ForInquerito), 2 tabelas (VeiculosPlacas) e (TipoVeiculos), fiz uma COMBOBOX (Tipodeveiculos) que eu pego os dados da coluna da tabela (TipoVeiculos) para exibir os itens da COMBO,

    e fiz um txtbox para o usuario digitar a placa do carro, inseri uma máscara (>L>L>L0000;;_) para a placa,  criei um botão de salvar, para inserir o Tipodeveiculos que o usuario selecionar na combo e a placa do carro na tabela (VeiculosPlacas), que tem as colunas criadas para inserir. meu codigo abaixo.

     

     

    Private Sub Salvar_Click()

    On Error GoTo Err_Salvar_Click

            Dim db As Database

            Dim rst As Recordset

     

            Set db = CurrentDb()

            Set rst = db.OpenRecordset("VeiculosPlacas")

                                 'Useful code here.

            .AddNew

            !Placas = PLACA

            !TipoVeiculo = tipoveiculo

            .Update

     

            rst.Close            'Close what you opened.

     

    Exit_Salvar_Click:

            Set rst = Nothing    'Deassign all objects.

            Set db = Nothing

            Exit Sub

     

    Err_Salvar_Click:

            'Error handler here.

            Resume Exit_MyProc

    End Sub

     

     

     

     

    att.

    Isaac Furieri

    terça-feira, 5 de outubro de 2010 14:21

Todas as Respostas

  • Faltou dizer qual é o problema. Dá erro? Em que linha? Qual erro?

     

    Se estiver trabalhando com tabelas vinculadas, abra o recordset assim:

    Set rst = db.OpenRecordset("VeiculosPlacas", dbOpenDynaset)

     

    Outra coisa: declare as variáveis assim:

     Dim db As DAO.Database

    Dim rst As DAO.Recordset


    Luiz Cláudio Cosenza Vieira da Rocha - http://msmvps.com/blogs/officedev - IT Lab www.itlab.com.br - Access FAQ: www.accessfaq.com.br
    terça-feira, 5 de outubro de 2010 17:38
    Moderador
  • da erro de compilção: o tipo definido pelo usuario não foi definido, ai fica selecionado as declarações. mesmo depois de fazer o que vc falo.

     

    Dim db As DAO.Database

    Dim rst As DAO.Recordset


     

    quarta-feira, 6 de outubro de 2010 12:13
  • No módulo, menu Ferramentas > Referências, selecione Microsoft DAO 3.6.
    Luiz Cláudio Cosenza Vieira da Rocha - http://msmvps.com/blogs/officedev - IT Lab www.itlab.com.br - Access FAQ: www.accessfaq.com.br
    quarta-feira, 6 de outubro de 2010 13:19
    Moderador
  • ja tentei varias veses e não consigo achar essas referências..uso Access 2007

    conseguir achar. vlw

    quinta-feira, 7 de outubro de 2010 11:34
  • o meu addnew não funcionou...podem e ajudar?

    deascobrir que não é meu codigo, a tabela que eu criei não é identificada no VBA,

    quando vc digita uma variavel ou uma tabela no meu caso, VeiculosPlacas.(aki apareceria uma combobox com opções) não aparece. Outras tabelas funcionam mas tmb nao todas.

    quinta-feira, 7 de outubro de 2010 12:10
  • No 2007, se o formato de arquivo é accdb, a referência é Microsoft Office 12.0 Access database Engine.
    Luiz Cláudio Cosenza Vieira da Rocha - http://msmvps.com/blogs/officedev - IT Lab www.itlab.com.br - Access FAQ: www.accessfaq.com.br
    quinta-feira, 7 de outubro de 2010 14:34
    Moderador
  • Tudo funcionando.... agora eu criei um botão para deletar um registro salvo pelo usuario..mas não consegui.. alguma dica?
    sexta-feira, 8 de outubro de 2010 14:58