hey i managed to fix it
so i created a event after update and used this code
If Me.cmbShift = "Blue" Then
Me.txtJanuary = DLookup("[CountofDATE]", "Monthtotals", "[monthno] = 1 AND [Shift] = '" & "Blue" & "'")
Me.txtFebuary = DLookup("[CountofDATE]", "Monthtotals", "[monthno] = 2 AND [Shift] = '" & "Blue" & "'")
Me.txtMarch = DLookup("[CountofDATE]", "Monthtotals", "[monthno] = 3 AND [Shift] = '" & "Blue" & "'")
Me.txtApril = DLookup("[CountofDATE]", "Monthtotals", "[monthno] = 4 AND [Shift] = '" & "Blue" & "'")
Me.txtMay = DLookup("[CountofDATE]", "Monthtotals", "[monthno] = 5 AND [Shift] = '" & "Blue" & "'")
Me.txtJune = DLookup("[CountofDATE]", "Monthtotals", "[monthno] = 6 AND [Shift] = '" & "Blue" & "'")
Me.txtJuly = DLookup("[CountofDATE]", "Monthtotals", "[monthno] = 7 AND [Shift] = '" & "Blue" & "'")
Me.txtAugust = DLookup("[CountofDATE]", "Monthtotals", "[monthno] = 8 AND [Shift] = '" & "Blue" & "'")
Me.txtSeptember = DLookup("[CountofDATE]", "Monthtotals", "[monthno] = 9 AND [Shift] = '" & "Blue" & "'")
Me.txtOctober = DLookup("[CountofDATE]", "Monthtotals", "[monthno] = 10 AND [Shift] = '" & "Blue" & "'")
Me.txtNovember = DLookup("[CountofDATE]", "Monthtotals", "[monthno] = 11 AND [Shift] = '" & "Blue" & "'")
Me.txtDecember = DLookup("[CountofDATE]", "Monthtotals", "[monthno] = 12 AND [Shift] = '" & "Blue" & "'")
ElseIf Me.cmbShift = "Red" Then
Me.txtJanuary = DLookup("[CountofDATE]", "Monthtotals", "[monthno] = 1 AND [Shift] = '" & "Red" & "'")
Me.txtFebuary = DLookup("[CountofDATE]", "Monthtotals", "[monthno] = 2 AND [Shift] = '" & "Red" & "'")
Me.txtMarch = DLookup("[CountofDATE]", "Monthtotals", "[monthno] = 3 AND [Shift] = '" & "Red" & "'")
Me.txtApril = DLookup("[CountofDATE]", "Monthtotals", "[monthno] = 4 AND [Shift] = '" & "Red" & "'")
Me.txtMay = DLookup("[CountofDATE]", "Monthtotals", "[monthno] = 5 AND [Shift] = '" & "Red" & "'")
Me.txtJune = DLookup("[CountofDATE]", "Monthtotals", "[monthno] = 6 AND [Shift] = '" & "Red" & "'")
Me.txtJuly = DLookup("[CountofDATE]", "Monthtotals", "[monthno] = 7 AND [Shift] = '" & "Red" & "'")
Me.txtAugust = DLookup("[CountofDATE]", "Monthtotals", "[monthno] = 8 AND [Shift] = '" & "Red" & "'")
Me.txtSeptember = DLookup("[CountofDATE]", "Monthtotals", "[monthno] = 9 AND [Shift] = '" & "Red" & "'")
Me.txtOctober = DLookup("[CountofDATE]", "Monthtotals", "[monthno] = 10 AND [Shift] = '" & "Red" & "'")
Me.txtNovember = DLookup("[CountofDATE]", "Monthtotals", "[monthno] = 11 AND [Shift] = '" & "Red" & "'")
Me.txtDecember = DLookup("[CountofDATE]", "Monthtotals", "[monthno] = 12 AND [Shift] = '" & "Red" & "'")
ElseIf Me.cmbShift = "Green" Then
Me.txtJanuary = DLookup("[CountofDATE]", "Monthtotals", "[monthno] = 1 AND [Shift] = '" & "Green" & "'")
Me.txtFebuary = DLookup("[CountofDATE]", "Monthtotals", "[monthno] = 2 AND [Shift] = '" & "Green" & "'")
Me.txtMarch = DLookup("[CountofDATE]", "Monthtotals", "[monthno] = 3 AND [Shift] = '" & "Green" & "'")
Me.txtApril = DLookup("[CountofDATE]", "Monthtotals", "[monthno] = 4 AND [Shift] = '" & "Green" & "'")
Me.txtMay = DLookup("[CountofDATE]", "Monthtotals", "[monthno] = 5 AND [Shift] = '" & "Green" & "'")
Me.txtJune = DLookup("[CountofDATE]", "Monthtotals", "[monthno] = 6 AND [Shift] = '" & "Green" & "'")
Me.txtJuly = DLookup("[CountofDATE]", "Monthtotals", "[monthno] = 7 AND [Shift] = '" & "Green" & "'")
Me.txtAugust = DLookup("[CountofDATE]", "Monthtotals", "[monthno] = 8 AND [Shift] = '" & "Green" & "'")
Me.txtSeptember = DLookup("[CountofDATE]", "Monthtotals", "[monthno] = 9 AND [Shift] = '" & "Green" & "'")
Me.txtOctober = DLookup("[CountofDATE]", "Monthtotals", "[monthno] = 10 AND [Shift] = '" & "Green" & "'")
Me.txtNovember = DLookup("[CountofDATE]", "Monthtotals", "[monthno] = 11 AND [Shift] = '" & "Green" & "'")
Me.txtDecember = DLookup("[CountofDATE]", "Monthtotals", "[monthno] = 12 AND [Shift] = '" & "Green" & "'")
End If
thanks for your help