MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    Insert into para campos verdadeiros

    Compartilhe
    avatar
    claudior9
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 15/07/2015

    Insert into para campos verdadeiros

    Mensagem  claudior9 em Seg 09 Nov 2015, 11:50

    Ola Pessoal, estou com uma dúvida e não estou conseguindo resolver, alguém pode me ajudar?

    fiz uma instrução de Inserto into como abaixo

    Public Sub RECORD()
    Dim QDF As QueryDef
    Dim SQ As String

    SQ = " INSERT INTO tblPGroup (groupCode, changedcountryCode)"
    SQ = SQ & " SELECT '" & Me.groupCode& "' AS groupCode, '" & Me.changedcountryCode& "' AS changedcountryCode"
    Set QDF = CurrentDb.CreateQueryDef("", SQ)

    QDF.Execute
    QDF.Close
    Set QDF = Nothing
    End Sub

    Lembrando que os campos do meu form são iguais aos campos da tabela, porém para os casos de que tenho texto, número tudo funciona certinho, e o campo changedcountryCode é Verdadeiro/Falso, e ele não marca na tabela se estiver verdadeiro.

    Alguém sabe o que pode ter acontecido?

    Poderiam me ajudar?


    Abços
    avatar
    Cláudio Más
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1132
    Registrado : 21/01/2012

    Re: Insert into para campos verdadeiros

    Mensagem  Cláudio Más em Ter 10 Nov 2015, 13:25

    No meu teste funcionou, com algumas alterações na instrução:

    SQ = SQ & " SELECT '" & Me.groupCode & "' AS groupCode, " & Me.changedcountryCode & " AS changedcountryCode"

    E tem a alternativa:

    SQ = SQ & " Values ('" & Me.groupCode & "', " & Me.changedcountryCode & ")"

      Data/hora atual: Sex 24 Mar 2017, 00:00