MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Permissoes de Usuarios no Access 2010

    avatar
    Ribeiro Napaua
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 7
    Registrado : 20/06/2015

    Permissoes de Usuarios no Access 2010 Empty Permissoes de Usuarios no Access 2010

    Mensagem  Ribeiro Napaua 23/6/2015, 15:23

    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-Cool) 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

      Data/hora atual: 20/1/2022, 10:07