Supportnet / Forum / Datenbanken

Hallo zusammen, Ich habe da ein kleines Problem mit dem Handling von Formularen. Hier werden von Fahrzeugen Daten erfasst, einige bleiben für das Fahrzeug konstant ( ProdNR,Farbcode) und andere Daten sind Variabel ( Messdaten). Pro Fahrzeugseite ist ein Formular vorgesehen, da Grafiken mit eingebettet sind. Damit der User für das Fahrzeug nicht jedesmal die Konstanten Werte eingeben muss habe nich folgenden Code hinterlegt: [code]Private Sub Befehl13_Click() On Error GoTo Err_Befehl13_Click Dim a, b, c, d As String Dim stDocName As String Dim stLinkCriteria As String If Me!ProdNR.Value = True Then a = Me!ProdNR.Value b = Me!Typ.Value c = Me!Farbcode.Value d = Me!Linie.Value stDocName = "Hazelinks" DoCmd.OpenForm stDocName, , , stLinkCriteria MsgBox " Es ist eine aktuelle Produktionsnummer vorhanden,Grundaten werden übernommen", vbInformation, "Hinweis! " Forms!Hazelinks!ProdNR = a Forms!Hazelinks!Typ = b Forms!Hazelinks!Farbcode = c Forms!Hazelinks!Linie = d Forms!Hazelinks!mp1.SetFocus Else stDocName = "Hazelinks" DoCmd.OpenForm stDocName, , , stLinkCriteria Forms!Hazelinks!Typ.SetFocus Exit_Befehl13_Click: Exit Sub Err_Befehl13_Click: MsgBox Err.Description Resume Exit_Befehl13_Click End If End Sub[/code] Das zu öffnende Formular beginnt bei einem neuen Datensatz, und die Daten werden entsprechend eingetragen, soweit so gut. Probleme ergeben sich jetzt, wenn der Kollege durch die Datensätze nur Blättern möchte. Dafür ist ein Button vorgesehen mit folgenden Code: [code]Private Sub Befehl40_Click() On Error GoTo Err_Befehl40_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = "Hazelinks" stLinkCriteria = "[ProdNR]=" & "´" & Me![ProdNR] & "´" DoCmd.OpenForm stDocName, , , stLinkCriteria Exit_Befehl40_Click: Exit Sub Err_Befehl40_Click: MsgBox Err.Description Resume Exit_Befehl40_Click End Sub[/code] Hier wird aber dann immer ein leerer Datensatz angezeigt ? Gruß Ralf

Hallo,
vielleicht fehlt nur ein Leerzeichen nach dem Gleichheitsszeichen ?

stLinkCriteria = "[ProdNR]=" & "´" & Me![ProdNR] & "´"

stLinkCriteria = "[ProdNR]= " & "´" & Me![ProdNR] & "´"

Gruß Gudrun

Hallo Gudrun,
daran liegt`s leider nit.

steht vielleicht im Formular "Daten eingeben" auf ja ? d.h. sprimgt das Formular direkt auf erfassen ?

Gruß
Teddy

ProdNr scheint ein Ja/Nein-Feld zu sein, immerhin prüfst du es auf "True". Daher solltest du bei beim Aufbau der Bedingung die Hochkommas weglassen, weil Ja/Nein-Werte keine Texte sind.

stLinkCriteria = "[ProdNR]="  & Me![ProdNR]

@ Teddy, Daten eingeben ist Nein

@ erik , ProdNR ist Text, da in der Produktionsnummer auch Buchstaben vorkommen.
Gruß Ralf

Hab da jetzt was entdeckt,

Wenn ich das 2. Formular öffne, sind keine Daten enthalten, und somit kann das ja auch nicht funktionackeln. In der Tabelle sind allerdings Datenenthalten.
Habe die DB komprimiert und Repariert und die Tabellen neu verknüpft, allerdings bleibt das Problem bestehen ?

Jetzt weis ich garnix mehr :(
Gruß Ralf

Ist die Filtereigenschaft aus früheren Versuchen vielleicht mit irgendwas bestückt? Die Filter lassen sich gerne mal heimlich mitspeichern.

@ erik,
ja da war was, hab es gelöscht und erneut versucht, leider ohne Erfolg !

Worann könnte es denn sonst noch so liegen ?

Hallo und Guten Morgen !

Habe jetzt das Formular gelöscht, und ein neues erstellt- und es funktionackelt !

Warum es aber Probleme gab, weis ich immer nocht nit ?
Gruß Ralf

• verknüpfung von formular
• wie lade ich ein leeres Formular
• Formular ( pdf Datei ) ausfüllen ??
• Dateneingabe in Formular funktioniert nicht
• Kontrollkästchen im Formular