error 2427 you entered an expression that has no value

Hi:
I had encountered this error, whenever is "Me.IqamaNo" is empty.
error 2427 you entered an expression that has no value
how could I get rid of it please.

Notice that if there is a value in "Me.IqamaNo" , it works good. And no error message appear.

   If Not IsNull(Trim(Me.IqamaNo)) And Not IsEmpty(Trim(Me.IqamaNo)) And Trim(Me.IqamaNo) <> "" Then
      For i = 1 To Len(Trim(Me.IqamaNo))
         Reports!rptIqamahRenewalForm.Controls("Iq" & i).Value = Nz(Mid(Me.IqamaNo, i, 1), 0)
      Next
   
   End If

Select allOpen in new window