I wanna edit the report but I'm unable to open it in a design view .
The error that i see is:
Run-time error '2186'
This property isn's available in Design view.
Code:
Private Sub Data_Retrived()
Dim DB As String
Dim DataSource1, DataSource2 As String
Dim C_SOURCE, c_Category, C_QUERYTYPE, c_FieldMatched As String
DB = "CrossSystemData"
c_Category = "='" & Forms!Frm_Verification.cbo_category & "'"
If Forms!Frm_Verification.cbo_Type = "ALL" Then
C_QUERYTYPE = "Is Not Null"
Else
C_QUERYTYPE = "='" & Forms!Frm_Verification.cbo_Type & "'"
End If
If Forms!Frm_Verification.cbo_FieldMatched = "ALL" Then
c_FieldMatched = "Is Not Null"
Else
c_FieldMatched = "='" & Forms!Frm_Verification.cbo_FieldMatched & "'"
End If
If Forms!Frm_Verification.cbo_institution = "ALL" Then
c_institution = "Is Not Null"
Else
c_institution = "like '" & Forms!Frm_Verification.cbo_institution & "*'"
End If
DataSource1 = "SELECT * FROM " & DB & " WHERE C_TYPE = 'CROSS' AND " & _
" Category " & c_Category & " and Query_Type " & C_QUERYTYPE & _
" and FieldMatched " & c_FieldMatched & " and Institution " & c_institution & _
" ORDER BY FieldMatched, Group_No, Query_Type"
RecordSource = DataSource1
End Sub
This is highlighted when i clicked on "Debug" button. I can't figure out what's wrong with this line
Could anyone help me ?
Thanks in advance!
Code:
c_Category = "='" & Forms!Frm_Verification.cbo_category & "'"