Início
![[Resolvido]Modulo gerando erro em tempo de execução erro nº 13 - Tipos incompatíveis Empty](https://2img.net/i/empty.gif)
trcalgaro 30/10/2012, 14:28Ola pessoal
Bom estar de volta, depois de um tempo longe do access estamos de volta a ativa, e como sempre gerando duvidas.
pessoal é o seguinte, para diminuir o numero de códigos nos formulários criei um modulo com variáveis. Essas variáveis serão coletadas em um formulário e transferidas para uma instrução Sql que irá inserir dados os ddos coletados no formulário e os inserir em uma tabela específica. O problema é que o modulo esta gerando erro, e não consigo identificar a solução.
Função no Modulo:
Destrinchando as variáveis
Public Function redefis(municipio_ As ComboBox[combo com valor numérico], cpf_ As ComboBox[combo com valor numérico], incra_ As ComboBox[combo com valor numérico], codigo_redefis_ As String[aqui preciso inserir um valor manualmente, tipo "1235"], decricao_redefis_ As String[aqui preciso inserir um valor manualmente, tipo "Descrição do Código"], quantidade_ As ComboBox[combo com valor numérico], data_ As ComboBox[combo com data no formato 00/00/0000])
É bem provavel que eu esteja errando no tipo de cada uma das variaveis, alguem pode me dar uma luz?
Desde ja agradeço
Bom estar de volta, depois de um tempo longe do access estamos de volta a ativa, e como sempre gerando duvidas.
pessoal é o seguinte, para diminuir o numero de códigos nos formulários criei um modulo com variáveis. Essas variáveis serão coletadas em um formulário e transferidas para uma instrução Sql que irá inserir dados os ddos coletados no formulário e os inserir em uma tabela específica. O problema é que o modulo esta gerando erro, e não consigo identificar a solução.
Função no Modulo:
- Código:
Public Function redefis(municipio_ As ComboBox, cpf_ As ComboBox, incra_ As ComboBox, codigo_redefis_ As String, decricao_redefis_ As String, quantidade_ As ComboBox, data_ As ComboBox)
CurrentDb.Execute " INSERT INTO redefis " _
& "(municipio, cpf_cnpj, incra, codigo_redefis, descricao_redefis, quantidade, data) VALUES " _
& "( " & municipio & ", " & cpf_ & ", " & incra_ & ", " & codigo_redefis_ & ", " & "' & descricao_redefis_ & '" & ", " & quantidade_ & ", " & data_ & ");"
End Function
Destrinchando as variáveis
Public Function redefis(municipio_ As ComboBox[combo com valor numérico], cpf_ As ComboBox[combo com valor numérico], incra_ As ComboBox[combo com valor numérico], codigo_redefis_ As String[aqui preciso inserir um valor manualmente, tipo "1235"], decricao_redefis_ As String[aqui preciso inserir um valor manualmente, tipo "Descrição do Código"], quantidade_ As ComboBox[combo com valor numérico], data_ As ComboBox[combo com data no formato 00/00/0000])
É bem provavel que eu esteja errando no tipo de cada uma das variaveis, alguem pode me dar uma luz?
Desde ja agradeço
