| |
|
|
| | Задача такая сделать проверку на наличие в ней записи из формы если такой нет то добавить.
Dim r1 As DAO.Recordset
Set r1 = CurrentDb.OpenRecordset("UIN", DAO.dbOpenDynaset)
While r1 = notNull
If Me.uin <> r1 Then
r1.AddNew
r1!uin = Me.uin
r1.Update
r1.Close
End If
Wend | |
| |
| |
| |
|
|
| | а не проще ли через DCount подсчитать наличие таких записей, а при =0 добавить через запрос
CurrentDb.Execute "Insert Into ....."
|
| |
| |
| |
| |
|
|
| | Я, как правило проверяю Recordcount. Так дешевле.
Завешивается запрос (таблица)
Set DbDB = DBEngine.Workspaces(0).Databases(0)
Set AktTabelle = DbDB.OpenRecordset("Таблица или запрос")
If AktTabelle.RecordCount <> 0 Then ДЕЙСТВИЕ
AktTabelle.Close
И вся любовь
Привет. | |
| |
| |
| |
|
|
| | Если поле [uin] ключевое, то проверку наличия записи сделает JET, поэтому достаточно вставить запись
Application.CurrentDb.Execute "INSERT INTO UIN ([uin]) VALUES (" & Me!uin & ");"
Если поле неиндексировано то сделайте проверку
Application.CurrentDb.Execute "DELETE * FROM UIN WHERE uin=" & Me!uin & ";"
а затем вставьте запись | |
| |
| |
