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

    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, 09: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

    Cláudio Más
    Developer
    Developer

    Respeito às Regras 100%

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

    Re: Insert into para campos verdadeiros

    Mensagem  Cláudio Más em Ter 10 Nov 2015, 11: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: Qui 08 Dez 2016, 12:02