simpel tæller ?

På en knap placere du denne kode:

Dim n as integer
docmd.setwarnings false
For n = 1 to 100
  docmd.runSQL "INSERT INTO 100plus( Nummer ) SELECT " & DMax("Nummer","100plus")+1 &  " AS Expr1;"
next n
docmd.setwarnings true

almost the same as mine Thomas DMAX 100 times!!

Private Sub Command4_Click()
Dim i As Integer
Dim start As Variant


    start = DMax("nummer", "100plus")
   
    If IsNull(start) Then start = 1
   
    For i = start To start + 99
   
        DoCmd.SetWarnings False
        DoCmd.RunSQL "INSERT INTO 100plus ( nummer ) VALUES ( " & i & ")"
        DoCmd.SetWarnings False
       
    Next i

End Sub

also error if NULL

tak !.. de virker fint begge 2.

selv tak :o)

utilfreds med pointfordelingen ? drop en linie..så ordner vi det *S*

Oh I could have set the setwarning OUTSIDE the loop as Thomas has done :o)

No, as long as Thomas is happy, he did actually get there first :o)

hvad med.. hvordan opfrisker jeg form/tabel med en knap, efter tilføjelsen af de 100 numre..se efter spørgsmålet i listen *S*
Svarer I begge, igen, får I 100 hver !

me.requery

Private Sub Command4_Click()
Dim i As Integer
Dim start As Variant


    start = DMax("nummer", "100plus")
   
    If IsNull(start) Then start = 1
    DoCmd.SetWarnings False
    For i = start To start + 99
   
       
        DoCmd.RunSQL "INSERT INTO 100plus ( nummer ) VALUES ( " & i & ")"
       
       
    Next i

    DoCmd.SetWarnings False
    Me.requery
End Sub

terry > Hvad skal det dog blive til med dig? :o)
Du sætter jo Warnings til False 2 gange!
Den sidste kommentar fra spørgeren går ud på, at formularen/ tabellen skal opfriskes, er det ikke mere relevant at bruge Me.Refresh? Eller har du en dybere mening med brugen af Me.Requery i dette tilfælde?

Mvh / mugs

well spotted mugs (SetWarnings False
), I was testing to see if anyone else was awake out there ! :o(

Concerning REQUERY and REFRESH! Well I must admit it isnt always clear to me WHEN they should be used. But I know that this works.
REQUERY Updates the data in a Recordset object by re-executing the query on which the object is based.

I also tried REFRESH and although the recordsét seems to get updated the navigation button ´doesnt seem to get updated!

Undskyld at jeg blander mig... MEN

hvorfor ikke lave en tabel [1-100], som indeholder 1 felt ([nr]), som fx er en byte-værdi... indsæt dér alle tal fra 1 til 100 een gang for alle...

Derefter kan følgende query kaldes een gang, for at opnå samme resultat, som jeres 100 query-kald...

INSERT INTO 100plus (Nummer) SELECT [nr]+nz(DMax("[Nummer]","100plus")) FROM [1-100];

BTW: nz()-funktionen kan udelades, hvis man er sikker på at der eksisterer data i tabellen i forvejen...

MVH
Poul Erik