Shellm

Hallo FIs! Schnipp: Dim f As Form_Statusstatus f.Status.ForeColor = RGB(255, 0, 0) :Schnapp Diese Anweisung wird vom Hauptformular aus aufgerufen. "Form_Statusstatus" ist ein darin enthaltenes Unterformular. Die Hintergrundfarbe vom Textfeld "Status" (im Formular "Statusstatus" zu finden) muss nun auf Rot gestellt werden. Mit diesem Code bekomme ich immer eine Fehlermeldung Objektvariable oder with-Block nicht festgelegt! Danke für jede Antwort!

Das programmiertechnische Problem hat sich bereits gelöst! Ich habe die if-Abfragen falsch angeordnet! *sh..* Komischerweise stürtzt jetzt Access 97 immer ab, wenn ich diesen Quelltext ganz ausschneiden will! VBA32.dll verursacht immer einen Fehler!!

Hallo Forum, Ich habe hier VBA-Code in Access 97 Dort wo steht "'Ab diesem . geht N I C H T S mehr!", ab dort geht auch wirklich nichts mehr! Es wird weder eine Fehlermeldung ausgegeben, noch wird irgendein Datensatz in der Tabelle aktualisiert! Hilfe! Option Compare Database Option Explicit Private Sub KPProduktmerkmal_Click() Dim X As Recordset 'Dim booNext As Boolean 'Dim intCount As Integer Dim SC, CC, RPZGrenz, B, A, E, RPZ, ActiveID, query As String Dim fld As Field Dim ii As Integer Set X = CurrentDb.OpenRecordset("Grenzwerte", dbOpenDynaset) SC = X!SC CC = X!CC RPZGrenz = X!RPZGrenz X.Close Set X = Nothing Set X = CurrentDb.OpenRecordset("Fehler", dbOpenDynaset) X.MoveLast X.MoveFirst For ii = 1 To X.RecordCount For Each fld In X.Fields If fld.Name = "ID" Then If fld.Value = [IDx] Then 'MsgBox "" & fld.Name & ": " & fld.Value, vbOKOnly ActiveID = X!ID B = X![B ist] A = X![A ist] E = X![E ist] RPZ = B * A * E End If End If Next X.MoveNext Next ii X.Close Set X = Nothing MsgBox "SC: " & SC, vbOKOnly MsgBox "CC: " & CC, vbOKOnly MsgBox "RPZGrenz: " & RPZGrenz, vbOKOnly MsgBox "ActiveID: " & ActiveID, vbOKOnly MsgBox "B: " & B, vbOKOnly MsgBox "A: " & A, vbOKOnly MsgBox "E: " & E, vbOKOnly [b]'Ab diesem . geht N I C H T S mehr![/b] If [IDx] <> "" Then If B >= SC Then DoCmd.RunSQL "UPDATE Fehler SET KPProduktmerkmal='SC' WHERE Fehler.ID=" & ActiveID & ";" ElseIf B >= CC Then DoCmd.RunSQL "UPDATE Fehler SET KPProduktmerkmal='CC' WHERE Fehler.ID=" & ActiveID & ";" ElseIf B < SC And RPZ >= RPZGrenz Then DoCmd.RunSQL "UPDATE Fehler SET KPProduktmerkmal='KPR' WHERE Fehler.ID=" & ActiveID & ";" End If End If End Sub

Mit MacOS wäre das Problem schon lange gelöst :-P