como que faco pra usar esse codigo num caixa de combinacao desvinculada
Private Sub itensnfed(IdN)
Call fncAbreConexao(102030)
Dim RS, rst As DAO.Recordset
strSql = "SELECT NFF.codigo, NFF.descricao, NFF.Uni, NFF.VUnit, NFF.Quant, NFF.n_orginal, NFF.ncm, NFF.cst FROM NFF Where NFF.nnf = '" & IdN & "'"
Set Me.CODIGO.Recordset = Db.OpenRecordset(strSql)
Me.CODIGO.ColumnCount = 10
Me.CODIGO.ColumnWidths = "2,3cm; 7cm; 1,5cm; 1cm; 1,5cm; 1cm;1,5cm;2cm;2cm"
End Sub
Me.CODIGO essa e a caixa de combinacao desvinculada
Private Sub itensnfed(IdN)
Call fncAbreConexao(102030)
Dim RS, rst As DAO.Recordset
strSql = "SELECT NFF.codigo, NFF.descricao, NFF.Uni, NFF.VUnit, NFF.Quant, NFF.n_orginal, NFF.ncm, NFF.cst FROM NFF Where NFF.nnf = '" & IdN & "'"
Set Me.CODIGO.Recordset = Db.OpenRecordset(strSql)
Me.CODIGO.ColumnCount = 10
Me.CODIGO.ColumnWidths = "2,3cm; 7cm; 1,5cm; 1cm; 1,5cm; 1cm;1,5cm;2cm;2cm"
End Sub
Me.CODIGO essa e a caixa de combinacao desvinculada