CODEWITHSUNDEEP
ms-accesssharepointvbams-access-2010
Anpix
Anpix

Reputation: 170

How to use "INSERT INTO" command from Access VBA to Sharepoint

I'm using a MS Access database linked with a Sharepoint Server. MS Access Forms as FrontEnd and Sharepoint Lists as BackEnd.

Today i can see all the informations from the lists using access forms, without problems.

What i need:

I'm trying to insert new registers on the list, using a SQL command: "INSERT INTO..."

if there is another possibility to insert the record in the list, may be useful

What's happening?

When i call the DoCmd.RunSQL(txtsql), i receive a runtime error 3999 saying i'm disconnected from the server.

My code now:

I tried using recordsets, but didn't succeed. I need to run this SQL many times, changing the string "txtSql" inside a loop. Like this:

Dim MaxSonda As Integer

'Get the max ID from the list
MaxSonda = Nz(DMax("IdSonda", "Sondas", "((Sondas.[Tipo Sonda])<>1 Or (Sondas.[Tipo Sonda]) Is Null)"), 0)
MsgBox "MaxSonda = " & MaxSonda

'Run the code for each "sonda"
Do While MaxSonda > 1
    If Nz(DLookup("[Tipo Sonda]", "Sondas", "Sondas!IdSonda = " & MaxSonda), 1) <> 1 Then
        DoCmd.OpenTable "Resumo", acViewNormal, acAdd
        DoCmd.GoToRecord acDataTable, "Resumo", acNewRec
        
        txtSql = "INSERT INTO Resumo ( Data, Sonda, Status ) SELECT #" & LastData + 1 & "#, " & MaxSonda & ", 0;"
        MsgBox txtSql
        DoCmd.RunSQL txtSql
        
        DoCmd.Close acTable, "Resumo", acSaveYes
    End If
    MaxSonda = MaxSonda - 1
Loop

P.S.: The MsgBox is just for check the steps

thanks for help

Upvotes: 0

Views: 2101

Answers (2)

Uriel
Uriel

Reputation: 1

Maybe this could help somebody. I did have the same problem and i solved it removing the sharepoint list from access and add it again. Take a seconds to make a sql query but it works.

greet

Upvotes: 0

Krish
Krish

Reputation: 5917

You don't need to open the list/table to insert a record. I don't know why you are using loop to insert rows but if that is your intention try this SQL_COMMAND within your loop:

If Nz(DLookup("[Tipo Sonda]", "Sondas", "[IdSonda] = " & MaxSonda), 1) <> 1 Then
        txtSql = "INSERT INTO Resumo ( Data, Sonda, Status ) VALUES ('" & LastData + 1 & "'," & MaxSonda & ",0);"
        MsgBox txtSql
        DoCmd.RunSQL txtSql
End If

also note #tags are used to insert dates in Access, if you are intend to save dates save them in international format as strings like

vba.Format$([date_field],"yyyy-mm-dd hh:mm:ss")

this way you can just save as string without using the #tags.

Upvotes: 1

Related Questions