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
