.FindFirst "[question_id] = [COLOR="red"]'[/COLOR]" & Me.question_list & "[COLOR="Red"]'[/COLOR]"
What does this mean?Typename : Long
Private Sub question_list_AfterUpdate()
Dim rst As DAO.Recordset
' Get a copy of the form's record source
Set rst = Me.RecordsetClone
With rst
' Find the record
.FindFirst "[question_id] = " & Me.question_list & ""
' If there's a match set the bookmark of the form to that of the one we've just searched for
If .NoMatch = False Then
Me.Bookmark = .Bookmark
End If
End With
MsgBox "Listbox value is: " & Me.question_list.Value & vbNewLine & "Type Name: " & TypeName(CLng(Me.question_list.Value))
' Clean up
Set rst = Nothing
End Sub
Dim i, j, k As Integer
Dim i As Integer, j As Integer, k As Integer
Dim db4 As DAO.Database
Set db4 = CurrentDb
Dim rs4 As DAO.Recordset
Dim i As Integer, j As Integer, k As Integer
Dim strArrayValue As Variant
Dim strArray() As String
strArrayValue = Me.q_array_list.Value
strArray = Split(strArrayValue, ",")
For j = 1 To Me.question_list.ListCount
Me.question_list.RemoveItem 0
Next j
For i = LBound(strArray) To UBound(strArray)
Set rs4 = db4.OpenRecordset("SELECT q_question_list.question_id, q_question_list.config_id FROM q_question_list WHERE (((q_question_list.question_id) In (" & strArray(i) & ")));")
With Me.question_list
.AddItem Item:=CLng(rs4!question_id) & ";" & rs4!config_ID
End With
Next i
rs4.Close 'Close the recordset
Set rs4 = Nothing 'Clean up
End If
Private Sub btnLoadQuestion_Click()
Dim str1 As Integer
Dim str2 As Integer
Dim str3 As String
'Dim str4 As Integer
str1 = Me.question_list.Value
str2 = Me.tc_select.Value
str3 = Me.q_array_list.Value
'str4 = Me.tc_select.Value
DoCmd.Close
DoCmd.OpenForm "frm_question_interface_tmp", , , , , , str1 & "|" & str2 & "|" & str3 ' & "|" & str4
End Sub