Access SQL-SQL Server 2008( )
|
|
, 25 2015 . 05:28
+
( ) , "run time-error 3027" . .
Private Sub 24_Click()
Dim dbs As Variant
Set dbs = CurrentDb
Dim dataPersonalAdd As Recordset
Set dataPersonalAdd = dbs.OpenRecordset("dbo_ ", dbOpenDynaset)
With dataPersonalAdd
.AddNew
![ ] = Me![ ]
![] = Me![]
![] = Me![]
![ ] = Me![ ]
![] = Me![]
.Update
End With
Dim rst As Recordset
Set rst = dbs.OpenRecordset("dbo_", dbOpenDynaset)
With rst
.AddNew
![ ] = Me![ ]
![] = Me![]
![] = Me![]
![ ] = Me![ ]
![] = Me![]
' .Update
End With
Set rst = dbs.OpenRecordset("dbo_ ", dbOpenDynaset)
With rst
.AddNew
![ ] = Me![ ]
'.Update
End With
dbs.Close
End Sub
| : "Microsoft SQL Server". |
http://www.sql.ru/forum/1187046/access-sql-sql-server-2008-klient-server
