Russian version
English version
| | | | SILICON TAIGA | ISDEF | CD | | | | | | | |
 

 
 
IT-
 
 
 
RSS-

- . ! , , ?

1. , , ListBox. . ? .))

2. ( , ).

Public sqlOldList As String

Public Function SortBy(fld As String, Lst As ListBox)
Dim sql As String

sqlOldList = Trim(sqlOldList)

If Right(sqlOldList, 1) = ";" Then
sql = Left(sqlOldList, Len(sqlOldList) - 1) & " ORDER BY " & fld
Else
sql = sqlOldList & " ORDER BY " & fld
End If
Lst.RowSource = sql
'MsgBox sql
End Function

.

3. "" . , , sqlOldList , !!!

4. sqlOldList.

, ( ) ! .. .

5. , . - : =SortBy("Table.[Field] DESC", Forms!MyForm!MyListBox)

6. .


     
 
 
  : 05.09.2006  

| | | | SILICON TAIGA | ISDEF | CD | | | | | | | |

: Silicon Taiga    
Rambler's Top100 Rambler's Top100