Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: bookmarks übergeben?
Autor: svenni
Datum: 17.10.02 16:14
das ist aber ne ganze menge: Option Explicit Dim WithEvents adoRS As Recordset Dim mbChangedByCode As Boolean Dim mvBookMark As Variant Dim mbEditFlag As Boolean Dim mbAddNewFlag As Boolean Dim mbDataChanged As Boolean Private Sub cmdadd_Click() On Error GoTo AddErr With adoRS If Not (.BOF And .EOF) Then mvBookMark = .BookMark End If .AddNew mbAddNewFlag = True txtcustid.SetFocus txtland.Text = "D" cmbtitle.Text = "Firma" cmbgroup.Text = "Normal" cmbtax.Text = "zuzüglich" End With Exit Sub AddErr: MsgBox Err.Description End Sub Private Sub cmdcancel_Click() On Error Resume Next mbEditFlag = False mbAddNewFlag = False adoRS.CancelUpdate If mvBookMark > 0 Then adoRS.BookMark = mvBookMark Else adoRS.MoveFirst End If mbDataChanged = False End Sub Private Sub cmddelete_Click() Dim ergebnis& On Error GoTo DeleteErr ergebnis = MsgBox("Wollen SIe den aktuellen Datensatz wirklich löschen ?", vbYesNoCancel) If ergebnis = vbYes Then With adoRS .Delete .MoveNext If .EOF Then .MoveLast End With End If Exit Sub DeleteErr: MsgBox Err.Description End Sub Private Sub cmdedit_Click() On Error GoTo EditErr If cmdedit.Caption = "ändern" Then mbEditFlag = True txtcustid.SetFocus cmdedit.Caption = "Speichern" Else cmdedit.Caption = "ändern" MsgBox ("Die Änderungen wurden gespeichert!") End If Exit Sub EditErr: MsgBox Err.Description End Sub Private Sub cmdfirst_Click() On Error GoTo GoFirstError adoRS.MoveFirst mbDataChanged = False Exit Sub GoFirstError: MsgBox Err.Description End Sub Private Sub cmdlast_Click() On Error GoTo GoLastError adoRS.MoveLast mbDataChanged = False Exit Sub GoLastError: MsgBox Err.Description End Sub Private Sub cmdnext_Click() On Error GoTo GoNextError If Not adoRS.EOF Then adoRS.MoveNext If adoRS.EOF And adoRS.RecordCount > 0 Then Beep MsgBox ("Der letzte Datensatz ist erreicht") 'moved off the end so go back adoRS.MoveLast End If 'show the current record mbDataChanged = False Exit Sub GoNextError: MsgBox Err.Description End Sub Private Sub cmdprevius_Click() On Error GoTo GoPrevError If Not adoRS.BOF Then adoRS.MovePrevious If adoRS.BOF And adoRS.RecordCount > 0 Then Beep MsgBox ("Der erste Datensatz ist erreicht") 'moved off the end so go back adoRS.MoveFirst End If 'show the current record mbDataChanged = False Exit Sub GoPrevError: MsgBox Err.Description End Sub Private Sub cmdsearch_Click() adoRS.AddNew customersearch.Show '( suchmaske) End Sub Private Sub cmdstore_Click() On Error GoTo UpdateErr adoRS.UpdateBatch adAffectAll If mbAddNewFlag Then adoRS.MoveLast 'move to the new record End If mbEditFlag = False mbAddNewFlag = False mbDataChanged = False MsgBox ("Der Kunden wurde neu angelegt !") Exit Sub UpdateErr: MsgBox Err.Description End Sub Private Sub Form_Load() Set adoRS = DataEnv.rscustomer If adoRS.State = adStateClosed Then adoRS.Open CursorType:=adOpenStatic, LockType:=adLockOptimistic End If 'Bind the text boxes to the data provider Set txtcustid.DataSource = adoRS txtcustid.DataField = "3-L-Code" Set txtfname.DataSource = adoRS txtfname.DataField = "Vorname" Set txtname.DataSource = adoRS txtname.DataField = "Name" Set txtname2.DataSource = adoRS txtname2.DataField = "Name2" Set txtland.DataSource = adoRS txtland.DataField = "Land" Set txtcountry.DataSource = adoRS txtcountry.DataField = "Ort" Set txtpostcode.DataSource = adoRS txtpostcode.DataField = "PLZ" Set txtphone.DataSource = adoRS txtphone.DataField = "Telefon" Set cmbtitle.DataSource = adoRS cmbtitle.DataField = "Anrede" Set cmbgroup.DataSource = adoRS cmbgroup.DataField = "Preisgruppe" Set cmbtax.DataSource = adoRS cmbtax.DataField = "MWST" Set txtstreet.DataSource = adoRS txtstreet.DataField = "Strasse" Set txtsales.DataSource = adoRS txtsales.DataField = "Umsatz" cmdstore.Visible = False mbDataChanged = False End Sub und die suchmaske: Private Sub cmdsearch_Click() DataGrid1.Visible = False Dim SuchName Dim SuchNummer As Integer Dim sql$ Dim adoRS As New Recordset txtsearchcid.SetFocus SuchName = txtsearchname.Text SuchNummer = Val(txtsearchcid.Text) customer.txtcustid.Text = "" customer.txtfname.Text = "" customer.txtfname.Text = "" customer.txtname.Text = "" customer.txtname2.Text = "" customer.txtstreet.Text = "" customer.txtland.Text = "" customer.txtcountry.Text = "" customer.txtpostcode.Text = "" customer.txtphone.Text = "" customer.txtsales.Text = "" customer.cmbtitle.Text = "" customer.cmbgroup.Text = "" customer.cmbtax.Text = "" If SuchName = "" And txtsearchcid.Text = "" Then MsgBox ("Bitte Suchkriterium eingeben !") Exit Sub End If If SuchName <> "" And txtsearchcid.Text = "" Then MsgBox ("Die Suche kann nur nach einem Suchkriterium erfolgen !") txtsearchcid.Text = "" txtsearchname.Text = "" Exit Sub End If If txtsearchcid.Text = "" Then sql = "SELECT * FROM Kunden WHERE Name = '" & SuchName & "'" Else sql = "SELECT * FROM Kunden WHERE [3-L-Code] = " & CStr(SuchNummer) End If Set adoRS = New Recordset adoRS.CursorLocation = adUseClient adoRS.Open sql, DataEnv.conbot, adOpenStatic, adLockReadOnly If adoRS.RecordCount = 0 Then MsgBox ("Kunde nicht vorhanden") txtsearchcid.Text = "" txtsearchname.Text = "" Exit Sub ElseIf txtsearchname = "" And adoRS.RecordCount > 0 Then 'BookMark = rec.BookMark ist nur ein versuch !!! customer.Show If IsNull(adoRS![3-L-Code]) Then customer.txtcustid.Text = "" Else customer.txtcustid.Text = adoRS![3-L-Code] End If If IsNull(adoRS!Vorname) Then customer.txtfname.Text = "" Else customer.txtfname.Text = adoRS!Vorname End If If IsNull(adoRS!Name) Then customer.txtname.Text = " " Else customer.txtname.Text = adoRS!Name End If If IsNull(adoRS!Name2) Then customer.txtname2.Text = "" Else customer.txtname2.Text = adoRS!Name2 End If If IsNull(adoRS!Strasse) Then customer.txtstreet.Text = " " Else customer.txtstreet.Text = adoRS!Strasse End If If IsNull(adoRS!PLZ) Then customer.txtpostcode.Text = " " Else customer.txtpostcode.Text = adoRS!PLZ End If If IsNull(adoRS!Land) Then customer.txtland.Text = " " Else customer.txtland.Text = adoRS!Land End If If IsNull(adoRS!Ort) Then customer.txtcountry.Text = " " Else customer.txtcountry.Text = adoRS!Ort End If If IsNull(adoRS!Telefon) Then customer.txtphone.Text = " " Else customer.txtphone.Text = adoRS!Telefon End If If IsNull(adoRS!Preisgruppe) Then customer.cmbgroup.Text = " " Else customer.cmbgroup.Text = adoRS!Preisgruppe End If If IsNull(adoRS!Anrede) Then customer.cmbtitle.Text = " " Else customer.cmbtitle.Text = adoRS!Anrede End If If IsNull(adoRS!MWST) Then customer.cmbtax.Text = " " Else customer.cmbtax.Text = adoRS!MWST End If If IsNull(adoRS!Umsatz) Then customer.txtsales.Text = " " Else customer.txtsales.Text = adoRS!Umsatz End If Me.Hide txtsearchcid.Text = " " Else With DataGrid1 .DataMember = "" Set .DataSource = adoRS ' .ReBind '.Caption = "Bestellungen " & DataCombo1.Text & " -- Personalnummer " & DataCombo1.BoundText .Columns("3-L-Code").Visible = False .Columns("Preisgruppe").Visible = False .Columns("Umsatz").Visible = False .Columns("Anrede").Visible = False .Visible = True End With txtsearchcid.Text = "" txtsearchname.Text = "" End If End Sub so das war mein tageswerk / oder besser gesagt fast wochenwerk ,-)

bookmarks übergeben?	78	svenni	17.10.02 15:58
Re: bookmarks übergeben?	232	Leominora	17.10.02 16:01
Re: bookmarks übergeben?	41	svenni	17.10.02 16:14

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

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen