ник: ilich
У меня в запросе есть поле ФИО в таблице Врачи там например написано Иванов Иван Иванович, мне нужно чтоб в результате запроса выводилось Иванов И И. Такое возможно сделать без VBA ? Если нет, то как на вба?
У меня вот так сделано но на код ругается на строку "Set db = CurrentBb"
Private Sub Кнопка7_Click()
Dim Nstroki As Integer
Dim DN, DK As String
Dim db As Database
Set db = CurrentBb
DoCmd.SetWarnings False
Set rstS = db.OpenRecordset("Врачи", dbOpenTable)
rstS.MoveFirst
Do While Not rstS.EOF
rstS.Edit
kod = rstS![Код_врача]
FIO = rstS![ФИО_врача]
gr1 = 0: gr2 = 0: gr3 = 0: gr4 = 0
Dim v As String
On Error Resume Next
gr1 = Split(FIO, " ")(0)
gr2 = Split(FIO, " ")(1)
gr3 = Split(FIO, " ")(2)
Set rstI = db.OpenRecordset("ФИО", dbOpenDynaset)
rstI.AddNew
rstI!код_вр = kod
rstI!Фамилия = gr1
rstI!Имя = gr2
rstI!Отчество = gr3
rstI.Update
rstS.MoveNext
Loop
MsgBox ("Готово")
End Sub