Thema Datum  Von Nutzer Rating
Antwort
27.04.2004 12:15:24 manuel
NotSolved
Blau Aw:Access + VBA
 27.04.2004 12:41:55 Oliver
NotSolved

Ansicht des Beitrags:
Von:
Oliver		 Datum:
27.04.2004 12:41:55		 Views:
1135		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Access + VBA
Hallo Manuel,

ich würde einmal in der start-prozedur die gesamt-datensatz-anzahl in eine textbox schreiben.
die buttons lösen bei klick ein ereignis aus.

bei jedem dieser button_clicks würde ich die position des recordsets verändern...

bsp:

sub form_load

dim anzahl as integer
dim acitvePOS as integer

anzahl = rs.recordcount

rs.movefirst
activePOS = 0 'da recordset nullbasiert ist

end sub


sub button1_click 'vor

activePOS= activePOS + 1
rs.move activePOS 'oder
rs.absoulteposition = activepos
textbox1.text = str(activepos)

end sub

sub button2_click'zurück

activepos = activepos -1

if activepos >= 0 then

rs.move activepos'oder
rs.absoluteposition = activepos
textbox1.text = str(activepos)

end if
end sub

hoffe das hilft dir so weiter, ansonsten bitte dein problem näher beschreiben

schöne grüße

Oliver


manuel schrieb am 27.04.2004 12:15:24:

hallo zusammen,

ich bins mal wieder - also ich hab ne access-tabelle - in der fussleiste hab ich "gehe zum naechsten datensatz" "gehe zum letzten datensatz" usw buttons - daneben zwei textfelder in welchen er mir anzeigen soll in welchen datensatz von wieviel datensatzen ich bin! nun hab ich folgenden code :

Private Sub Form_Current()

Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim txtDatensatznummer As String
Dim txtDatensatzGesamt As String

Set db = CurrentDb()
Set rs = Me.RecordsetClone
txtDatensatzGesamt = rs.RecordCount

txtDatensatznummer = Me.CurrentRecord

End Sub

aber er zeigt mir nichts an dín den textfelder! hm?

die textfelder - wie bennen ich die? doch ganz normal in den eigenschaften registerkarte "andere" und da in namen! Oder?

danke schon mal!

gruss manuel!

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
27.04.2004 12:15:24 manuel
NotSolved
Blau Aw:Access + VBA
 27.04.2004 12:41:55 Oliver
NotSolved