Preciso de uma ajuda no preenchimento de um SubFormulario, com exibição continua(com aparencia de folha de dados)
Usando comomando em SQL (vba).
Quero preencher este subformulario com comando em SQL, assim poderia manipular os dados como quiser.
Comando que comecei a fazer seria uma sub rorina chama para preencher o subformulario.
Private Sub btTeste_Click()
Dim rstMedicamento As Recordset
Dim SQL As String
SQL = "SELECT COD_Far, PROD_Far, PROD_Sal, PROD_Class, CODBAR_Far FROM ProdComFar"
Call AbrirBanco(2)
Set rstMedicamento = dbsBD.OpenRecordset(SQL, dbOpenDynaset)
'ate aqui tudo bem, mas como faço pra frente pra preencher um subformulario "frmSubProdComFar" com aparecencia de LISBOX?
??????
??????
dbsBD.Close
End Sub
Exemplo de codigo?
Obrigado
Usando comomando em SQL (vba).
Quero preencher este subformulario com comando em SQL, assim poderia manipular os dados como quiser.
Comando que comecei a fazer seria uma sub rorina chama para preencher o subformulario.
Private Sub btTeste_Click()
Dim rstMedicamento As Recordset
Dim SQL As String
SQL = "SELECT COD_Far, PROD_Far, PROD_Sal, PROD_Class, CODBAR_Far FROM ProdComFar"
Call AbrirBanco(2)
Set rstMedicamento = dbsBD.OpenRecordset(SQL, dbOpenDynaset)
'ate aqui tudo bem, mas como faço pra frente pra preencher um subformulario "frmSubProdComFar" com aparecencia de LISBOX?
??????
??????
dbsBD.Close
End Sub
Exemplo de codigo?
Obrigado
Última edição por toninho em 27/9/2012, 21:45, editado 1 vez(es)