Tilføj kolonne i forspørgsel

Du kan kun tilføje data på den måde til en kolonne i en tabel. Ikke en forespørgsel.

Hvor kommer data fra?
Kan du uddybe det lidt nærmere?

/Thomas

Det er et navn, der skal kobles på alle posterne i hovedtabellen.

Ups, data er noget brugeren taster ind.

Jamen, så skal du vel bare åbne tabellen i design og tilføje en linie nederst (svare til en kolonne, når du åbner tabellen i tabelvisning)

Derefter kan brugerne taste navne i den fremkomne kolonne.

/Thomas

Jamen det var derfor jeg gerne ville have den til at gøre det som en tilføjelsesprocedure. Så brugeren ikke opdagede at jeg tilføjede data.

Dvs, at kolonnen eksistere, men du skal bare lægge data i den i henhold til det, som brugeren indtaster?

Nej Kolonnen eksisterer heller ikke.

Okay, så er du nødt til at oprette kolonnen i tabellen.

Derefter kan du, når brugeren har indtastet navn, opdatere tabellen med det pågældende navn.

Der mangler dog stadig nogle oplysninger:
- Hvornår/hvor taster brugeren navnet? Er det på en formular eller er det en inputbox?
- Hvordan ved du hvilket navn, der skal placeres i hvilken post?
- Kender du noget som helst til VBA?

/Thomas

`Jeg ville helst have en inputbox.
Det er samme navn der skal placeres i alle poster.
Ja, jeg kender lidt til VBA

Okay, så skal du (evt på en knap) lægge følgende kode:

Dim txtNavn as String
txtNavn = Inputbox(\"Angiv navn\")
if txtNavn <> \"\" then
    CurrentProject.Connection.Execute \"Update [Tabel] Set [Navn] = \'\" & txtNavn & \"\'\"
end if

hvor Tabel erstattes af navnet på tabellen og Navn erstattes hvis du har kaldt den nye kolonne andet en \'Navn\'

/Thomas

OK, men hvordan får jeg så oprettet en tom kolonne?

Automatisk selvfølgelig

Hmm, du skal vel kun tilføje kolonnen én gang (manuelt) hvorefter den ligger der til tid og evighed?
Eller vil du have at hver bruger tilføjer en kolonne? (Dette strider mod alle grundlæggende regler og normalformer for databasedesign!)

Det er fordi databasen bliver tømt hver gang, så det er helt iorden at brugeren opretter en kolonne.

Vil det så ikke være i orden, at du manuelt (som beskrevet i mit andet svar) opretter feltet i tabellen?

Derefter skulle koden virke.

Nej ikke helt, da jeg indlæser en fil med data, og den har ikke denne kolonne.

OK, nu er jeg med (er lidt sløv i optrækket engang i mellem ;-)

Din kode skal så se således ud i stedet:

\'**** Start ****
Dim txtNavn as String
Dim db As Database
Dim tdef As TableDef
Set db = CurrentDb
Set tdef = db.TableDefs(\"Tabel\")
tdef.Fields.Append tdef.CreateField(\"Navn\", dbText)

txtNavn = Inputbox(\"Angiv navn\")
if txtNavn <> \"\" then
    CurrentProject.Connection.Execute \"Update [Tabel] Set [Navn] = \'\" & txtNavn & \"\'\"
end if
\'**** Slut ****

Da denne metode bygger på DAO-teknik, skal du huske at sætte en reference til MS DAO under Tools->References.

Og bemærk at der nu er flere steder, hvor du skal ændre navne, så de passer til din egen tabel.

mvh
Thomas

Hej Igen,

Jeg tror rent faktisk at det er lettere i importering at tilføje en kolonne. Og derefter benytte det første forslag du kom med.

Ja, hvis du har den mulighed. Det var ikke til at vide ud fra din beskrivelse :-)

currentprojekt virker ikke i access

Bruger du Access 97 eller 2000?

Hvis det er 97, skal du erstatte
CurrentProject.Connection.Execute
med
Currentdb.Execute

/Thomas

Tak for hjælpen! Det virker kanon!