Opret tabel med tre kolonner ved brug af vbakode

Glemte lige at nævne jeg arbejder i access2000

Private Sub Kommandoknap0_Click()
DoCmd.SetWarnings False

Dim SQL As String
SQL = "CREATE TABLE tblLogIn( txt Bruger, txt Adgangskode, txt Sikkerhedskode)"
DoCmd.RunSQL SQL
    DoCmd.SetWarnings True
End Sub

Hej Henrik
Tak for indlægget, din koder kender jeg, problemet er at få oprettet en post i tabellen som indeholder de oplysninger jeg har tastet i felterne i min form, nogen ideer
Anders

Hvad er de 3 felter opretted som. Det jeg tænker på er at sende dem over med send keys for CTRL + B x 3    :o)

Hej
Nej sendkeys er desværre ikke optimalt i denne db, jeg mener at jeg har set en kode her på eksperten som gør det jeg ønsker, men kan ikke finde den
Anders

>>aandersen
Hvad er de 3 felter opretted som.
Vh Henrik13

Well
Det er tre tekstfelter

Denne kode opretter tabellen hvis den ikke allerede findes og indsætter værdierne fra formularen. Hvis tabellern allerede er oprettet indsættes værdierne som en ny post i tabellen:

Private Sub Kommandoknap4_Click()

DoCmd.SetWarnings False

  Dim SQL As String
  Dim SQL2 As String
  Dim SQL3 As String
  Dim f1 As String
  Dim f2 As String
  Dim f3 As String
  On Error Resume Next
    SQL = "CREATE TABLE tblLogIn( Bruger text, Adgangskode text, Sikkerhedskode text)"
    DoCmd.RunSQL SQL
    f1 = Me!Bruger
    f2 = Me!Adgangskode
    f3 = Me!Sikkerhedskode
    sql3 = "Values(" & "'" & f1 & "'" & "," & "'" & f2 & "'" & "," & "'" & f3 & "'" & ")"
    SQL2 = "INSERT INTO tbllogin(bruger, adgangskode, sikkerhedskode)" & sql3
    DoCmd.RunSQL SQL2
    DoCmd.SetWarnings True

End Sub

Private Sub Kommandoknap0_Click()
Dim SQL As String

  DoCmd.SetWarnings False

  SQL = "CREATE TABLE tblLogIn( txt Bruger, txt Adgangskode, txt Sikkerhedskode)"
  DoCmd.RunSQL SQL

  SQL = "INSERT INTO tblLogIn VALUES ( '" & me.Bruger & "', " & me.Adgangskode & "', " & me.Sikkerhedskode & "')"
  DoCmd.RunSQL SQL
  DoCmd.SetWarnings True
End Sub

and you can add On Error Resume Next
so as not to see any error if teh table exists

Hej
Tak for indlæggende, tester og vender tilbage hurtigst muligt

Anders

Terry:
Har testet dit forslag, dem kommer med fejl 3292, syntaksfejl i feltdefination?
Nogen ideer

Okay nedenstående kode opretter tabellen, men den kan ikke overskive,slette tblLogin hvis den findes i forvejen.

Dim SQL As String

  DoCmd.SetWarnings False

  SQL = "CREATE TABLE tblLogIn( Bruger text, Adgangskode text, Sikkerhedskode text)"
  DoCmd.RunSQL SQL

Anders

SQL = "CREATE TABLE tblLogIn( Bruger text, Adgangskode text, Sikkerhedskode text)"
Thats what happens with CUT and PASTE withouit checking :o)

DoCmd.SetWarnings False

ON error resume next

  SQL = "CREATE TABLE tblLogIn( Bruger text, Adgangskode text, Sikkerhedskode text)"
  DoCmd.RunSQL SQL

>>jkrons
Jeg har nu tetstet din kode og den virker sådan set, men jeg ønsker at der altid kun er en post i tabellen, nemlig den aktuelle når der klekkes på knappen i formen, kan din tilerettes så dette kan lade sig gøre?
Anders

terry:
Thanks, tester stadig på dit forslag

Anders

"DELETE * FROM tblLogIn"

Okay tester videre, det hårt arbejde dette her *SSS*
Anders

Private Sub Kommandoknap0_Click()
Dim SQL As String

  DoCmd.SetWarnings False

  ON error resume next


  SQL = SQL = "CREATE TABLE tblLogIn( Bruger text, Adgangskode text, Sikkerhedskode text)"
  DoCmd.RunSQL SQL
Docmd.runsql "DELETE * FROM tblLogin"
  SQL = "INSERT INTO tblLogIn VALUES ( '" & me.Bruger & "', " & me.Adgangskode & "', " & me.Sikkerhedskode & "')"
  DoCmd.RunSQL SQL
  DoCmd.SetWarnings True
End Sub

Docmd.runsql "DELETE * FROM tblLogin"

delete the last line of my example :o)

Brug jkrons og set forand, for at slette gamle data:
CurrentDb.Execute "DELETE FROM tblLogIn

Den skal se sådan ud:
Private Sub Kommandoknap4_Click()

DoCmd.SetWarnings False
CurrentDb.Execute "DELETE FROM tblLogIn
  Dim SQL As String
  Dim SQL2 As String
  Dim SQL3 As String
  Dim f1 As String
  Dim f2 As String
  Dim f3 As String
  On Error Resume Next
    SQL = "CREATE TABLE tblLogIn( Bruger text, Adgangskode text, Sikkerhedskode text)"
    DoCmd.RunSQL SQL
    f1 = Me!Bruger
    f2 = Me!Adgangskode
    f3 = Me!Sikkerhedskode
    sql3 = "Values(" & "'" & f1 & "'" & "," & "'" & f2 & "'" & "," & "'" & f3 & "'" & ")"
    SQL2 = "INSERT INTO tbllogin(bruger, adgangskode, sikkerhedskode)" & sql3
    DoCmd.RunSQL SQL2
    DoCmd.SetWarnings True

End Sub

Private Sub Kommandoknap0_Click()
Dim SQL As String

  DoCmd.SetWarnings False

  ON error resume next


  SQL = SQL = "CREATE TABLE tblLogIn( Bruger text, Adgangskode text, Sikkerhedskode text)"
  DoCmd.RunSQL SQL
Docmd.runsql "DELETE * FROM tblLogin"
  SQL = "INSERT INTO tblLogIn (bruger, adgangskode, sikkerhedskode) VALUES ( '" & me.Bruger & "', " & me.Adgangskode & "', " & me.Sikkerhedskode & "')"
  DoCmd.RunSQL SQL
  DoCmd.SetWarnings True
End Sub

Rettelse, manglede et " Demo kan sendes:

Private Sub Kommandoknap4_Click()

DoCmd.SetWarnings False
CurrentDb.Execute "DELETE FROM tblLogIn"
  Dim SQL As String
  Dim SQL2 As String
  Dim SQL3 As String
  Dim f1 As String
  Dim f2 As String
  Dim f3 As String
  On Error Resume Next
    SQL = "CREATE TABLE tblLogIn( Bruger text, Adgangskode text, Sikkerhedskode text)"
    DoCmd.RunSQL SQL
    f1 = Me!Bruger
    f2 = Me!Adgangskode
    f3 = Me!Sikkerhedskode
    sql3 = "Values(" & "'" & f1 & "'" & "," & "'" & f2 & "'" & "," & "'" & f3 & "'" & ")"
    SQL2 = "INSERT INTO tbllogin(bruger, adgangskode, sikkerhedskode)" & sql3
    DoCmd.RunSQL SQL2
    DoCmd.SetWarnings True

End Sub

Hej
Jeg har fået det til at virke og fordelt points, men er ikke sikker på at det er registreret, har i fået point??

Anders

>> ja og tak for poient.  :o)

:o)

Hæ hæ, jeg er på fastnetforbindelse på mit inernet 45megabit, det går nogen gange så hurtigt at man kan blive i tvil.

Foresten hvad skulle jeg nu bruge alt dette til JO:

Jeg er ved at lave mit eget brugerlogin til db, istedet for at bruge den indbyggede. Når der opprettes brugere for de en sikkerhedskode feks. 1 læseadgang e.t.c.Når en bruger så køre på db,en spørger jeg via feks. DlookUp havd den den aktuelle sikkerkode er, og på denne måde styre hvem der kan havd feks. oprette slette. Bloe en lille forklaring,

*SSS*
Anders.

>> aandersen
Nu forstår jeg slet ingenting, du sletter jo login'en ved næste logind???  :o(

Præcis
db er jo delst i frontend og backend, forstil dig at frontend er installeret på en pc der bliver det af flere brugere, på denne måde kan jeg altid forspørge på sikkerhedskoden på det aktuelle login da tblLogin altid indeholder op lysninger om den aktuelle bruger, Tabellen bruges jo ikke til nogen form historik-
Anders

tblLogin findes jo ikke backend, men kun i frontend

Den var smart.  :o)