Inquiridor
MEU CODIGO NAO FUNCIONA VBA

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.brterça-feira, 5 de outubro de 2010 17:38Moderador -
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.brquarta-feira, 6 de outubro de 2010 13:19Moderador -
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.brquinta-feira, 7 de outubro de 2010 14:34Moderador -
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