I have never had a problem posting code in this forum, nor have I had a problem logging in.
Here is some code:
Private Sub Form_Load()
Dim rs As ADODB.Recordset
Dim rsLocal As ADODB.Recordset
Dim cn As ADODB.Connection
Dim sSQL As String
Dim sSQL_Local As String
DoCmd.SetWarnings False
DoCmd.OpenQuery "DELETE_UserName"
DoCmd.OpenQuery "DELETE_Vendors"
DoCmd.OpenQuery "DELETE_Assets"
DoCmd.SetWarnings True
Set cn = New ADODB.Connection
cn.Open "Provider=SQLOLEDB;Data Source=Server;Initial Catalog=Assets;UID=User;PWD=password"
'Add Asset data
sSQL = "SELECT * FROM vwLaptopUpdate_Assets"
sSQL_Local = "SELECT * FROM Assets"
Set rs = New ADODB.Recordset
rs.Open sSQL, cn, adOpenDynamic, adLockOptimistic
Set rsLocal = New ADODB.Recordset
rsLocal.Open sSQL_Local, CurrentProject.Connection, adOpenDynamic, adLockOptimistic
Do Until rs.EOF
rsLocal.AddNew
rsLocal("AssetID") = rs("AssetID")
rsLocal("Asset") = rs("Asset")
rsLocal.Update
rs.MoveNext
Loop
'Add Vendor data
sSQL = "SELECT * FROM vwLaptopUpdate_Vendors"
sSQL_Local = "SELECT * FROM Vendors"
Set rs = New ADODB.Recordset
rs.Open sSQL, cn, adOpenDynamic, adLockOptimistic
Set rsLocal = New ADODB.Recordset
rsLocal.Open sSQL_Local, CurrentProject.Connection, adOpenDynamic, adLockOptimistic
Do Until rs.EOF
rsLocal.AddNew
rsLocal("VendorID") = rs("VendorID")
rsLocal("VendorName") = rs("VendorName")
rsLocal.Update
rs.MoveNext
Loop
'Add User data
sSQL = "SELECT * FROM vwLaptopUpdate_UserName"
sSQL_Local = "SELECT * FROM UserName"
Set rs = New ADODB.Recordset
rs.Open sSQL, cn, adOpenDynamic, adLockOptimistic
Set rsLocal = New ADODB.Recordset
rsLocal.Open sSQL_Local, CurrentProject.Connection, adOpenDynamic, adLockOptimistic
Do Until rs.EOF
rsLocal.AddNew
rsLocal("UserID") = rs("UserID")
rsLocal("LOGIN_NAME") = rs("LOGIN_NAME")
rsLocal("LastName") = rs("LastName")
rsLocal("FirstName") = rs("FirstName")
rsLocal.Update
rs.MoveNext
Loop
End Sub
Here is some SQL code:
SELECT LaptopUpdate_Start.DetailsID, LaptopUpdate.LaptopUpdateID, LaptopUpdate.UserID, LaptopUpdate.Notes, LaptopUpdate.DateCreated
FROM LaptopUpdate_Start INNER JOIN LaptopUpdate ON LaptopUpdate_Start.DetailsID = LaptopUpdate.DetailsID;
I am not sure why you would be having this problem.
Most of the users post their contact information so that you can send files and code behind the post if you are working with someone. Just click on my name and send me the code in line with your email text. I will post it and we can have a look at it.
HTH
mmcdonal
Look it up at:
http://wrox.books24x7.com