Dcount

[boehnli01]

Hallo zusammen, bekomme mit diesem Befehl eine "Data type mismatch in criteria expression" msg. Kann mir bitte jemand sagen was ich korrigieren muss. Wahrscheinlich hat das etwas mit dem Datumsformat zu tun.

Danke für die Hilfe.

Code (vb) [Auswählen] Erweitern


Private Sub DATE_AfterUpdate()

Dim calweek As String

'On Error Resume Next

    If DCount("Cal_week", "tbl_calender_prep_mitwkend", "Cal_date = '" & Forms![frm_Shift_Pattern]![DATE] & "'") = 0 Then Exit Sub
    calweek = DMin("Cal_week", "tbl_calender_prep_mitwkend", "Cal_week = '" & Forms![frm_Shift_Pattern]![WEEK] & "'")
   
   
    Let WEEK = calweek
   
End Sub

[DF6GL]

Hallo,


wenn denn noch bekannt wäre, welche Datentypen die einzelnen Tabellenfelder haben und wo sich der Code befindet, bräuchte man nicht zu raten..  Vermutlich:


Private Sub DATE_AfterUpdate()

Dim calweek As Long  '!!!!!!!!!!!!!!!!!!!

'On Error Resume Next
   If DCount("*", "tbl_calender_prep_mitwkend", "Cal_date = " & Format(Me![DATE] ,"\#yyyy-mm-dd\#") )  = 0 Then Exit Sub    'Date als Name VERMEIDEN!!!    
calweek = DMin("Cal_week", "tbl_calender_prep_mitwkend", "Cal_week = " &   Me![WEEK] )      ' Week als Name vermeiden !!!!   

   
   
  Let   Me![WEEK] = calweek  

End Sub

[boehnli01]

Danke DF6GL, du hast natürlich recht. Zu wenig details.

Ich will das nach dem update von Feld DATE im Formular frm_Shift_Pattern sich das Feld WEEK von frm_Shift_Pattern gemäss tabelle
tbl_calender_prep_mitwkend updated. Ich will einfach die Woche im Feld WEEK haben nachdem ich das Feld DATE geändert haben wobei ich eine relation zwischen den beiden Daten herstellen will. Habe es mit Deiner Möglichkeit probiert, aber leider erfolgtlos. So hats auch nicht funtioniert.
 

Code (vb) [Auswählen] Erweitern

Private Sub DATE_AfterUpdate()

Dim calweek As Long

    If DCount("*", "tbl_calender_prep_mitwkend", "Cal_date = " & Format(Me![DATE1], "\#yyyy-mm-dd\#")) = 0 Then Exit Sub
calweek = DMin("Cal_week", "tbl_calender_prep_mitwkend", "Cal_date = " & Format(Me![DATE1], "\#yyyy-mm-dd\#"))
   
   
   Let Me![WEEK] = calweek
End Sub

[DF6GL]

Hallo,

und wie heißt das "Date"-Feld nun?

lt.  Ereignisprozedur-Name heißt es nach wie vor "Date", In der Format-Funktion heißt es plötzlich "Date1"

[boehnli01]

Hi - DATE1

Code (vb) [Auswählen] Erweitern

Private Sub DATE1_AfterUpdate()
Dim calweek As Long

If DCount("*", "tbl_calender_prep_mitwkend", "Cal_date = " & Format(Me![DATE1], "\#yyyy-mm-dd\#")) = 0 Then Exit Sub
calweek = DMin("Cal_week", "tbl_calender_prep_mitwkend", "Cal_date = " & Format(Me![DATE1], "\#yyyy-mm-dd\#"))

Me![WEEK1] = calweek


End Sub


[DF6GL]

Halo,

die Frage nach den Tabellenfeld-Datentypen steht noch im Raum..

Und was genau steht im Steuerelment "Date1" , bzw. was wird dort eingegeben ?

[boehnli01]

Hi - in DATE1 wird das datum mit datenype Date/Time eingegeben.

[DF6GL]

Hallo,

ich versteh Dich nicht...


Was heißt denn:

in DATE1 wird das datum mit datenype Date/Time eingegeben.

1) Welchen Datentyp hat das Tabellen(!)-Feld ""Cal_date " in der Tabelle (dort nachsehen!)  ? 
2) Welchen Datentyp hat das Tabellenfeld "Cal_week" in der Tabelle  (dort nachsehen!)?
3) Zeige mal ein Beispiel (Copy & Paste), was im FORMULAR-Feld "Date1" drinsteht.


Ansonsten lad die DB zum Ansehen hier hoch (datenreduziert und gezippt).

[boehnli01]

Danke DF6GL - hat sich erledigt. Habe den Fehler gefunden.