проблемка с MSFlexGrid

[Teslenko_EA]

Здравствуйте Жентос.
для ограничения ввода в поле только числовых значений, если контрол не поддерживает собственную проверку, можно воспользоваться процедурой обработки события ..._KeyPress этого контрола, поместив в неё подобный код

Select Case KeyAscii
Case 8, 48 To 57
Case Else: KeyAscii = 0
End Select

Евгений.

[Жентос]

Спасибо, Евгений
Подскажите пожалуйста, можно ли сделать сортировку по инициалам студента?
Просто я написал аналогичный код, который вы мне подсказали для Среднего балла.

Dim s$
Const sQ1 = " desc", sQ0 = "SELECT * FROM Список2 ORDER BY [Инициалы]"
s = sQ0 + IIf(Right(Data1.RecordSource, 4) = "desc", "", sQ1)
Data1.RecordSource = s
Data1.Refresh

Но инициалы не сортируются в порядке возрастания/убывания..Происходит какая то беспорядочная перестановка..

[Teslenko_EA]

Здравствуйте Жентос.
если Вы уверены, что поле [Инициалы] используются только кирилические символы, а не их латинские "аналоги" (С-C,К-K,...), задайте сортировку по значению этого поля избавленому от "лишних" пробелов:
...order by trim([Инициалы])...
такая конструкция должна работать корректно.
Евгений.

[Abrakadabra]

Сообщение от Teslenko_EA

если Вы уверены, что поле [Инициалы] используются только кирилические символы

Вряд ли это можно гарантировать, но похоже тут только Trim не поможет.
Исправить можно, создав функцию автозамены латиницы на кириллицу и удалении лишних пробелов, а потом сделать проверку на ввод в контроле формы.

[Жентос]

Спасибо большое за помощь.
А можно попросить совета как правильнее написать код под Дату, чтобы пользователь сам выбирал путь, а не так чтобы этот путь к базе Access был прописан в свойстве DatabaseName в элементе Data?
я прописал код

Private Sub Command1_Click()
CommonDialog1.DialogTitle = "Открытие файла" 'название диалогового окна
CommonDialog1.InitDir = "c:" ' корневой каталог по умолчанию
CommonDialog1.FileName = "c:\autoexec.mdb" ' файл по умолчанию
CommonDialog1.Filter = "*.mdb|*.mdb|" 'разрешения, которые возможно открыть
CommonDialog1.ShowOpen
End Sub

и в свойстве DatabaseName прописал "commondialog1.FileName".. программа у меня ругается... =(((

[Жентос]

Я разобрался)) покопался в учебнике))))