vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Schützen Sie Ihre Software vor Software-Piraterie - mit sevLock 1.0 DLL!  
 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
Re: Fokus setzen 
Autor: Annabelle
Datum: 14.03.05 08:57

Hallo und schön wieder von dir zu hören Armin ;)

Beide Varianten geben Fehlermeldungen. wie wars anders zu erwarten
1. Variante :" Sie haben einen Ausdruck eingegeben, der keinen Wert hat.@Der Ausdruck bezieht sich möglicherweise auf ein Objekt, das keinen Wert zurückgibt (z.B. ein Formular, ein Bericht oder ein Bezeichnungsfeld-Steuerelement)."

DoCmd.OpenForm "Formular3", acNormal, "", "", , acNormal
Form_Formular3.Visible = False

Form_Formular1.Befehl701.ForeColor = RGB(128, 0, 0)

Form_Formular3.Textfeld1.SetFocus
If Not Form_Formular3. Textfeld1 = "" Then
Form_Formular1.Befehl701.ForeColor = RGB(0, 128, 255)
End If

Form_Formular3. Textfeld2.SetFocus
If Not Form_Formular3. Textfeld 2 = "" Then
Form_Formular1.Befehl701.ForeColor = RGB(0, 128, 255)
End If

Form_Formular3. Textfeld3.SetFocus
If Not Form_Formular3. Textfeld3 = "" Then
Form_Formular1.Befehl701.ForeColor = RGB(0, 128, 255)
End If

Form_Formular3. Textfeld4.SetFocus
If Not Form_Formular3. Textfeld4 = "" Then
Form_Formular1.Befehl701.ForeColor = RGB(0, 128, 255)
End If

Form_Formular3. Textfeld5.SetFocus
If Not Form_Formular3. Textfeld5= "" Then
Form_Formular1.Befehl701.ForeColor = RGB(0, 128, 255)
End If

Form_Formular3. Textfeld6.SetFocus
If Not Form_Formular3. Textfeld6 = "" Then
Form_Formular1.Befehl701.ForeColor = RGB(0, 128, 255)
End If

DoCmd.Close acForm, "Formular3"

2. Variante: " variable nicht definiert" (Markiert zuerst Textfeld1)

DoCmd.OpenForm "Formular3", acNormal, "", "", , acNormal
Form_Formular3.Visible = False
Dim rs As Recordset
Set rs = Forms.Formular3.Recordset

If Not IsNull(rs(Textfeld1)) Then
Form_Formular1.Befehl701.ForeColor = RGB(0, 128, 255)
ElseIf Not IsNull(rs(Textfeld2)) Then
Form_Formular1.Befehl701.ForeColor = RGB(0, 128, 255)
ElseIf Not IsNull(rs(Textfeld3)) Then
Form_Formular1.Befehl701.ForeColor = RGB(0, 128, 255)
ElseIf Not IsNull(rs(Textfeld4 )) Then
Form_Formular1.Befehl701.ForeColor = RGB(0, 128, 255)
ElseIf Not IsNull(rs(Textfeld5)) Then
Form_Formular1.Befehl701.ForeColor = RGB(0, 128, 255)
ElseIf Not IsNull(rs(Textfeld6)) Then
Form_Formular1.Befehl701.ForeColor = RGB(0, 128, 255)
Else
Form_Formular1.Befehl701.ForeColor = RGB(255, 0, 0)
End If

DoCmd.Close acForm, "Formular3"


Ich denke mal bei der zweiten spreche ich das RS falsch an?
Und bei der ersten ist ja der selbe Fehler wie immer, der anscheinend auch dadruch nicht wegzubekommen ist, also vielleicht sollten wir uns lieber auf die Recordset Variante fokussieren
Gruß und danke für die Geduld

t?tet keine v?gel, wir v?geln auch keine toten!

alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Was ist hierdran falsch?1.835Annabelle09.03.05 09:44
Re: Was ist hierdran falsch?1.115teccer09.03.05 10:58
Re: Was ist hierdran falsch?1.051teccer09.03.05 11:10
Re: Was ist hierdran falsch?1.109Annabelle09.03.05 11:43
Re: Was ist hierdran falsch?1.149teccer09.03.05 12:56
Re: Was ist hierdran falsch?1.075Annabelle09.03.05 13:45
versuchs mal so1.107teccer09.03.05 13:59
Re: Was ist hierdran falsch?1.027teccer09.03.05 13:51
bitte schön1.076teccer09.03.05 14:27
Re: bitte schön1.187Annabelle09.03.05 14:38
Re: bitte schön1.108teccer09.03.05 14:43
Re: bitte schön1.055Annabelle09.03.05 14:44
Re: bitte schön1.009teccer09.03.05 14:54
Re: bitte schön1.176Annabelle10.03.05 07:48
Re: bitte schön1.105teccer10.03.05 10:09
Re: bitte schön1.112Stefan Rühl10.03.05 10:13
Re: bitte schön1.163teccer10.03.05 10:36
Re: bitte schön1.011Annabelle10.03.05 13:25
Hier geht es weiter993teccer10.03.05 13:44
Re: bitte schön1.035Annabelle10.03.05 13:50
Re: bitte schön1.009teccer10.03.05 13:52
?1.051Annabelle10.03.05 14:41
Re: ?1.100teccer10.03.05 16:59
Re: ?1.029Annabelle10.03.05 17:21
Re: ?1.089teccer10.03.05 17:34
Re: bitte schön1.044Annabelle10.03.05 14:53
Re: bitte schön1.023Stefan Rühl10.03.05 15:02
Re: bitte schön1.067Annabelle10.03.05 15:10
Re: bitte schön1.066teccer10.03.05 17:23
Re: Was ist hierdran falsch?1.113Stefan Rühl09.03.05 15:32
Re: Was ist hierdran falsch?1.008Annabelle10.03.05 07:51
Re: Was ist hierdran falsch?1.082Stefan Rühl10.03.05 08:38
Re: Was ist hierdran falsch?1.171Annabelle10.03.05 13:07
Re: Was ist hierdran falsch?1.019Annabelle10.03.05 13:03
Re: Was ist hierdran falsch?1.039teccer10.03.05 13:16
Re: Was ist hierdran falsch?1.079Annabelle10.03.05 13:28
Re: Was ist hierdran falsch?1.156siegipam10.03.05 16:30
So, das müsste es sein - Teil 11.075teccer10.03.05 19:01
So, das müsste es sein - Teil 21.042teccer10.03.05 19:09
Klappt1.053Annabelle11.03.05 09:52
Re: Klappt1.137teccer11.03.05 12:18
Re: Klappt1.092Annabelle11.03.05 12:52
Re: Klappt1.281teccer11.03.05 13:25
Fokus setzen1.101Annabelle11.03.05 14:05
Re: Fokus setzen1.019teccer11.03.05 14:43
Re: Fokus setzen1.096Prian081511.03.05 15:55
Re: Fokus setzen1.000teccer12.03.05 10:03
Re: Fokus setzen1.082Annabelle14.03.05 08:57
Re: Klappt1.006Stefan Rühl11.03.05 16:20
Re: Klappt1.013teccer12.03.05 10:04
verbesserung1.011Annabelle14.03.05 09:22
Nah dran1.012Annabelle14.03.05 09:36
Re: Nah dran1.013Stefan Rühl14.03.05 14:09
Re: Nah dran1.040Annabelle14.03.05 14:30
Re: verbesserung977Stefan Rühl14.03.05 15:08
Re: verbesserung1.003Annabelle15.03.05 08:28
Ergänzung1.081Annabelle15.03.05 09:14
Re: verbesserung1.042Stefan Rühl16.03.05 08:56
Testrunde1.101Annabelle17.03.05 08:31

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