Nulstil Autonummerering

Compact & Repair databasen efter du har slettet alt i tabellen.

Okay, hvordan skriver jeg så det i VBA?

Hvad gøre Compact og Repair Databasen?

Eller dette on the fly:

    'Set connection and catalog to current database.
    Set cnn = CurrentProject.Connection
    cat.ActiveConnection = cnn
   
    Set col = cat.Tables(strTbl).Columns(strCol)
   
    col.Properties("Seed") = lngSeed

hvor du kan sætte lngSeed til 1.

Du kan bruge...

  SendKeys "%tdc" 'engelsk
  SendKeys "%kfo" 'dansk

ProAccess: nulstiler jeg så?

Meget af det i skriver er lidt uforståeligt for mig,

SendKeys-kommandoen sender tastetryk til din "skærm"...

Det jeg beder om er: tryk [ALT] tasten ned  (%)
                        tryk K - for funKtioner
                        tryk F - for databaseFunktioner
                        tryk O - for kOmprimér database

Det vil lukke din database, komprimere og genåbne den...

Det kan være at dine bogstaver er anderledes i din version af Access.

Hansk, kan du ikke skrive den fulde Kode, med ærklæring af varialble ....

Du behøver ikke nogen erklæringer.

Læg fx følgende på en knap

sub cmdKomprimer_Click()
SendKeys "%kfe"
end sub

Ret til din egen knaps navn. Normalt vil det være e til sidst og ikke o, men det kan variere. Og pas på med SendKeys, hvis du ikke er 100% sikker på konfigurationen af de pc'er databasen skal virke på.

Hvordan kan jeg undersøge hvilke tegn min pcér bruger?

Tryk dig frem i menuerne... de understregede bogstaver er dem du skal bruge !!!

Funktioner - Databasefunktioner - Komprimer database

Start Access. Kig på Funktioner, Databasefunktioner - Komprimer og reparer.

De understregede bogstaver i menupunkterne er dem, du skal bruge efter %tegnet, men husk i den rigtige rækkefølge.

Hverken SendKeys "%kfe" eller SendKeys "%kfo" virker, Min tabel forstætter der hvor den slap.

Ja, men du kan også kun 0-stille Autonummer, hvis tabellen er helt tom!

Hvad sker der, når du bruger funktionen!

Tabelen er tom, i jeg skriver  DoCmd.RunSQL "Delete * from BygNet04", og der efter prøver jeg med SendKeys "%kfe. Men det virker ikke"

Prøv at lave en knap, der kun laver Sendkeys kommandoen

Kan det have noget at gøre med, at jeg har en form åben?

Næh, det virker glimerende hos mig med en form åben

Har du lavet din egen menu i formen?

Jeg har en form, med en knap, det er så meningen at når jeg klikker på knappen, så skulle den starte sletningen af tabellen, og komprimeringen

Dette er min kode: for


Private Sub ImportFil_Click()
If Me.FilNavn <> "" Then
If Dir("" & Me.FilNavn & "") <> "" Then
             
    DoCmd.SetWarnings False
    DoCmd.RunSQL "Delete * from BygNet04"
    DoCmd.SetWarnings True
    SendKeys "%kfo"
    DoCmd.TransferText acImportDelim, "Spec1", "BygNet04", "" & Me.FilNavn & ""
    DoCmd.RunSQL "Delete * from Kunder"
    CreateTable.CreateTable
 
Else
MsgBox ("Forkert dokument sti")
End If

Else
MsgBox "Indtast fil navnet"
End If

End Sub

min Autonummereringen bliver altså ikke sat til null, hverken med kode eller manuelt

Har du prøbet at lave en knapo med kun SendKeys koden? Hvordan gik det?

Hvad sker der, hvis du komprimerer manuelt?

Så lad mnig lige stille 10000 kr. spørgsmålet: Hvilken version af Access taler vi om?

okay, nu kan jeg få det til at virke manuelt, men jeg kan ikke få det til at virke med VBA

Jeg bruger Access 97

Hvis du nu i din form Trykker Alt+F, K, E hvad sker der så?

menner du ikke Alt+K+F+E ?

ved Alt+K+F+E sker der ikke noget, men den komprimere når jeg bruger Alt+K+F+O

Jo selvfølgelig, men det er ved at være for varmt til at tænke klart ;-)

OK. Så burde det også virke i kode. Mystisk!

Kan du evt. sende mig databasen, så skal jeg se på den?

kronsell@adslhome.dk

men kan det vær at tabellen ikke er slettet endnu når jeg prøver at komprimere?

Komprimerer koden? Altså virker koden uden at nummereringen bliver 0-stillet? Eller kører komprimeringen slet ikke?

Nu virker det, men kun med en ny knap, under fundktionen:

Private Sub Ryd_Click()
DoCmd.RunSQL "Delete * from BygNet04"
SendKeys "%kfo"

End Sub

Hvordan kan det være?
nåååå, okay, jeg tror det er fordi at jeg prøver at indlæse en fil lige efter jeg komprimere. når jeg køre den anden funktion, da bliver formen lukket.

Ok! Så er det nok fordi - som du sagde - at tabellen ikke når at blive tømt før koden afvikles. Hvis den virker her, tyder det på det.

Eller at komprimeringen måske stopper fordi koden går i gang med at importere.

Ja, tak for hjælpen...

Velbekomme! Tak for point!