ник: KrukVN
ёпрст! osmor, плиз скажи им чтоб [cоdе][/cоdе] юзали! Ну не читается код в таком форматировании. Он простой как семь копеек, а мозг напрягается на целый рубль, а сегодня понедельник. Ну не надо так
Хотяб так:
Public Function ФИО(Код As Integer)
Dim StrSQL As String
Dim MyRst As DAO.Recordset
StrSQL = "SELECT Фамилия, Имя, Отчество, Инициалы FROM Люди WHERE Код = " + CStr(Код)
Set MyRst = CurrentDb.OpenRecordset(StrSQL, dbOpenDynaset)
ФИО = MyRst![Фамилия]
If IsNull(MyRst![Имя]) Then
If Not IsNull(MyRst![Инициалы]) Then
ФИО = ФИО + " " + MyRst![Инициалы]
End If
Else
ФИО = ФИО + " " + MyRst![Имя]
If Not IsNull(MyRst![Отчество]) Then
ФИО = ФИО + " " + MyRst![Отчество]
End If
End If
End Function
|