<div>
Perfect. &nbsp;Thanks for looking on Sunday!<br />
Brooks
</div>


Perfect.  Thanks for looking on Sunday!
Brooks

<div>
<div class="content wysiwyg-content">
Hi,<br />
this routine fails with runtime error 2471. &nbsp;What might be wrong?<br />
Thanks,<br />
Brooks<br />
<br />
Private Sub Print_Label_Click()<br />
&nbsp; &nbsp; Dim strPartNumber As String<br />
&nbsp; &nbsp; Dim strExists As Integer<br />
&nbsp; &nbsp; strPartNumber = Me.cboPN<br />
&nbsp; &nbsp; ' This section sees if part number is axial leaded or chip<br />
&nbsp; &nbsp; ' See if the diode part number exists in the diodes table<br />
&nbsp; &nbsp; ' If it is an axial leaded part use Glassing Furnace Diode Label<br />
&nbsp; &nbsp; ' If it is a chip use Glassing Furnace Chip Label<br />
&nbsp; &nbsp; strExists = DCount(&quot;[P_Number]&quot;, &quot;Diodes&quot;, &quot;[P_Number] = strPartNumber&quot;)<br />
&nbsp; &nbsp; If strExists &lt;&gt;&nbsp;0 Then<br />
&nbsp; &nbsp; Stop<br />
&nbsp; &nbsp; &nbsp; &nbsp; DoCmd.OpenReport &quot;Glassing Furnace Diode Label&quot;, acViewNormal, , &quot;[ID]=&quot; &amp;&nbsp;Me.ID<br />
&nbsp; &nbsp; Else<br />
&nbsp; &nbsp; Stop<br />
&nbsp; &nbsp; &nbsp; &nbsp; DoCmd.OpenReport &quot;Glassing Furnace Chip Label&quot;, acViewNormal, , &quot;[ID]=&quot; &amp;&nbsp;Me.ID<br />
&nbsp; &nbsp; End If<br />
&nbsp; &nbsp; <br />
End Sub
</div>
</div>


Hi,
this routine fails with runtime error 2471.  What might be wrong?
Thanks,
Brooks

Private Sub Print_Label_Click()
    Dim strPartNumber As String
    Dim strExists As Integer
    strPartNumber = Me.cboPN
    ' This section sees if part number is axial leaded or chip
    ' See if the diode part number exists in the diodes table
    ' If it is an axial leaded part use Glassing Furnace Diode Label
    ' If it is a chip use Glassing Furnace Chip Label
    strExists = DCount("[P_Number]", "Diodes", "[P_Number] = strPartNumber")
    If strExists <> 0 Then
    Stop
        DoCmd.OpenReport "Glassing Furnace Diode Label", acViewNormal, , "[ID]=" & Me.ID
    Else
    Stop
        DoCmd.OpenReport "Glassing Furnace Chip Label", acViewNormal, , "[ID]=" & Me.ID
    End If
    
End Sub

Access DLookup produces runtime error 2471

Microsoft Access is a rapid application development (RAD) relational database tool. Access can be used for both desktop and web-based applications, and uses VBA (Visual Basic for Applications) as its coding language.