ник: osmor
сложно судить по коду поскольку он логичен, вы открываете рекордсет, но ничего с ним не делаете, откуда возьмется значение переменной f_max ?
попробуйте так
Dim MyRec As DAO.Recordset
Set MyRec = CurrentDb.OpenRecordset("SELECT Max([Table1].[ID]) AS f_max FROM [Table1] WHERE [Table1].[imja] = " & Me.Text0.Value )
Me.Text2.Value = MyRec.fields("f_max").value
|
если поле imja тектовое то так:
Dim MyRec As DAO.Recordset
Set MyRec = CurrentDb.OpenRecordset("SELECT Max([Table1].[ID]) AS f_max FROM [Table1] WHERE [Table1].[imja] = '" & Me.Text0.Value & "'")
Me.Text2.Value = MyRec.fields("f_max").value
|
попробуйте использовать функцию Dlookup