vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 vb@rchiv Offline-Reader - exklusiv auf der vb@rchiv CD Vol.4  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB & Datenbanken
Fehler beim Kompilieren 
Autor: d.brockmoeller
Datum: 03.08.04 19:16
hi Leute!! Hab mal etwas auf der vb-archiv seite gefunden, bekomme aber immer eine Fehlermeldung: METHODE ODER MITGLIEDSDATEN NICHT GEFUNDEN!!!!!

wird in der 3. Zeile angezeigt!!!!!! Set Db=Db.Open.........
Private Sub Form_Load()
' Datenbank öffnen
Set Db = Db.OpenRecordset("C:\DJ's Verwaltungsprogramm\Kunden.MDB")

' Recordset öffnen (Dynaset)
Set Rs = Db.OpenRecordset("straße", dbOpenDynaset)
End Sub

' Eingabe autom.vervollständigen
Private Sub txtVertreter_Change()
Dim SQL As String
Dim lPos As Long
Dim sName As String
Dim sVorname As String
Dim sPos As Long

With txtvertreter
If Trim$(.Text) = "" Or _
.Tag = "NoAction" Then Exit Sub

' aktuelle Eingabeposition merken
sPos = .SelStart

' Komma vorhanden?
lPos = InStr(.Text, ",")
If lPos > 0 Then
sName = Left$(.Text, lPos - 1)
sVorname = Trim$(Mid$(.Text, lPos + 1))
Else
sName = .Text: sstraße = ""
End If

' SQL-Kommando erstellen
If sVorname = "" Then
SQL = "h_nr LIKE '" & sh_nr & "*'"
Else
SQL = "h_nr = '" & sh_nr & "' AND " & _
"straße LIKE '" & sstraße & "*'"
End If

' Abfrage!
Rs.FindFirst SQL
If Not Rs.NoMatch Then
' Eintrag gefunden!
.Tag = "NoAction"

' Vollständigen Namen in die TextBox schreiben
.Text = Rs("h_nr") & ", " & Rs("straße")

' Eingabe markieren: von der aktuellen
' Eingabeposition bis zum Ende der Eingabe
.SelStart = sPos
.SelLength = Len(.Text) - sPos
.Tag = ""
End If
End With
End Sub

Private Sub Form_Unload(Cancel As Integer)
' Datenbank schlißen
Rs.Close
Db.Close

Set Rs = Nothing
Set Db = Nothing
End Sub


Bitte helft mir mal schnell!!!!!!!!!

MFG
DJ
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Fehler beim Kompilieren780d.brockmoeller03.08.04 19:16
Re: Fehler beim Kompilieren620devnull04.08.04 08:50

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übersichtSuchen 

nach obenzurück
  
   

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