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


<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

Perfect.  Thanks for looking on Sunday!
Brooks

Access DLookup produces runtime error 2471

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
    &#39; This section sees if part number is axial leaded or chip
    &#39; See if the diode part number exists in the diodes table
    &#39; If it is an axial leaded part use Glassing Furnace Diode Label
    &#39; If it is a chip use Glassing Furnace Chip Label
    strExists = DCount(&quot;[P_Number]&quot;, &quot;Diodes&quot;, &quot;[P_Number] = strPartNumber&quot;)
    If strExists &lt;&gt; 0 Then
    Stop
        DoCmd.OpenReport &quot;Glassing Furnace Diode Label&quot;, acViewNormal, , &quot;[ID]=&quot; &amp; Me.ID
    Else
    Stop
        DoCmd.OpenReport &quot;Glassing Furnace Chip Label&quot;, acViewNormal, , &quot;[ID]=&quot; &amp; Me.ID
    End If
    
End Sub

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.