vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Top-Preis! AP-Access-Tools-CD Volume 1  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück

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

Fortgeschrittene Programmierung
geht nicht ! 
Autor: Michael
Datum: 17.09.01 12:51

Hallo Dieter,

auch das habe ich versucht !! Dann bekomme ich jedoch die Fehlermeldung:
Objektvariable oder With-Blockvariable nicht festgelegt
!!!!!

Ich habe Dir den Code des Formes mal angeheftet !

Private Sub Data1_Validate(Action As Integer, Save As Integer)


If Data1.Recordset!Rückrufja = 1 Then
ja1 = 1
nein1 = 0
If Data1.Recordset!Rückrufwann > "" Then
wann1.Visible = True
wann.Visible = True
wann1.Text = Data1.Recordset!Rückrufwann
End If
End If
If Data1.Recordset!Rückrufnein = 1 Then
ja1 = 0
nein1 = 1
End If

If Data1.Recordset!Werbematerialja = 1 Then
ja3 = 1
nein3 = 0
End If
If Data1.Recordset!Werbematerialnein = 1 Then
ja3 = 0
nein3 = 1
End If

If Data1.Recordset!Besuchja = 1 Then
ja2 = 1
nein2 = 0
If Data1.Recordset!Besuchwann > "" Then
wann2.Visible = True
Label1.Visible = True
wann2.Text = Data1.Recordset!Besuchwann
End If
End If
If Data1.Recordset!Besuchnein = 1 Then
ja2 = 0
nein2 = 1
End If
If test = 0 Then
Data1.Recordset.MoveFirst
test = 1
Exit Sub
End If

If ja1 = 1 Then
If wann1 = "" Then
wann1.Visible = False
wann.Visible = False
End If
End If

If ja2 = 1 Then
If wann2 = "" Then
wann2.Visible = False
Label1.Visible = False
End If
End If

If nein1 = 1 Then
wann1.Visible = False
wann.Visible = False
End If

If nein2 = 1 Then
wann2.Visible = False
Label1.Visible = False
End If
End Sub
Private Sub Form_Load()
Data1.DatabaseName = (App.Path + "\" + "KundenDaten.mdb")
Data1.RecordSource = "Stammdaten"
End Sub


Bitte hilf mir !!

Danke
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Probleme mit Checkboxen40Michael17.09.01 12:16
Re: Probleme mit Checkboxen266ModeratorDieter17.09.01 12:42
geht nicht !23Michael17.09.01 12:51
Re: geht nicht !287ModeratorDieter17.09.01 13:09
Schon fast gut !!24Michael17.09.01 13:15
Re: Schon fast gut !!267ModeratorDieter17.09.01 13:27
NEIN22Michael17.09.01 13:30
Sorry...dann weiss ich momentan auch keinen Rat mehr (oT)256ModeratorDieter17.09.01 13:32
OK, ich habe mich mal....25Michael17.09.01 13:33

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-2024 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