COMO EXECUTAR UM INSERT COM MODULO

LIFESYSTEMUSER 01/08/2013 08:49:13
#426828
Procurei aqui e não achei nada do tipo. Sou estagiário, estou fazendo uma tela de de visualização e adicionar funcionários, mas tenho que fazer com o padrão da firma que trabalha com modulos.
Fiz mas dá erro no adicionar, vou postar o código das duas camadas:
essa é a camada de conexão com o camando insert
Citação:

Function SelectEstado(ByRef RSEstado As ADODB.Recordset)
Set RSEstado = cn.Execute([Ô]SELECT * FROM est_estados[Ô])
End Function

Function InsertFun(ByRef RSIfun As ADODB.Recordset)
Call RSif(RSIfun)
Set RSIfun = cn.Execute([Ô]Insert into fun_funcionario[Ô] & _
[Ô](fun_nome, fun_endereco, fun_bairro, fun_complemento, fun_municipio, fun_estado,[Ô] & _
[Ô]fun_cep, fun_dataaniversario, fun_ativo, fun_observacao, fun_dataadmissao,[Ô] & _
[Ô] fun_datademissao, fun_cargo ) [Ô] & _
[Ô]Values([Ô] & func_nome & [Ô], [Ô] & func_bairro & [Ô], [Ô] & func_cpl & [Ô],[Ô] & func_cidade & [Ô] ,[Ô] & func_estado & [Ô],[Ô] & func_cep & [Ô],[Ô] & func_aniver & [Ô],[Ô] & func_status & [Ô],[Ô] & func_obs & [Ô],[Ô] & func_cargo & [Ô])[Ô])
End Function



E esse o form
Citação:

Public Function RSif(ByVal RSif As String)
Dim func_nome As String
Dim func_end As String
Dim func_bairro As String
Dim func_cpl As String
Dim func_cidade As String
Dim func_estado As String
Dim func_cep As String
Dim func_aniver As String
Dim func_status As String
Dim func_obs As String
Dim func_adm As String
Dim func_dem As String
Dim func_cargo As String

func_nome = Text1(0).Text
func_end = Text1(1).Text
func_bairro = Text1(2).Text
func_cpl = Text1(3).Text
func_cidade = Text1(4).Text
func_estado = CmbEstado.Text
func_cep = Text1(6).Text
func_aniver = Text1(7).Text

If Cmbstatus = [Ô]Ativo[Ô] Then
func_status = 1
Else
func_status = 0
End If

func_obs = Text1(9).Text
func_adm = Text1(10).Text
func_dem = Text1(11).Text
func_cargo = CmbCargo.Text

End Function
Public Sub CmdConfirmar_Click()
Dim RSinfun As ADODB.Recordset
Call InsertFun(RSinfun)
End Sub



ai da erro de sub or function not defined
se poder me ajudar agradeço
KERPLUNK 01/08/2013 08:55:55
#426831 Resposta escolhida
Em que parte que esse erro aparece?
LIFESYSTEMUSER 01/08/2013 09:14:29
#426835
a linha marcada é a Call RSif(RSIfun)
KERPLUNK 01/08/2013 09:28:08
#426837
Não está faltando nenhum módulo? Esse erro é porque a function/sub [Ô]RSif[Ô] não foi encontrada.
LIFESYSTEMUSER 01/08/2013 09:31:03
#426839
o function function/sub [Ô]RSif[Ô] esta no form, por isso chamei ele para o modulo com o call RSif
KERPLUNK 01/08/2013 09:48:13
#426841
As rotinas do form só são acessíveis quando o form está aberto/instanciado e mesmo assim se deve especifiá-lo:

Call NomeDoForm.NomeDaRotina(parametro1, parametro2)

Geralmente se chamam rotinas do módulo à partir do form e não ao contrário...
LIFESYSTEMUSER 01/08/2013 09:57:28
#426845
Entendi, mas então. Eu fiz ao contrario pq no modulo eu teria que definir os textbox, como chamaria o que está no form para o modulo se não fizer assim?
KERPLUNK 01/08/2013 10:00:06
#426846
Criando no módulo uma rotina que receba uma classe ou cada um dos parâmetros ou todo o form como parâmetro...
LIFESYSTEMUSER 01/08/2013 10:05:36
#426847
pode me dar um exemplo?
KERPLUNK 01/08/2013 10:07:18
#426848 

public sub FuncaoQualquer(Formulario as Form1)
dim xxx as string
xxx = Form1.Text1.Text
end sub


Entendeu?
LIFESYSTEMUSER 01/08/2013 10:11:42
#426849
Entendi, saquei o que quis dizer
Página 1 de 2 [13 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar