Avatar billede mc.lucifer Praktikant
03. december 2002 - 13:41 Der er 10 kommentarer og
3 løsninger

Data1.Recordset.RecordCount

Jeg har lige 3 små sp

Jeg har en label der skal tælle alle recordene i min Access Db
Dette gør jeg sådanne her

Label3.Caption = Data1.Recordset.RecordCount

Men den skriver ikke noget i label 3 før jeg trykker på den, har prøvet at sætte koden på form_Onload men dette giver kun en fejl mdl
Så hvordan klare jeg den ??

Har lavet 2 knapper hvor man skal kunne bladre i mine recordset´s dette fungere også fint nok men de bladre ud over de recordset der er i DBén Dvs de bladre også til et tomt recordset.
Bruger følgende kode til det
Data1.Recordset.MovePrevious
Og
Data1.Recordset.MoveNext

Findes der en bedere måde

Det var så kun 2 sp ok

MC
Avatar billede amerikaner Nybegynder
03. december 2002 - 13:52 #1
You have to count the records before you get the count :-)
Data1.Recordset.MoveLast    '-- To get the count
Data1.Recordset.MoveFirst  '-- To get back to where you were
Label3.Caption = Data1.Recordset.RecordCount

2 knapper: Check for EOF and BOF
If not Data1.Recordset.EOF then Data1.Recordset.MoveNext
Avatar billede amerikaner Nybegynder
03. december 2002 - 13:52 #2
or even better
If Data1.Recordset.EOF then
Data1.Recordset.MoveNext
Avatar billede amerikaner Nybegynder
03. december 2002 - 13:54 #3
OPPS fingers are too fast

If Data1.Recordset.EOF then
  Data1.Recordset.MoveFirst
Else
  Data1.Recordset.MoveNext
End if

If Data1.Recordset.BOF then
  Data1.Recordset.MoveLast
Else
  Data1.Recordset.MovePrevious
End if
Avatar billede knico Nybegynder
03. december 2002 - 13:59 #4
Hvad angår manglende opdatering af labelen så kan du lægge koden i subrutinen Form_Activate i stedet for Form_Onload.
Hvad angåt kanpperne. Får du ikke bare besked på at der ikke er flere records og er det egentlig ikke rart at vide?
Avatar billede mc.lucifer Praktikant
03. december 2002 - 14:52 #5
Min label skrive at der er 1 record i DB´en men jeg ved der er 3

Og når jeg har indsat coder ne som Americaner har skrevet for jeg en fejl når jeg når ud i enden af DB´en

The Actions was Cancelled by and asociated objeckt

MC
Avatar billede mc.lucifer Praktikant
03. december 2002 - 14:54 #6
Jeg skal lige sige at jeg startede med VB i sidste uge såå åjeg udelukker ikke at jeg har en fejl et eller andet sted
MC
Avatar billede amerikaner Nybegynder
03. december 2002 - 15:20 #7
Deet er faktisk interesant

Den skriver ikke noget i label til du klik fordi du har set den i subroutine

Private Sub Label3_Click()
  Label3.Caption = Data1.Recordset.RecordCount
End sub

Set den her ind, det virker på min system...

Private Sub Form_Activate()
    Me.Data1.Recordset.MoveLast
    Me.Label3.Caption = Me.Data1.Recordset.RecordCount
    Me.Data1.Recordset.MoveFirst
End Sub
Avatar billede mc.lucifer Praktikant
03. december 2002 - 15:23 #8
Fino det var så label3 nu tæller den antal records ritigt.

Men mine frem og tilbaghe knappe giver som sagt en
The Actions was Cancelled by and asociated objeckt

Når jeg trykker næste efter at den er nårt ud til en tom record.

MC
Avatar billede mc.lucifer Praktikant
03. december 2002 - 15:36 #9
Det jeg gerne vil have.

Data1 er viseble  = False
Så jeg vil have 2 knapper der har samme funktion som den
MC
Avatar billede amerikaner Nybegynder
03. december 2002 - 15:46 #10
Den her virker for mig

Me.Data1.Recordset.MoveNext
If Me.Data1.Recordset.EOF Then Me.Data1.Recordset.MovePrevious

Grim men den hoppe tilbage til den sidste post hvis jeg flyte til End Of File

Og...
Me.Data1.Recordset.MovePrevious
If Me.Data1.Recordset.BOF Then Me.Data1.Recordset.MoveNext
Avatar billede arnvig Nybegynder
03. december 2002 - 17:35 #11
Label1.update
Avatar billede arnvig Nybegynder
03. december 2002 - 17:36 #12
whoops: Label1.refresh  er det rigtige
Avatar billede mc.lucifer Praktikant
26. december 2002 - 21:51 #13
Har sku et eller andet sted mistet kontakten med dette sp, da jeg er kommet væk fra ideen,

I for lige lov at dele pointene

MC
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester