не получается определить написать код |
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
http://www.sql.ru/forum/1097600/ne-poluchaetsya-opredelit-napisat-kod
| Комментировать | « Пред. запись — К дневнику — След. запись » | Страницы: [1] [Новые] |