|
| |
Visual-Basic Einsteiger| Commandbutton sperren | |  | | Autor: Surfine2001 | | Datum: 22.04.03 11:04 |
| Hallo,
hab da wieder ein Problem, hoffe ihr könnt mir weiterhelfen.
Folgendes, ich habe ein Programm geschrieben, welches die Daten aus der Datenbank ausliest, zurückschreibt und neue Daten einfügt. Mein Problem ist nun, wenn ich das Programm starte, dann sollen die Tasten "zurück" und "zum Anfang" gesperrt werden, da die Datenbank schon am Anfang des Datensatzes befindet.
Zur Zeit ist es so, wenn ich das Programm starte, wird mir der erste Datensatz angezeigt und ich kann einen Datensatz zurück und dann erst sperrt er mir die zwei Tasten. Nur er ist dann ausserhalb des Datensatzes. Wie kann ich es anders lösten?
Hier ist ein Beispielcode (in einem Modul):
Public Sub cmdPrevious_Click()
' zurückblättern
' MsgBox "Recordcount! " & ADOrs.RecordCount & " BOF " & ADOrs.BOF & " EOF "
' & ADOrs.EOF
With ADOrs
If .RecordCount > 0 Then
.MovePrevious
EigentuemerDaten
If .BOF Then
.MoveFirst
EigentuemerDaten
End If
End If
End With
End SubUnd dieser ist in Form1:
' ein Datensatz zurück
Private Sub cmdPrevious_Click()
On Error GoTo GoPrevError
ModEigentuemer.cmdPrevious_Click
text1(0) = EigentuemerAnrede
text1(1) = EigentuemerVorname
text1(2) = EigentuemerNachname
text1(3) = EigentuemerStrasse
text1(4) = EigentuemerPLZ
text1(5) = EigentuemerOrt
lblStatus.Caption = "Datensatz: " & CStr(ADOrs.AbsolutePosition)
If ADOrs.EOF = False Then
cmdNext.Enabled = True
cmdLast.Enabled = True
If ADOrs.BOF = False Then
ButtonsEntsperren
cmdPrevious.Enabled = True
cmdFirst.Enabled = True
End If
End If
Exit Sub
GoPrevError:
If ADOrs.EOF = False Then
cmdNext.Enabled = True
cmdLast.Enabled = True
If ADOrs.BOF = True Then
ButtonsSperren
cmdPrevious.Enabled = False
cmdFirst.Enabled = False
End If
End If
End SubUnd fast genauso ist es mit dem "vor" Button. Die Tasten werden erst gesperrt, wenn ich über dem Datensatz hinaus bin.
Hoffe mir kann diesesmal jemand helfen, ich komme da nämlich nicht weiter.
Gruss
Agnes 
------------------------------------
Wenn wir heut gemeinsam starten
und wir alle viel erwarten,
denken wir an jedem Tag daran,
dass man es nur schaffen kann,
wenn wir fest zusammen stehen
und den Weg gemeinsam gehen. | |
 | Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
 Einloggen | Neu registrieren |
 |
|
sevGraph (VB/VBA) 
Grafische Auswertungen
Präsentieren Sie Ihre Daten mit wenig Aufwand in grafischer Form. sevGraph unterstützt hierbei Balken-, Linien- und Stapel-Diagramme (Stacked Bars), sowie 2D- und 3D-Tortendiagramme und arbeitet vollständig datenbankunabhängig! Weitere InfosTipp des Monats  Oktober 2025
Matthias KozlowskiUmlaute konvertierenErsetzt die Umlaute in einer Zeichenkette durch die entsprechenden Doppelbuchstaben (aus ä wird ae, usw.) Access-Tools Vol.1 
Über 400 MByte Inhalt
Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB
Nur 24,95 EURWeitere Infos
|
| |
|
Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|
Sie sind aktuell nicht angemeldet.
