Como abrir uma consulta via codigo

tenho uma consulta como que eu abro ela via codigo?

Olá! Já tentou com um DoCmd.OpenQuery "NomeDaConsulta"?

Criquio to usando esse codigo mas eu quero transferir so os servicos da ordem de servico, onde ta de azul e que faco a consulta mas ta buscando tudo, na tabela subos tem um campo chamdo tp onde eu defino se e pecas ou servicos e onde eu quero fazer a consulta e nao to conseguindo

Dim db1 As Database, db2 As Database, rs1 As DAO.Recordset, rs2 As DAO.Recordset, rs3 As DAO.Recordset, qry As QueryDef

If MsgBox("Deseja Importar?", vbYesNo + vbQuestion, "CONFIRMAR") = vbYes Then
Dim xtot, rst As Recordset, TotReg As Integer, intVal As Integer
Set rst = CurrentDb.OpenRecordset("select * from ordem where ordem = '" & ordem & "'")
rst.MoveLast
TotReg = rst.RecordCount
rst.MoveFirst
While Not rst.EOF
intVal = intVal + 1
'If RS!suspenso_cliente Then
xtot = xtot + 1
' RS.Edit
'RS!suspenso_cliente = False
'RS.Update
'End If
Call Progresso(intVal, TotReg)

Me.Repaint
'Pausa: pausa o código.Use somente se a barra estiver muito rápida
'para dar tempo do repaint no form.
Pausa 0.25 '1 = 1 segundo
rst.MoveNext
Wend
Me.LOGR = "PROCESSO CONCLUIDO!!! "
Set rst = Nothing

Set db1 = CurrentDb
Set rs1 = db1.OpenRecordset("select * from nfser where nnota = '" & ordem & "'")
'Set rs1 = db1.OpenRecordset("ordem", dbOpenTable)

With rs1

.AddNew
' !CODCLIE = Me.CODCLIE
!DataE = Me.DATA
!nnota = Forms!transfnfe!notaser
!Fornecedor = Me.Nome
!END = Me.Endereço
!BAIRRO = Me.BAIRRO
!CEP = Me.CEP
!CIDDADE = Me.MUNIC
!CNPJ = Me.cpf
!IE = Me.IE
!DataE = Date
' !Fone1_Cli = Me.Fone1_Cli
.Update

End With

Set rs3 = db1.OpenRecordset("select * from SUBOS where ORDEM = '" & ordem & "'")
Set rs2 = db1.OpenRecordset("select * from NFFSer ")

While (Not rs3.EOF)
With rs2
.AddNew
' ![codvenda] = DMax("codvenda", "tblvenda")
!nnf = Forms!transfnfe!notaser
!Codigo = rs3!Codigo
!descricao = rs3!DISCRIMINACAO
!QUANT = rs3!QUANT
!VUnit = rs3!VLRUNI
!Uni = rs3!Idunidade
!DATA = Date
!CFOP = rs3!CFOP
!NCM = rs3!NCM
!VDesc = "0,00"
!VTotal = rs3!QUANT * rs3!VLRUNI
!CÓD = rs3!CÓD
.Update
rs3.MoveNext
End With
Wend

rs1.Close
Set rs1 = Nothing

rs2.Close
Set rs2 = Nothing

rs3.Close
Set rs3 = Nothing

Set db1 = Nothing


MsgBox "Venda confirmada.", vbOKOnly + vbInformation, "Concluído"

End If

Não entendi direito. Bem, primeiro, você queria apenas abrir uma consulta, depois apareceu essa função toda aí.

Você tem duas tabelas e quer transferir de uma para a outra?

Dica: quando estiver referenciando um campo do formulário, utilize Me. para que o Access entenda que aquele controle está no próprio formulário ou relatório. Caso contrário, ele pode confundir com outra coisa:

Set rst = CurrentDb.OpenRecordset("select * from ordem where ordem = '" & Me.ordem & "'")

Veja que apareceu três ordem aí, sendo uma referente a um controle do formulário e as outras não.

Outra: a tabela e o campo da tabela se chamam ordem?

sim chama ordem

a consulta ta nesta linha Set rs3 = db1.OpenRecordset("select * from SUBOS where ORDEM = '" & ordem & "'")
aqui que quero que resume somente os servicos

Nadiro

Percebeu que nessa linha ORDEM está em maiúsculo, é isso mesmo?

Dica:

Como nosso amigo e mestre Criquio disse:
- Vou usar esse teu código como exemplo
Numa boa estrutura de programação, deve-se dar nome aos bois.
Com isso quero dizer que o nome de qualquer objeto deve ser precedido de um prefixo para a identificação imediata do mesmo.
Exemplo:
Tabelas: tab_Origem - tblOrigem
Consultas: qrySeleçãoX - cons_Seleção
Relatórios: rpt_ImprimirClientes - rel_ImprimirClientes
Assim, também acontece com nomes de campos das tabelas e controles de formulário e relatórios.

Quando nos referimos a controle de dentro do mesmo formulário usamos:
Me!NomeDoControle
E não devemos abusar do ponto (.)
Me.NomeDoControle - embora o Access aceite, não se deve usar, pois então veja:
Quando lemos um código ao deparamros com uma linha assim:

Forms!frmFormPrincipal!subformPrincipal.Form!NomeControle

ou

Forms!frmFormPrincipal!subformPrincipal.Form.RecordSouce

Observem que quando vemos o ponto de Exclamação (!) já sabemos de pronto que a palavra a seguir é o nome um controle e quando vemos o ponto (.) percebemos que logo a seguir vem uma propriedade do elemento citado.

Isso é algumas coisas sobre normalização de programação, no help e na net tem mais coisas boas de se ver e aprender.

Abraços

deixa eu tentar explicar direito e o seguinte tenho a tabela NFFSer certo e tambem tenho a tabela subos
na tabela subos tenhos os seguintes dados abaixo

codigo descricao tp
93281381 oleo pecas
1 mao de obra servicos

ate ai tudo bem

ai eu tenho esse codigo pra trasporta de uma tabela pra outra sendo que eu quero so transferir somente os servicos
===============================================
esse e o codigo que uso mas ta transferindo tudo
Set rs3 = db1.OpenRecordset("select * from SUBOS where ORDEM = '" & ordem & "'")
Set rs2 = db1.OpenRecordset("select * from NFFSer ")

While (Not rs3.EOF)
With rs2
.AddNew
!nnf = Forms!transfnfe!notaser
!Codigo = rs3!Codigo
!descricao = rs3!DISCRIMINACAO
!QUANT = rs3!QUANT
!VUnit = rs3!VLRUNI
!Uni = rs3!Idunidade
!DATA = Date
!CFOP = rs3!CFOP
!NCM = rs3!NCM
!VDesc = "0,00"
!VTotal = rs3!QUANT * rs3!VLRUNI
!CÓD = rs3!CÓD
.Update
rs3.MoveNext
End With
Wend

Nadiro

Uma dica:

Usando as tag's [sócode] no inicio (uma linha antes) e [/sócode] no final (uma linha depois) do código, fica estruturado e de fácil leitura.
Coloquei a palavra "só" para poder visualizar a palavra, quando for utilizar a tag tire a palavra "só"

Acrescentei essa linha no teu código:
rst3.moveFirst

Código:


Set rs3 = db1.OpenRecordset("select * from SUBOS where ORDEM = '" & ordem & "'")
Set rs2 = db1.OpenRecordset("select * from NFFSer ")

rst3.moveFirst  '----- Inclua essa linha

While (Not rs3.EOF)
  With rs2
    .AddNew
    !nnf = Forms!transfnfe!notaser
    !Codigo = rs3!Codigo
    !descricao = rs3!DISCRIMINACAO
    !QUANT = rs3!QUANT
    !VUnit = rs3!VLRUNI
    !Uni = rs3!Idunidade
    !DATA = Date
    !CFOP = rs3!CFOP
    !NCM = rs3!NCM
    !VDesc = "0,00"
    !VTotal = rs3!QUANT * rs3!VLRUNI
    !CÓD = rs3!CÓD
    .Update
    rs3.MoveNext 
  End With
Wend



Como está num loope while-wend, talvez não precise da linha apos o .update.

Sabe usar ponto de interrupção e a janela de verificação imediata?

É muito útil nessa hora.


Abraços

esta linha onde eu quero que ele filtra so os servicos e do jeito que ela ta buscando tudo
Set rs3 = db1.OpenRecordset("select * from SUBOS where ORDEM = '" & ordem & "'")

Nadiro

Então o teu problema está na instrução SQL:

Set rs3 = db1.OpenRecordset("select * from SUBOS where ORDEM = '" & ordem & "'")

Verifique a instrução em azul, o seguinte:

- Se ORDEM é realmente em maiúscula.
- Já falamos para colocar o Me" antes de ordem : Me!ordem
- Veja que tem aspas simples em ordem, se for numérico tem que tirar, caso contrário, deixa.
Nos posts anteriores já falamos para você arrumar isso e ainda não arrumou, assim fica difícil ajudar.

olha a consulta em sql

SELECT SUBOS.OS, SUBOS.cód, SUBOS.ORDEM, SUBOS.DATA, SUBOS.CLIENTE, SUBOS.ítem, SUBOS.CODIGO, SUBOS.DISCRIMINACAO, SUBOS.Idunidade, SUBOS.QUANT, SUBOS.VLRUNI, SUBOS.Desconto, SUBOS.VLRTOT, SUBOS.DEP, SUBOS.mar, SUBOS.Atualizar_Saida, SUBOS.CFOP, SUBOS.TP, SUBOS.Excluir
FROM SUBOS
WHERE (((SUBOS.ORDEM)=[forms]![ordem]![ordem]) AND ((SUBOS.TP)="servicos"));

Nadiro

Então ficará assim:

Set rs3 = db1.OpenRecordset("select * from SUBOS where [ORDEM] = '" & Me!ordem & "' AND [TP] = 'serviços'")

Experimente e veja se montei a estrutura correta

Balem montei mas nao ta transferindo pra tabela do rs2

Set rs3 = db1.OpenRecordset("select * from SUBOS where [ORDEM] = '" & Me!ordem & "' AND [TP] = 'serviços'")
Set rs2 = db1.OpenRecordset("select * from NFFSer ")

While (Not rs3.EOF)
With rs2
.AddNew
!nnf = Forms!transfnfe!notaser
!Codigo = rs3!Codigo
!descricao = rs3!DISCRIMINACAO
!QUANT = rs3!QUANT
!VUnit = rs3!VLRUNI
!Uni = rs3!Idunidade
!DATA = Date
!CFOP = rs3!CFOP
' !NCM = rs3!NCM
!VDesc = "0,00"
!VTotal = rs3!QUANT * rs3!VLRUNI
!CÓD = rs3!CÓD
.Update
rs3.MoveNext
End With
Wend

Nadiro

Melhor enviar parte do teu aplicativo.
Senão iremos loonge assim

Balem antes ele transferia normal agora nao acho que essa cosulta que vc fez nao ta buscando os dados

aqui ta o codigo completo..

Dim db1 As Database, db2 As Database, rs1 As dao.Recordset, rs2 As dao.Recordset, rs3 As dao.Recordset, qry As QueryDef

If MsgBox("Deseja Importar?", vbYesNo + vbQuestion, "CONFIRMAR") = vbYes Then
Dim xtot, rst As Recordset, TotReg As Integer, intVal As Integer
Set rst = CurrentDb.OpenRecordset("select * from ordem where ordem = '" & Me.ordem & "'")
rst.MoveLast
TotReg = rst.RecordCount
rst.MoveFirst
While Not rst.EOF
intVal = intVal + 1
'If RS!suspenso_cliente Then
xtot = xtot + 1
' RS.Edit
'RS!suspenso_cliente = False
'RS.Update
'End If
Call Progresso(intVal, TotReg)

Me.Repaint
'Pausa: pausa o código.Use somente se a barra estiver muito rápida
'para dar tempo do repaint no form.
Pausa 0.25 '1 = 1 segundo
rst.MoveNext
Wend
Me.LOGR = "PROCESSO CONCLUIDO!!! "
Set rst = Nothing

Set db1 = CurrentDb
Set rs1 = db1.OpenRecordset("select * from nfser where nnota = '" & Me.ordem & "'")
'Set rs1 = db1.OpenRecordset("ordem", dbOpenTable)

With rs1

.AddNew
' !CODCLIE = Me.CODCLIE
!DataE = Me.DATA
!nnota = Forms!transfnfe!notaser
!Fornecedor = Me.Nome
!END = Me.Endereço
!BAIRRO = Me.BAIRRO
!CEP = Me.CEP
!CIDDADE = Me.MUNIC
!CNPJ = Me.cpf
!IE = Me.IE
!DataE = Date
' !Fone1_Cli = Me.Fone1_Cli
.Update

End With

Set rs3 = db1.OpenRecordset("select * from SUBOS where [ORDEM] = '" & Me!ordem & "' AND [TP] = 'serviços'")
Set rs2 = db1.OpenRecordset("select * from NFFSer ")

While (Not rs3.EOF)
With rs2
.AddNew
!nnf = Forms!transfnfe!notaser
!Codigo = rs3!Codigo
!descricao = rs3!DISCRIMINACAO
!QUANT = rs3!QUANT
!VUnit = rs3!VLRUNI
!Uni = rs3!Idunidade
!DATA = Date
!CFOP = rs3!CFOP
' !NCM = rs3!NCM
!VDesc = "0,00"
!VTotal = rs3!QUANT * rs3!VLRUNI
!CÓD = rs3!CÓD
.Update
rs3.MoveNext
End With
Wend

rs1.Close
Set rs1 = Nothing

rs2.Close
Set rs2 = Nothing

rs3.Close
Set rs3 = Nothing

Set db1 = Nothing


MsgBox "Venda confirmada.", vbOKOnly + vbInformation, "Concluído"

End If

essa consulta ai que quero colocar neste codigo nesta linha
Set rs3 = db1.OpenRecordset("select * from SUBOS where [ORDEM] = '" & Me!ordem & "' AND [TP] = 'serviços'")

Nadiro

Aparentemente o código está correto.

Sem o aplicativo, não da para saber o certo.

Se puder mandar as parte envolvidas então poderei ajudar melhor.

Balem

a senha e 1 e usuario 1

pra vc ver onde tor mexendo vai em ordem em baixo tem transfnfe
e la que ta o problema

Nadiro

Está faltando a fonte de registro do formulário, ou seja, justamente a tabela Contabil_lpt.

Sem ela não posso fazer nada.

Aguardo

encluir neste

Ta danado meu amigo.

Agora falta a tabela suboss.

Por favor, teste o aplicativo antes de postar

vai direto no forms tranfnfe ele vai pedir a ordem 00022011 depois click em transferir
depois vai na tabela nfser e depois na nffser na primeira tabela ele transfere normal mas na segundo nao transfere

Nadiro


Olhe bem essa linha:

Set rs3 = db1.OpenRecordset("select * from SUBOS where [ORDEM] = '" & Me!ordem & "' AND [TP] = 'serviços'")

Agora vá na tabela SUBOS e compare com o campo TP

Aguardo

Balem

que falta de atencao e a minha
obrigado pela ajuda

Tudo bem Nadiro

Percebi que teu aplicativo, ao menos a parte que me enviou tem alguns erros.

Veja no formulário transNfe que o controle N_NFe está dando erro.

Abra também um módulo do VBA e vá no menu Depurar e clique em DepurarNFe

Valeu pelo retorno

Boa sorte!

como que faco pra atualizar os dados ja transferido?

alguem consegue me ajduar?

Oi Nadiro

Explique o que deseja atualizar nos dados já transferidos.

estas linhas
!nnf = Forms!transfnfe!notaser
!Codigo = rs3!Codigo
!descricao = rs3!DISCRIMINACAO
!QUANT = rs3!QUANT
!VUnit = rs3!VLRUNI
!Uni = rs3!Idunidade
!DATA = Date
!CFOP = rs3!CFOP
' !NCM = rs3!NCM
!VDesc = "0,00"
!VTotal = rs3!QUANT * rs3!VLRUNI

Meu irmão

Só o fragmento do código fica difícil, né?

Diga ao menos onde está esse código.

Ainda tenho o teu aplicativo.

ta neste codigo

Set rs3 = db1.OpenRecordset("select * from SUBOS where [ORDEM] = '" & Me!ordem & "' AND [TP] = 'serviços'")
Set rs2 = db1.OpenRecordset("select * from NFFSer ")

While (Not rs3.EOF)
With rs2
.AddNew
!nnf = Forms!transfnfe!notaser
!Codigo = rs3!Codigo
!descricao = rs3!DISCRIMINACAO
!QUANT = rs3!QUANT
!VUnit = rs3!VLRUNI
!Uni = rs3!Idunidade
!DATA = Date
!CFOP = rs3!CFOP
' !NCM = rs3!NCM
!VDesc = "0,00"
!VTotal = rs3!QUANT * rs3!VLRUNI
!CÓD = rs3!CÓD
.Update
rs3.MoveNext
End With
Wend

rs1.Close
Set rs1 = Nothing

rs2.Close
Set rs2 = Nothing

rs3.Close
Set rs3 = Nothing

Set db1 = Nothing


MsgBox "Venda confirmada.", vbOKOnly + vbInformation, "Concluído"

End If

ha e como faco pra conta os itens e importar pra tabela tipo assim
1
2
3
4
5
...

Nadiro, meu irmão

Entenda o seguinte:

Primeiro, o aplicativo é de tua autoria, logo, só você sabe exatamente como ele deve funcionar e mais ninguém.
Colocar um pedaço de código, não ajuda nada.

"como que faco pra atualizar os dados ja transferido?"
Muito vago isso, não acha?
Atualizar o que, como, o que pretende.

Ou seja, ajude a gente a te ajudar, ok?

Percebo de cara que a linha que estava dando erro no teu aplicativo continua do mesmo jeito, consertou isso?
Set rs3 = db1.OpenRecordset("select * from SUBOS where [ORDEM] = '" & Me!ordem & "' AND [TP] = 'serviços'")
O restante do código que postou é somente para transferências entre as tabelas.

consertei essa linha ai

eu so quero atualizar os mesmo dados pois se tiver alguma alteracao depois da transferencia e alterar a tabela onde foi enviado os itens

Nesse caso, Nadiro

O jeito é fazer um formulário para editar os registros dessa tabela.

Abraços