Arkadaşlar Merhaba,
Aşağıdaki kod toplam almadığım zaman calışıyor fakat toplam aldığımda sarı olarak boyadığım bolumde kızıyor bana miktar null geldiği icin fakat nasıl bir if kurmalıyım beceremedim.

yardımcı olursanız sevinirim.

Sub gerceklesen_doldur()
Me.Label27.Caption = "0"
query = "SELECT SUM(Miktar) AS Miktar FROM BIM..uretimveritoplama WHERE (barkod = '" & Me.Text4.Text & "') AND (bolum = '" & Me.Combo3.Text & "')"
Set rs = cnn.Execute(query)
If Not rs.EOF Then
If IsNumeric(rs.Fields("Miktar")) Then Miktar = rs.Fields("Miktar")
Me.Label27.Caption = rs.Fields("Miktar")
Else
'MsgBox ("dddd")
Label27.Caption = "0"
Text4.SetFocus
End If
End Sub
__________________