-Поиск по дневнику

Поиск сообщений в rss_sql_ru_access_programming

 -Подписка по e-mail

 

 -Постоянные читатели

 -Статистика

Статистика LiveInternet.ru: показано количество хитов и посетителей
Создан: 16.03.2006
Записей:
Комментариев:
Написано: 4


не получается определить написать код

Четверг, 29 Мая 2014 г. 18:46 + в цитатник
Суть проста: есть поле в таблице, куда вносится информация о пользователе, если запись редактируется, то вносить ничего не нужно. Написал, но почему-то не работает, может кто поможет

Ошибка где-то тут: If Len(m) = Null Then

Private Sub Form_AfterUpdate()
Dim WshNetwork As Object
Dim CpmputerName As String

Dim rst As Recordset
Set rst = CurrentDb.OpenRecordset("Select Юзер From Заявки WHERE Код = " & Код & "")
m = rst.Fields("Юзер").Value
rst.MoveFirst
rst.Close
Set rst = Nothing


'Определяем Юзера
Set WshNetwork = CreateObject("WScript.Network")
CpmputerName = WshNetwork.ComputerName
Set WshNetwork = Nothing

  If Len(m) = Null Then    
 CurrentProject.Connection.Execute "UPDATE Заявки SET Юзер = '" & CpmputerName & "', ВремяВнесенияЗаписи = '" & TimeValue(Now()) & "', ДатаВнесенияЗаписи = '" & DateValue(Now()) & "' WHERE Код = " & Код & " "
 End If
End Sub

[/SRC]

http://www.sql.ru/forum/1097600/ne-poluchaetsya-opredelit-napisat-kod


 

Добавить комментарий:
Текст комментария: смайлики

Проверка орфографии: (найти ошибки)

Прикрепить картинку:

 Переводить URL в ссылку
 Подписаться на комментарии
 Подписать картинку