BOA TARDE PESSOAL
Foi possível resolver o meu problema do login, mas agora o problema de relacionamentos permanece.
1. Como faço para que num dia por exemplo, digitando uma hora e esse registo esteja ao mesmo tempo em muitas tabelas ou formulários duma mesma base de dados?
2. Alguém pode postar para mim o código DO VBA que faz conexão entre um formulário e sua tabela para que ao digitar nos espacos do formulario os registos entre directamente na tabela correspondente (CADASTRO)?
Este codigo para mim nao funciona, diz que o comando banco.execute (comando) há erro:
Option Compare Database
Private Sub CmdCadastrar_Click()
comando = "insert into Modelo 104/P(HORA,Termometro Adjunto,Barometro,Tabela A,Pressão a 0,Tabela B,Pressao nmm,Característica,Valor da Característica,QFE (mb),QNH (mb),Termómetro Seco,Termómetro Molhado,Diferença (T-Tw)) values (" & TxtHORA & "," & TxtTermometroAdj & "," & TxtBarometro & "," & TxtTabelaA & "," & TxtPressao0 & "," & TxtTabelaB & "," & TxtPressaonmm & "," & TxtCaracteristica & "," & TxtValorCaract & "," & TxtQFE & "," & TxtQNH & "," & TxtTermSeco & "," & TxtTermMolhado & "," & TxtDiferenca & ")"
comando = "insert into Modelo 104/P(Humidade Relativa,Ponto de Orvalho,Direcção do Vento,Velocidade do Vento (Km),Velocidade do Vento (KT),Visibilidade Horizontal (Km),Tempo Presente (www),Tempo Passado (WW),Total de Nebulosidade (0-) values (" & TxtHumidade & "," & TxtOrvalho & "," & TxtDireccaoVento & "," & TxtVelocidadeVentoKm & "," & TxtVelocidadeVentoKT & "," & TxtVisibilidade & "," & TxtTempoPresente & "," & TxtTempoPassado & "," & TxtNebulosidade & ")"
comando = "insert into Modelo 104/P(Nh,CL,h,CM,CH,Quantidade 1,Género 1,Altura 1 (m),Quantidade 2,Género 2,Altura 2 (m),Quantidade 3,Género 3,Altura 3 (m),Quantidade 4,Género 4,Altura 4 (m),Quantidade do Cb,Género do Cb,Altura do Cb (m),OBSERVAÇÕES) values (" & TxtNh & "," & Txth & "," & TxtCm & "," & TxtCh & "," & TxtQty1 & "," & TxtGenero1 & "," & TxtAltura1 & "," & TxtQty2 & "," & TxtGenero2 & "," & TxtAltura2 & "," & TxtQty3 & "," & TxtGenero3 & "," & TxtAltura3 & "," & TxtQty4 & "," & TxtGenero4 & "," & TxtAltura4 & "," & TxtQtyCb & "," & TxtGeneroCb & "," & TxtAlturaCb & ",'" & TxtObservacoes & "')"
banco.Execute (comando)
End Sub
Private Sub Form_Load()
conecta
End Sub
Foi possível resolver o meu problema do login, mas agora o problema de relacionamentos permanece.
1. Como faço para que num dia por exemplo, digitando uma hora e esse registo esteja ao mesmo tempo em muitas tabelas ou formulários duma mesma base de dados?
2. Alguém pode postar para mim o código DO VBA que faz conexão entre um formulário e sua tabela para que ao digitar nos espacos do formulario os registos entre directamente na tabela correspondente (CADASTRO)?
Este codigo para mim nao funciona, diz que o comando banco.execute (comando) há erro:
Option Compare Database
Private Sub CmdCadastrar_Click()
comando = "insert into Modelo 104/P(HORA,Termometro Adjunto,Barometro,Tabela A,Pressão a 0,Tabela B,Pressao nmm,Característica,Valor da Característica,QFE (mb),QNH (mb),Termómetro Seco,Termómetro Molhado,Diferença (T-Tw)) values (" & TxtHORA & "," & TxtTermometroAdj & "," & TxtBarometro & "," & TxtTabelaA & "," & TxtPressao0 & "," & TxtTabelaB & "," & TxtPressaonmm & "," & TxtCaracteristica & "," & TxtValorCaract & "," & TxtQFE & "," & TxtQNH & "," & TxtTermSeco & "," & TxtTermMolhado & "," & TxtDiferenca & ")"
comando = "insert into Modelo 104/P(Humidade Relativa,Ponto de Orvalho,Direcção do Vento,Velocidade do Vento (Km),Velocidade do Vento (KT),Visibilidade Horizontal (Km),Tempo Presente (www),Tempo Passado (WW),Total de Nebulosidade (0-) values (" & TxtHumidade & "," & TxtOrvalho & "," & TxtDireccaoVento & "," & TxtVelocidadeVentoKm & "," & TxtVelocidadeVentoKT & "," & TxtVisibilidade & "," & TxtTempoPresente & "," & TxtTempoPassado & "," & TxtNebulosidade & ")"
comando = "insert into Modelo 104/P(Nh,CL,h,CM,CH,Quantidade 1,Género 1,Altura 1 (m),Quantidade 2,Género 2,Altura 2 (m),Quantidade 3,Género 3,Altura 3 (m),Quantidade 4,Género 4,Altura 4 (m),Quantidade do Cb,Género do Cb,Altura do Cb (m),OBSERVAÇÕES) values (" & TxtNh & "," & Txth & "," & TxtCm & "," & TxtCh & "," & TxtQty1 & "," & TxtGenero1 & "," & TxtAltura1 & "," & TxtQty2 & "," & TxtGenero2 & "," & TxtAltura2 & "," & TxtQty3 & "," & TxtGenero3 & "," & TxtAltura3 & "," & TxtQty4 & "," & TxtGenero4 & "," & TxtAltura4 & "," & TxtQtyCb & "," & TxtGeneroCb & "," & TxtAlturaCb & ",'" & TxtObservacoes & "')"
banco.Execute (comando)
End Sub
Private Sub Form_Load()
conecta
End Sub