Felt som starter på 250000

Sub OpretTestPoster()

    Dim rsTestData As Recordset
    Dim intNyPostNr As Integer
   
    Set rsTestData = CurrentDb.OpenRecordset("tblDAOTest", dbOpenDynaset)
   
    For intNyPostNr = 1 To 250000
   
        rsTestData.AddNew
       
        rsTestData.Fields!Tekst = "Dette er post nr. " & intNyPostNr
       
        rsTestData.Update
   
    Next intNyPostNr
   
    rsTestData.Close

End Sub

Er det ikke noget, som kan laves i Access... Fatter lidt minus af det der... :S

Fejl at jeg accepterede dig :(

Kan du da ikke få det til at virke. :o)

Du spørger efter et nyt felt, og det kan du føre således, koden oprettter et nyt felt (felt3) i Tabel2 og tildeler standardværdi for nye poster:


Dim db As Database, tdf As TableDef, fld As Field
Set db = CurrentDb
Set tdf = db.Tabledefs!Tabel2
Set fld = tdf.CreateField("felt3", dbLong)
fld.DefaultValue = "250000"
tdf.Fields.Append fld
Set db = Nothing

Hvis du med ordet "felt" mener en ny post, kan du blot sætte feltets standardværdi for nye poster til 250000.

1. Opret en midelrtidig Tabel med en fieldat number
2. Navngiv dette field med det samme navn som autonumber-fieldet i din anden tabel.
3. Indsaet en vaerdi i denne tabel: 249999
4. Lav en append query hvor du forbinder den midelrtidige tabel til tabellen med Autonummeret (hvis autonummeret er sat som primary key, skal denne midlertidigt fjernes)
5. Slet den midelrtidige tabel
6. Slet den record som blev appendet i trin 4, og saa ksulle det koere (husk at enable primary key igen, hvis du var noed til at fjerne den.

Se evt her:

http://www.eksperten.dk/spm/333144

Hvis du vil anvende en SQL-sætning

Jeg kan godt oprette kolonner/felter ... Men én med start værdi kan jeg dog ikke.. :(

Min kode er afprøvet og fungerer. Kan du evt. give en nærmere forklaring på hvad du vil? Har du afprøvet ovenstående og hvilke fejlmeldinger får du evt.?

Mugs -> Jeg kan ikke helt få din SQL query til at virke... Access siger et eller andet om,at den er ugdyldig??

Hvis du refererer til ovenstående link, er det en SQL-sætning der afvikles fra VBA i en formular.

Kan sende et par eksempler. Blot læg din e-mail

znuggle@znuggle.com

Sendt.

Hmm fik det til at virke på en anden måde...

Tak for hjælpen :D

Hvordan?

Jeg brugte designvisning i Access og angav standardværdien der