Erro na inclusão

[vallfon]

Vou melhorar meu pedido:
Ensinem-me a incluir TextBox, ComboBox, etc. sem erro.
Muito agradecido!!!
Eis aqui a planilha modificada.
Por favor me tirem da ignorância!

ModeloCadastroAccess3.rar

(52.96 KiB) Baixado 249 vezes

Olá pessoal!
Sou iniciante no VBA. Gostei muito da Modelo de Cadastro com Access. Tentei modificá-lo incluindo uma TextBox e incluindo as sentenças relativas a ela nos códigos. Todavia, quando tento executar recebo a seguinte resposta do sistema "Erro em tempo de execução '-2147352571 (80020005)' Não é possível definir a propriedade Value. Tipo não correspondente." Estou cometendo um erro primário! Ajudem-me por favor!
As sentenças que incluí foram as seguintes:

Código do frmCadastro

Sub Incluir_Registro()
sql = "INSERT INTO Fornecedores(Empresa, Contato, Cargo, Endereço, Cidade, Regiao, Cep, País, Telefone, Fax, HomePage, t1)"
sql = sql & ", '" & Me.TextBox1 & "'"

Sub Alterar_Registro()
sql = sql & ", t1 = '" & Me.TextBox1 & "'"

Sub CarregaRegistros()
Me.TextBox1.Value = .Fields(12)

Private Sub btnAnterior_Click()
sql = "SELECT codigo, empresa, contato, cargo, Endereço, Cidade, regiao, CEP, País, Telefone, Fax, HomePage, t1 FROM Fornecedores "

Private Sub btnPrimeiro_Click()
sql = "SELECT codigo, empresa, contato, cargo, Endereço, Cidade, regiao, CEP, País, Telefone, Fax, HomePage, t1 FROM Fornecedores "

Private Sub btnProximo_Click()
sql = "SELECT codigo, empresa, contato, cargo, Endereço, Cidade, regiao, CEP, País, Telefone, Fax, HomePage, t1 FROM Fornecedores "

Private Sub btnUltimo_Click()
sql = "SELECT codigo, empresa, contato, cargo, Endereço, Cidade, regiao, CEP, País, Telefone, Fax, HomePage, t1 FROM Fornecedores "

Private Sub UserForm_Initialize()
sql = "SELECT codigo, empresa, contato, cargo, Endereço, Cidade, regiao, CEP, País, Telefone, Fax, HomePage, t1 FROM Fornecedores "


Private Sub LimpaControles()
Me.TextBox1.Text = ""


Private Sub HabilitaControles()
Me.TextBox1.Locked = False
Me.TextBox1.BackColor = corEnabledTextBox
Private Sub DesabilitaControles()
Me.TextBox1.Locked = True
Me.TextBox1.BackColor = corDisabledTextBox



Código do frmPesquisa


Private Sub lstv_Dblclick()
With frmCadastro
.sql = "SELECT codigo, empresa, contato, cargo, Endereço, Cidade, regiao, CEP, País, Telefone, Fax, HomePage, t1 FROM Fornecedores "

Private Sub txtPesquisa_Change()
With Me.lstv
.ListItems.Clear
sql = "SELECT codigo, empresa, contato, cargo, Endereço, Cidade, regiao, CEP, País, Telefone, Fax, HomePage, t1 FROM Fornecedores "
.ListItems(1).ListSubItems.Add 11, , banco(11)


Private Sub UserForm_Initialize()
With cboPesquisarPor
.AddItem "t1"


With Me.lstv
.ColumnHeaders.Add Text:="t1", Width:=100


Incluí uma coluna no Access com o nome t1

ModeloCadastroAccess3.rar

(52.96 KiB) Baixado 249 vezes

ModeloCadastroAccess3.rar

(52.96 KiB) Baixado 249 vezes