Experts Exchange connects you with the people and services you need so you can get back to work.
Squarespace’s all-in-one platform gives you everything you need to express yourself creatively online, whether it is with a domain, website, or online store. Get started with your free trial today, and when ready, take 10% off your first purchase with offer code 'EXPERTS'.
there are a lot of codes in the double click event of the listbox, try commenting them first to test like this
Private Sub lstExistingRecs_DblClick(Cancel As Integer)
'Dim a As Long, b As Long, b1 As Long, c As Long, d As Long, e As Long, f As Long, g As Long, h As Long, i As Long
'Dim j As Date, k As Date
'Dim strBk As String, strPg As String
'Dim LResponse As Integer, LResponse2 As Integer
'a = Me.lstExistingRecs.Column(0) ' RecID
'b = Me.lstExistingRecs.Column(1) ' CountyCodeID
'b1 = Me.lstExistingRecs.Column(17) ' FIPSStateCodeID
'c = Me.lstExistingRecs.Column(2) ' ReckBkTypeID
'd = Me.lstExistingRecs.Column(3) ' RecBkNbr
'e = Me.lstExistingRecs.Column(4) ' RecBkSubNbrID
'strBk = d & "*|*" & e
'f = Me.lstExistingRecs.Column(6) ' RecBkPage
'g = Me.lstExistingRecs.Column(7) ' RecBkPageSubID
'strPg = f & "*|*" & g
'If Nz(Me.lstExistingRecs.Column(15), "") <> "" Then
' h = Me.lstExistingRecs.Column(15) ' RecDateID
' k = Me.lstExistingRecs.Column(16) ' RecDate - Actual Date
' Me.txtRecDate = k
' Me.txtRecDate = Nothing
'If Nz(Me.lstExistingRecs.Column(10), "") <> "" Then
' i = Me.lstExistingRecs.Column(10) ' RecDatesID
' j = Me.lstExistingRecs.Column(11) ' RecRecordingDate - Actual Date
' Me.txtRecordingDate = j
' Me.txtRecordingDate = Nothing
' Select Case Me.TabCtlRecords.Value
' Case 0 ' Select an Existing Record for entire form
' With Me.RecordsetClone
' .FindFirst "[RecId]= " & a
' If Not .NoMatch Then
' Me.Bookmark = .Bookmark
' Me.cboSelectState = b1
' Me.cboSelectCounty = b
' Me.cboSelectBkType = c
' Me.cboSelectBkNbrSubBkNbr = strBk
' Me.cboSelectPgPgSub = strPg
' MsgBox "Record Not Found!", vbOKOnly
' End If
' End With
' Case 5
' Forms!tfrm_Records.Form![sfrmtbl_Records_SelectPrior].Form![cboSelectPriorRec] = a
' Case 6 ' Prior Record Setup Tab
' LResponse = MsgBox("You have the Prior Record Setup Page open. Are you selecting an Existing Record for the 'Temp Prior Record' Setup?" & vbNewLine & vbNewLine & "The Temp Prior Record tab and 'Prior Record Setup' Form are used when a Prior Record has not already been defined in the System." & vbNewLine & vbNewLine & "If you select 'Yes' you can select the Existing Record but you could be duplicating data already in the system." & vbNewLine & vbNewLine & "Select 'No' to cancel.", vbYesNo + vbExclamation, "WARNING - Possible Duplicate Record!")
' If LResponse = vbYes Then
' LResponse2 = MsgBox("Are you sure you want to select an Existing Record for the Temporary Prior Record setup?. This process can not be undone!", vbYesNo + vbExclamation, "Confirm Existing Record for Temp Prior Record Setup.")
' If LResponse2 = vbYes Then
' With Forms!tfrm_Records.Form![sfrmTmptbl_Records_PriorRecSetup].Form
' !cboSelectState = b1
' !cboSelectCounty = b
' !cboSelectBkType = c
' !txtRecDate = k
' !txtRecordingDate = j
' !cboSelectBkNbrSubBkNbr = strBk
' !cboSelectPgPgSub = strPg
' End With
' End If
' End If
' End Select
Dim a As Long
a = Me.lstExistingRecs.Column(0) ' RecID
.FindFirst "[RecId]= " & a
If Not .NoMatch Then
Me.Bookmark = .Bookmark
MsgBox "record not found"
Open in new window
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
Please enter a first name
Please enter a last name
Must be at least 4 characters long.
Join and Comment
From novice to tech pro — start learning today.
Premium members can enroll in this course at no extra cost.
Premium members get this course for $31.25.
Premium members get this course for $349.00.
Premium members get this course for $151.20.
Premium members get this course for $159.20.