title: VBA:Run time error 6-Overflow
body: <p>I want to create a MS access form that can read data from the Ms access DB. The access db has only 1 column consists of 4000 items all are integer type.It is basically item Ids. I have created a model dialog form with only one text box to search for the item id. The condition is that once i enter the value in the text box form it will compare the table id and gives the o/p as id present or not. Below is the code i have written for the same. the issue is that i am getting "Run time error 6-Overflow " once the input value matches with the table.For incorrect values the code is working fine.
  Please help with this.ASAP.
  The table name is table 1 and the column name is Sku.</p>
  
  <p>CODE:</p>
  
  <pre><code>Private Sub Command1_Click()
      If IsNull(Me.Text2) Then
      MsgBox " Please Enter the Ske Id ", vbInformaton, "Sku ID Required"
      Else
          If IsNull((DLookup("Sku", "Table1", "Sku=Cint(Text2.value)"))) Then
          MsgBox "not present"
  
          Else
          MsgBox "present  "
  
          End If
      End If
  End Sub
  </code></pre>