DomWert...

[gcniva]

Hi PhilS

Ne kommt der gleiche fehler

Gruß Gerd

[DF6GL]

Hallo,

die Syntax muss so lauteten:

Code [Auswählen] Erweitern


.
.
Me!cptSchi3 = DLookup("A", "abf_Kalender", "[Datum]=" & Format(Me![cptItem3].[Caption], "\#yyyy-mm-dd\#"))
.
.



(Das Textfeld "cptSchi3"  wird mit dem Wert aus Feld "A" der Abfrage "abf_Kalender" gefüllt, der in demjenigen Datensatz steht, bei dem das Datum dem "Wert" aus der Beschriftung des  Bezeichnungsfelds "cptItem3" entspricht.)

[PhilS]

Ne kommt der gleiche fehler

Du hast aber schon den Ausdruck aus der Steuerelementinhalt-Eigenschaft entfernt, oder? - Ansonsten ist das Feld an den Ausdruck gebunden und schreibgeschützt.

[gcniva]

Hi Franz

Ja das klappt super..
Steuerelementinhalt-Eigenschaft  wurde zuvor gelöscht.

Doch leider kann ich es nicht benutzen, denn wenn ich den Kalender einen Monat weiter klicke, bleibt der wert drin stehen. und holt sich nicht den neuen..

Gruß

[DF6GL]

Hallo,

ja, und warum sollte das passieren?

Wenn Du weiter klickst, dann muss der neue Wert (müssen die neuen Werte) halt erneut zugewiesen werden, am besten bei dem Ereignis, das den neuen Monat anzeigen soll.

[gcniva]

Hi Franz

Sorry mein fehler, klar muss natürlich in auch in AfterUpdate() rein 

Aber schon das nächste problem...
hier erst mal was ich gemacht habe.

Code [Auswählen] Erweitern

Sub schiFill()
    Dim i As Long, lngColor As Long, lngLeft As Long, lngWidth As Long
    'Trägt die Schichten ein beim öffnen
   
    On Error GoTo myError
     
   
  If Schi = "A" Then
  For i = 1 To 31
  Me("cptSchi" & i) = DLookup("A", "abf_Kalender", "Datum =" & Format(Me("cptItem" & i).[Caption], "\#yyyy-mm-dd\#"))
  Next i
  End If
 
  If Schi = "B" Then
  For i = 1 To 31
  Me("cptSchi" & i) = DLookup("B", "abf_Kalender", "[Datum]=" & Format(Me("cptItem" & i).[Caption], "\#yyyy-mm-dd\#"))
  Next i
  End If
 
  If Schi = "C" Then
  For i = 1 To 31
  Me("cptSchi" & i) = DLookup("C", "abf_Kalender", "[Datum]=" & Format(Me("cptItem" & i).[Caption], "\#yyyy-mm-dd\#"))
  Next i
  End If
 
  If Schi = "D" Then
  For i = 1 To 31
  Me("cptSchi" & i) = DLookup("D", "abf_Kalender", "[Datum]=" & Format(Me("cptItem" & i).[Caption], "\#yyyy-mm-dd\#"))
  Next i
  End If
 
 

myExit:
    Exit Sub

myError:
    Select Case Err.Number
        Case 9999
            'spezifische Fehler behandeln
        Case Else
            MsgBox "Ausnahme Nr. " & Err.Number & ". " & Err.Description
            Resume myExit
    End Select
   
         End Sub

Das geht auch , nur kommt die Meldung "Fehlender Oparator [Datum]="
Schreibt aber trotzdem die Schichten rein

Gruß Gerd

[DF6GL]

Hallo,

mal abgesehen davon, ob das alles konzeptionell so optimal ist, könnte der Code so gekürzt werden, wobei unklar ist, was "Schi" denn ist. Falls es sich hierbei um ein Steuerelement handelt, dann etwa so:

Code [Auswählen] Erweitern

Sub schiFill()
    Dim i As Long, strSchi as String
    'Trägt die Schichten ein beim öffnen
   
    On Error GoTo myError

   strSchi = Me!Schi

  For i = 1 To 31
  Me("cptSchi" & i) = DLookup("[" & strSchi & "], "abf_Kalender", "[Datum] =" & Format(Me("cptItem" & i).[Caption], "\#yyyy-mm-dd\#"))
  Next i
  End If
   

myExit:
    Exit Sub

myError:
    Select Case Err.Number
        Case 9999
            'spezifische Fehler behandeln
        Case Else
            MsgBox "Ausnahme Nr. " & Err.Number & ". " & Err.Description
            Resume myExit
    End Select
   
         End Sub


Der Fehler könnte daher rühren, dass in einem Bezeichnungsfeld kein gültig (geschriebenes) Datum drinsteht.


btw:  der Name "Datum" ist ein "gefährliches" (reserviertes) Wort, weil es für die Date()-Funktion steht und mitunter Probleme aufwirft.  Deshalb diesen Namen unbedingt in Eckklammern setzen.

[gcniva]

Hi

Ne geht auch nicht...

Glaube aber den Fehler gefunden zu haben,
Wenn sich der Kalender aufbaut blendet er die Tage die nicht zu dem Monat gehören aus.

Soll heißen hat der Monat nur 28 Tage bekomme ich auch nur 28 Tage angezeigt.

Der VBA Code will aber 31 Tage füllen 

Gruß Gerd

[Maxel]

For i = 1 To 31

Setze statt 31 den Tag des monatsletzten Datums ein.