Fejl i SQL syntakst

Der er noget i vejen med din SQL; Du kan ikke bruge WHERE, når du samtidigi bruger VALUES!

Er dato og Ugedag variabler eller tekstbookse på formularen?

dbs.Execute "INSERT INTO gennereretTimeplan(dato,ugedag) VALUES(#" & dato & "#," & UGEDAG & ") WHERE dag = " & taeller & ";"

og hvis taeller er en streng

dag = '" & taeller & "';"

Prøver den lige :)

ok, thomasjespersen ved mere end mig, så du skal nok rette dig efter hans forslag.

Ok.. lidt fremskridt.. nu siger den at der mangler en ; i slutningen af sætningen?

Tæller er sat som følger:
Dim taeller
taeller = 1

Hvis derimod du blot ønsker at oprette én enkelt post med værdierne fra dato og Ugedag, så skal syntaksen se således ud:

"INSERT INTO gennereretTimeplan(dato,ugedag) VALUES #" & dato & "#, " & Ugedag & ";"

Hvis Taeller også skal med i tabellen (i feltet Dag), skal SQL'en se således ud:

"INSERT INTO gennereretTimeplan(dato, ugedag, dag) VALUES #" & dato & "#, " & Ugedag & ", " & Taeller & ";"

Kabbak-> nu ikke så beskeden! Du plejer da nok, at kunne komme med gode input :o)

Hov undskyld thomas, så dig slet ikke.. :/
I selve formularen er der kun en knap: Hele koden kommer her - godtnok amatøragtigt :/ men jeg har gjort hvad jeg kunne.. :)

Private Sub Kommandoknap4_Click()

    Dim dbs As Database
    Dim dato
    Dim UGEDAG
    Dim taeller
   
    dato = Now()
    UGEDAG = Format(Now(), "dddd")
    taeller = 1
   
    Set dbs = OpenDatabase("c:\documents and settings\standard\skrivebord\Kopi af test.mdb")
    dbs.Execute " INSERT INTO gennereretTimeplan " _
        & "SELECT * " _
        & "FROM [Fastplan];"
   
    For taeller = 1 To 42
    dbs.Execute "INSERT INTO gennereretTimeplan(dato,ugedag) VALUES(#" & dato & "#," & UGEDAG & ") WHERE dag = " & taeller & ";"
   
    dato = Now() + taeller
    UGEDAG = Format(dato, "dddd")
    taeller = 1 + taeller
    Next
   
    dbs.Close
   
 
End Sub

Grunden til at jeg har tilføjet WHERE er at jeg kun vil have at felterne /dato/ugedag/ i tabellen bliver opdateret hvor feltet /dag/ i tabellen er det samme som tælleren.. (men den har du nok regnet ud) :)

når du bruger Now() , får du også klokken med, så er det svært at grupper på dato senere.

Kabbak - ja ok.. men kunne ikke lige finde syntaksten for ganske almindelig dato...
hedder det date()??

Det gjorde det jo.. :)

Men jeg forstår ikke....Først indsætter du HELE Fastplan-tabellen i GennereretTimeplan. Derefter indsætter du 42 poster i din løkke.

Er det korrekt?

Bemærk forøvrigt, at for hvert gennemløb, stiger dato med 1, 2, 3, 4, 5, ....42
6. nederste linie burde vel bare hedde:
dato = dato + 1

"UPDATE gennereretTimeplan SET dato =#" & dato & "#,ugedag = '" & UGEDAG & "' WHERE dag = " & taeller & ";"

Ja, Kabbak, eg tror også, at du har ret i, at vi skal over i en UPDATE i stedet for INSERT!

Og du har tilmed også fanget, at Ugedag er String og derfor skal have ' ' omkring :o)

Så mangler der vist kun at få tælleren til at tælle dagene korrekt?

thomasjepsen ja, der er 84 poster, = 42 poster pr. person i timeplanen.
Dette er lagt i et fast skema. Data fra det faste skema bliver kopieret over i
en ny tabel, hvor man kan redigere m.m og bliver nummereret fra 1 - 42 pr. person pr. post. Når skemaet bliver gennereret er det meningen at alle poster skal gennemløbes fra 1-42.. og nederste linie.. ja klart :)

Jeg prøver lige update :)

Hmmm thomas, jeg beundrer din observationsevne mht. tælleren... :)

Den skriver fint ind i tabellen , men kun i hveranden post

tak...men jeg prøvde jo bare at forstå, hvad der sker ;o)

du burde også

    Dim dato as date
    Dim UGEDAG as string
    Dim taeller as integer

hvordan ser din kode ud nu?

Nå, du skal jo også fjerne denne linie:
taeller = 1 + taeller

Det ligger jo i For-Next-løkken, at taeller skal tælle op.

Private Sub Kommandoknap4_Click()

    Dim dbs As Database
    Dim dato as date
    Dim UGEDAG as string
    Dim taeller as integer
   
    dato = date()
    UGEDAG = Format(date(), "dddd")
    taeller = 1
   
    Set dbs = OpenDatabase("c:\documents and settings\standard\skrivebord\Kopi af test.mdb")
    dbs.Execute " INSERT INTO gennereretTimeplan " _
        & "SELECT * " _
        & "FROM [Fastplan];"
   
    For taeller = 1 To 42
    dbs.Execute ""UPDATE gennereretTimeplan SET dato =#" & dato & "#,ugedag = '" & UGEDAG & "' WHERE dag = " & taeller & ";"
   
    dato =Dato +1
    UGEDAG = Format(dato, "dddd")
    taeller = taeller + 1
    Next
   
    dbs.Close
   
 
End Sub

det er rigtig, taeller  til sidst er unødvendig.

Private Sub Kommandoknap4_Click()

    Dim dbs As Database
    Dim dato as date
    Dim UGEDAG as string
    Dim taeller as integer
   
    dato = date()
    UGEDAG = Format(date(), "dddd")
   
    Set dbs = OpenDatabase("c:\documents and settings\standard\skrivebord\Kopi af test.mdb")
    dbs.Execute " INSERT INTO gennereretTimeplan " _
        & "SELECT * " _
        & "FROM [Fastplan];"
   
    For taeller = 1 To 42
        dbs.Execute ""UPDATE gennereretTimeplan SET dato =#" & dato & "#,ugedag = '" & UGEDAG & "' WHERE dag = " & taeller & ";"
   
        dato =Dato +1
        UGEDAG = Format(dato, "dddd")
    Next
   
    dbs.Close
   
 
End Sub

Min kode ser nu sådan ud og virker!!!! TAK TIL JER BEGGE :)

rivate Sub Kommandoknap4_Click()

    Dim dbs As Database
    Dim dato
    Dim UGEDAG
    Dim taeller
   
    dato = Date
    UGEDAG = Format(Date, "dddd")
    taeller = 1
   
    Set dbs = OpenDatabase("c:\documents and settings\standard\skrivebord\Kopi af test.mdb")
    dbs.Execute " INSERT INTO gennereretTimeplan " _
        & "SELECT * " _
        & "FROM [Fastplan];"
   
    For taeller = 1 To 42
    dbs.Execute "UPDATE gennereretTimeplan SET dato =#" & dato & "#,ugedag = '" & UGEDAG & "' WHERE dag = " & taeller & ";"
    '"INSERT INTO gennereretTimeplan(dato,ugedag) VALUES(#" & dato & "#," & UGEDAG & ") WHERE dag = " & taeller & ";"
   
    dato = dato + 1
    UGEDAG = Format(dato, "dddd")
    Next
   
    dbs.Close
   
   
   
End Sub

Husk nu at lave et svar :)

der er da vist en linie for mehet med, ikke ?

Kabbak-> den er rem'et ud! Jeg studsede også over den :o)

Men den linien

taeller = 1

Behøver ikke at være der

det er den da osse. ;-))

skulle vi ikke smide et svar thomas

Ok tak igen :) den ligger som jeg kan forstå også i For-sætningen ?
Men nu ikke så mange kommentarer :) jeg vil gerne af med mine points :)

Så pyt da....du skulle jo nødig få forstoppelse ;o)

Nu er det vist også sengetid inden min søn finder på at vågne - han synes, det er så hyggeligt at være oppe om natten......gaaaab :o(

Takker :o)

Tak for hjælpen - og sov godt begge to :)

takker