Kategoriinddeling af tabel (Access)

Som jeg ser det, så vil det nemmeste være at skrive en stump VBA der looper din tabel og skriver Kat 1 i de først 100 records, Kat 2 i de næste 100 og Kat 3 i resten.

Jeg kan godt lige give det et forsøg lige om 1/2 time hvis det er

Lav en query hvor den sorterer efter MitKategoriFelt [ASC] og  MinDato [ASC], nævnt i den rækkefølge i querydesigngriddet.

Hugopedersen: Hvis du har tid/lyst ville det være rigtig rart og en stor hjælp. :-)

Følgende tager udgangspunkt i at der sorteres efter fldTimestamp og record nummer 1 til 100 bliver Kat. 1, 101 til 200 bliver Kat. 2 og alle øvrige bliver Kat. 3
Du skal selvfølgelig tilpasse feltnavne.
Huske reference til Microsoft ActiveX Data Object

Public Function fhpCategorize() As Integer
On Error GoTo Error_fhpCategorize
  Dim rst As New ADODB.Recordset
  Dim intRecord As Integer
 
  strSQL = "SELECT * FROM tblTest ORDER BY fldTimestamp"
  rst.Open strSQL, CurrentProject.Connection, adOpenStatic, adLockOptimistic
 
  intRecord = 0
  While Not rst.EOF
    intRecord = intRecord + 1
    Select Case intRecord
      Case 1 To 100
        rst!fldKategori = "Kat. 1"
      Case 101 To 200
        rst!fldKategori = "Kat. 2"
      Case Else
        rst!fldKategori = "Kat. 3"
    End Select
    rst.Update
    rst.MoveNext
  Wend
 
  rst.Close
  Set rst = Nothing

Exit_fhpCategorize:
  Exit Function

Error_fhpCategorize:
  fhpCategorize = -32768
  Select Case Err.Number
    Case 3021
    Case 2501
    Case Is < 0
    Case Else
      MsgBox Err.Number & ": " & Err.Description, vbOKOnly + vbCritical, "Error in procedure 'fhpCategorize'"
  End Select
  Resume Exit_fhpCategorize

End Function

Hvis du vil have min test DB (Access 2007) så giv et praj

Super fedt, Pedersen - jeg læser lige igennem, tilasser og indsætter :)

- Det vil jeg rigtig gerne !
masslyngby@hotmail.com

Er sendt til adressen.

Fantastisk Hugo! Mange tak for hjælpen :) - Du er dagens mand. Vil gerne give point.

Jamen det siger jeg da tak for :-)

Kun godt at det kunne hjælpe dig.
Du kan jo evt. udvide case delen hvis behovet opstår.

Ja - det kan vidst ordnes med en copy-paste aktion :-) Endnu engang tak !

Velbekom og tak for point.

Du har min hotmailadresse nu, hvis der skulle opstå andre spørgsmål i forbindelse hermed.