Цитата

Тут дело не в SQL запросе. Результат одинаковый что с ним, что без него. Когда он доходит до rs.AddNew начинает ругаться, что база данных открыта только для чтения.

Ну как это дело не в SQL запросе - вот это работает?

Код

Private Sub Command1_Click() Dim sSQL As String Dim dbMedic As DAO.Database Dim rsperson As Recordset sSQL = ";database=" & App.Path & "\base.mdb"  'окрыть БД Set dbMedic = OpenDatabase("", True, False, sSQL) Set rsperson = dbMedic.OpenRecordset("Person") rsperson.AddNew rsperson!LName = "Ivan" rsperson.Update End Sub

Цитата

Попробуй проверить свойства файла базы данных, возможно стоит галочка только для чтения

Это первое, что было сделано

Я уже проверял, нет галочки.

Да, SQL запрос работает. Он ругается, когда доходит до AddNew

Спасибо!!!!!!! Код работает и все добавляет.

вот те живой пример. писал пару недель назад. у меня фурычит все.

Private Sub пДетали_AfterUpdate()
Dim Db As Database
Dim RsVP As Recordset
Dim strSQLWhere As String
Set Db = OpenDataBase("c:\Bases\Технологические нормы.mdb")
If Me.пДетали <> "" Then
strD = Me.пДетали
strSQLWhere = "Where [Деталь] = """ & (strD) & """"
RsVP.Open "Select [Деталь], [Время плановое2] From [Технологические нормы]" & _
strSQLWhere, Db, adOpenDynamic, adLockOptimistic
Me.пНормаВр = RsVP.Fields("Время плановое2")
RsVP.Close
Else
End If
End Sub

вот те живой пример. писал пару недель назад. у меня фурычит все.

Private Sub пДетали_AfterUpdate()
Dim Db As Database
Dim RsVP As Recordset
Dim strSQLWhere As String
Dim strD As String
Set Db = OpenDataBase("c:\Bases\Технологические нормы.mdb")
If Me.пДетали <> "" Then
strD = Me.пДетали
strSQLWhere = "Where [Деталь] = """ & (strD) & """"
RsVP.Open "Select [Деталь], [Время плановое2] From [Технологические нормы]" & _
strSQLWhere, Db, adOpenDynamic, adLockOptimistic
Me.пНормаВр = RsVP.Fields("Время плановое2")
RsVP.Close
Else
End If
End Sub