biko_oo7

اخي الكريم هذه function بسيطة لتعبئة list او combo بما تريدة من الـ DB ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Public Sub LFilling(List As ListBox, StrSQL As String) RSTset StrSQL List.Clear If RST.RecordCount <> 0 Then If Not RST.BOF Or …