Office: Kreuztabelle / VBA / Fehler behandlung

Hallo alle zusamen
Ich habe vor Jahren programiert und hade vieles vergessen.
Ich habe Problemme mit ein Kreuztabelle
Ich stelle ein Tabelle für quartal rechnung. Aber wenn der Quartal noch nict ereicht ist soll bei mein VBA der "Fields" erkant werden und uberspringen.
ich konnte mir mit OnError auch nicht helfen.
Vielleicht weißt jemand was besseres für mein Problem.

unten könnt ihr mein Code sehen:

Sub QuratalRechnungNacht()
'#########################################################
'# Quartal rechnung Ncht Dienst
'#########################################################

Dim qry As DAO.QueryDef
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim qryName As String
Dim QJahr As Integer
Dim i As Variant
Dim y As Variant
i = 0
y = 0

Set db = CurrentDb()
qryName = "AbQuartal_Nacht"
Set qry = db.QueryDefs(qryName)
Set rs = db.OpenRecordset(qryName)


On Error Resume Next
On Error GoTo 0

With rs

Do While Not .EOF
i = i + 1
y = Format(i, "00")


If rs.Fields(1) = Forms!DienstPN("TxtM" & y) Then 'Sortiert nach Personen Namen

Select Case rs.Fields(4).Name ' Welche Quartal
Case Is = 1
Forms!DienstPN!Frm_Quartal("Q1" & i) = rs.Fields(4)
Forms!DienstPN!Frm_Quartal("Q1" & i).Visible = True
Case Is = 2
Forms!DienstPN!Frm_Quartal("Q2" & i) = rs.Fields(5)
Forms!DienstPN!Frm_Quartal("Q2" & i).Visible = True
Case Is = 3
Forms!DienstPN!Frm_Quartal("Q3" & i) = rs.Fields(6)
Forms!DienstPN!Frm_Quartal("Q3" & i).Visible = True
Case Is = 4
Forms!DienstPN!Frm_Quartal("Q4" & i) = rs.Fields(7)
Forms!DienstPN!Frm_Quartal("Q4" & i).Visible = True
End Select
End If
rs.MoveNext
Loop
End With

!! Nur zu info: Wnn ich Manuel für jedes Quartal im mein Tabelle ein "0" Schreiben dan Füktiuniert einwandfrei. Aber ich will Ohne das auf meine Kreuztabelle zugreifen und die Felder auffulen.