Boa noite,
primeiro quero parabenizar os colaboradores deste fórum pelo excelente trabalho.
Consegui com ajuda de vocês(pela respostas do fórum) montar um sistema quase funcionando.
Tenho um form com 3 subforms, todos vinculados e tenho 2 combos que fazem a pesquisa e preenchem os subforms.
No form principal tenho um textbox "OBS" que preciso preencher com a consulta na tabela, mas não estou conseguindo.
Dá um erro #Nome?
A consulta está no subform assim como o campo "OBS" e preciso deste campo no Form principal
Agradeço de antecipadamente
Set db = CurrentDb
Set rs = db.OpenRecordset("TBL_PEDIDO", dbOpenDynaset)
Forms![FRM]![SUBFRM].Form.RecordSource = "SELECT [TBL_PEDIDO].[NUM_PEDIDO], [TBL_PEDIDO].[NUM_CORREIO]_
AS [TBL_PEDIDO_NUM_CORREIO], [TBL_CORREIO].[NUM_CORREIO] AS [TBL_CORREIO_NUM_CORREIO],[TBL_CORREIO]._
[NUM_CORREIO], [TBL_CORREIO].[DATA_CORREIO], [TBL_CORREIO].[OBS], [TBL_CORREIO].[NUM_PREFIXO],_
[TBL_CORREIO].[STATUS] FROM [TBL_CORREIO] INNER JOIN [TBL_PEDIDO] ON [TBL_CORREIO].[NUM_CORREIO] _
= [TBL_PEDIDO].[NUM_CORREIO] WHERE NUM_PEDIDO='" & Me.comboPedido & "'"
Forms![FRM]![SUBFRM].Form![CORREIO].ControlSource = "NUM_CORREIO"
Forms![FRM]![SUBFRM].Form![DATA].ControlSource = "DATA_CORREIO"
Forms![FRM]![SUBFRM].Form![PREFIXO].ControlSource = "NUM_PREFIXO"
Forms![FRM]![SUBFRM].Form![STATUS].ControlSource = "STATUS"
Forms![FRM]![txtObs].ControlSource = "OBS"
[SUBFRM].Requery
[SUBFRM1].Requery
[SUBFRM2].Requery
End Sub
primeiro quero parabenizar os colaboradores deste fórum pelo excelente trabalho.
Consegui com ajuda de vocês(pela respostas do fórum) montar um sistema quase funcionando.
Tenho um form com 3 subforms, todos vinculados e tenho 2 combos que fazem a pesquisa e preenchem os subforms.
No form principal tenho um textbox "OBS" que preciso preencher com a consulta na tabela, mas não estou conseguindo.
Dá um erro #Nome?
A consulta está no subform assim como o campo "OBS" e preciso deste campo no Form principal
Agradeço de antecipadamente
Set db = CurrentDb
Set rs = db.OpenRecordset("TBL_PEDIDO", dbOpenDynaset)
Forms![FRM]![SUBFRM].Form.RecordSource = "SELECT [TBL_PEDIDO].[NUM_PEDIDO], [TBL_PEDIDO].[NUM_CORREIO]_
AS [TBL_PEDIDO_NUM_CORREIO], [TBL_CORREIO].[NUM_CORREIO] AS [TBL_CORREIO_NUM_CORREIO],[TBL_CORREIO]._
[NUM_CORREIO], [TBL_CORREIO].[DATA_CORREIO], [TBL_CORREIO].[OBS], [TBL_CORREIO].[NUM_PREFIXO],_
[TBL_CORREIO].[STATUS] FROM [TBL_CORREIO] INNER JOIN [TBL_PEDIDO] ON [TBL_CORREIO].[NUM_CORREIO] _
= [TBL_PEDIDO].[NUM_CORREIO] WHERE NUM_PEDIDO='" & Me.comboPedido & "'"
Forms![FRM]![SUBFRM].Form![CORREIO].ControlSource = "NUM_CORREIO"
Forms![FRM]![SUBFRM].Form![DATA].ControlSource = "DATA_CORREIO"
Forms![FRM]![SUBFRM].Form![PREFIXO].ControlSource = "NUM_PREFIXO"
Forms![FRM]![SUBFRM].Form![STATUS].ControlSource = "STATUS"
Forms![FRM]![txtObs].ControlSource = "OBS"
[SUBFRM].Requery
[SUBFRM1].Requery
[SUBFRM2].Requery
End Sub