Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Hilfe !!! Objektvariable oder With-Blockvariable nicht festgelegt
Autor: salzlp
Datum: 12.12.02 16:12
hi dieter, haut irgendwie einfach nicht hin, bin wahrscheinlich zu blöd dazu den fehler zu finden. krieg jetzt die fehlermeldung dass eine mehrfahcdeklaration vorliegt, kann aber keine mehrfachdeklaration finden. hab eine form die die datenbank erzeugt und eine form die für die dateneingabe vorgesehen ist. code von der ersten form: ------------------------------------------------- Private Sub cmdDatenEingabe_Click() frmEingabe.Show End Sub Private Sub cmdDBClose_Click() 'schliessen der datenbank und der tabelle tabelle.Close db.Close Set tabelle = Nothing Set db = Nothing End Sub Private Sub cmdOpenDB_Click() 'öffnen der datenbank und der Tabelle Dim db As Database Dim tabelle As Recordset Dim dbFile As String dbFile = App.Path + "\adressen.mdb" Set db = Workspaces(0).OpenDatabase(dbFile, False, False) 'db = name der datenbank 'false = zugriffsmodus; false bed. nicht exclusive 'false = kein schreibschutz, true = schreibgeschützt Set tabelle = db.OpenRecordset("Adressdaten") End Sub Private Sub Form_Load() Dim db As Database 'objektvariable vom type database Dim tabelle As Recordset Dim dbFile As String ' ********** erstellen der leeren datenbankdatei *************************** 'createDatabase erzeugt die leere Datenbankdatei, dbFile = App.Path + "\adressen.mdb" Set db = Workspaces(0).CreateDatabase(dbFile, dbLangGeneral, _ dbEncrypt + dbVersion30) '********** erstellen der datenbank-tabellen ***************************** Dim tabelle As New TableDef Dim feld As New Field tabelle.Name = "Adressdaten" 'datenfeld #1 feld.Name = "AdressNr" feld.Type = dbLong 'long integer feld.Attributes = dbAutoIncrField 'zähler mit automatischer erhöhung tabelle.Fields.Append feld 'über die append methode werden die felder der 'tabelle zugewiesen Set feld = Nothing 'bevor das nächste feld erstellt wird muss die 'objekt variable feld auf nothing gesetzt werden 'usw. 'datenbanktabelle der datenbank hinzufügen db.TableDefs.Append tabelle db.Close 'datenbank tabelle schliessen 'tabelle und db vom speicher freigeben Set tabelle = Nothing Set db = Nothing code von der 2. form: ----------------------------------------------- Option Explicit Public NeueAdresse As Boolean Private Sub cmdCancel_Click() Me.Tag = False Me.Hide End Sub Private Sub cmdSave_Click() Dim i As Integer If NeueAdresse Then tabelle.AddNew Else tabelle.Edit End If For i = 1 To 11 tabelle(i) = txtEingabe(i).Text Next i tabelle.Update Me.Tag = True Me.Hide End Sub Private Sub Form_Load() 'beim laden der form wird NeueAdresse auf true gesetzt. NeueAdresse = True End Sub Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) If UnloadMode <> 1 Then Cancel = True cmdCancel.Value = True End If End Sub

Hilfe !!! Objektvariable oder With-Blockvariable nicht festg...	153	salzlp	12.12.02 15:44
Re: Hilfe !!! Objektvariable oder With-Blockvariable nicht f...	1.147	Dieter	12.12.02 15:48
Re: Hilfe !!! Objektvariable oder With-Blockvariable nicht f...	123	salzlp	12.12.02 15:52
Re: Hilfe !!! Objektvariable oder With-Blockvariable nicht f...	1.092	Dieter	12.12.02 15:57
Re: Hilfe !!! Objektvariable oder With-Blockvariable nicht f...	131	salzlp	12.12.02 16:12
Re: Hilfe !!! Objektvariable oder With-Blockvariable nicht f...	116	rasmel	12.12.02 16:22

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