Predmet:Re: Sortiranje u polju Combo box
eve ova kaj mene e ok
If Forms!frmCjenovnik!Text109 = 2 And Forms!frmCjenovnik!Text113 = 1 Then
Me.Combo10.RowSource = "SELECT tblSiemensKonacno.PartNo, tblSiemensKonacno.DescriptionLong, Round([tblSiemensKonacno.PC],2), tblSiemensKonacno.AN FROM tblSiemensKonacno ORDER BY tblSiemensKonacno.PartNo;"
Me.Combo10.ColumnWidths = "3,503cm;24,501cm;1cm"
End If
If Forms!frmCjenovnik!Text109 = 2 And Forms!frmCjenovnik!Text113 = 2 Then
Me.Combo10.RowSource = "SELECT tblSiemensKonacno.DescriptionLong, tblSiemensKonacno.PartNo, Round([tblSiemensKonacno.PC],2), tblSiemensKonacno.AN FROM tblSiemensKonacno ORDER BY tblSiemensKonacno.DescriptionLong;"
Me.Combo10.ColumnWidths = "24,501cm;3,503cm;1cm"
End If
If Forms!frmCjenovnik!Text109 = 3 And Forms!frmCjenovnik!Text113 = 1 Then
Me.Combo10.RowSource = "SELECT tblSchneiderKonacno.Referenca, tblSchneiderKonacno.Opis, Round([tblSchneiderKonacno.PC],2), tblSchneiderKonacno.ID FROM tblSchneiderKonacno ORDER BY tblSchneiderKonacno.Referenca;"
Me.Combo10.ColumnWidths = "3,503cm;24,501cm;1cm"
End If
If Forms!frmCjenovnik!Text109 = 3 And Forms!frmCjenovnik!Text113 = 2 Then
Me.Combo10.RowSource = "SELECT tblSchneiderKonacno.Opis, tblSchneiderKonacno.Referenca, Round([tblSchneiderKonacno.PC],2), tblSchneiderKonacno.ID FROM tblSchneiderKonacno ORDER BY tblSchneiderKonacno.Opis;"
Me.Combo10.ColumnWidths = "24,501cm;3,503cm;1cm"
End If