[Webinar] Streamline your web hosting managementRegister Today

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 324
  • Last Modified:

Error with After Update event procedure in Access Application

Hi I have a form in Ms Access with Dropdownlists . If i select a value from one list the other dropdown should populate the value corresponding to that. but whenever i select the first dropdown iam getting the error message  "the expression AfterUpdate event property produce the following error ...blah ....blah ......" . I attached the image of that error with this. Please take a look and help me in this. i have been struggling with this error and the business user is pushing me to fix this quickly.  
Private Sub cboUser_AfterUpdate()
Set lstExistLoaded.Recordset = Nothing
lstExistLoaded.Requery
Set lstReport.Recordset = Nothing
lstReport.Requery
DBPix204.ImageViewFile ("")
cboSample_ID = Null
Set cboSample_ID.Recordset = Nothing
txtSampleID = Null
 
 
    If Not IsNull(cboUser) Then
       txtRequestNumber = cboUser
       DBPix204.ImageViewFile ("")
        SQLstatement = "SELECT ImageFileName,(rtrim(ImagePath))+(rtrim(ImageFileName)),ImagePath FROM ASC_vw_GetImages " & _
        " WHERE RequestNumber=" & cboUser & " AND ImageFileName IS NOT NULL ORDER BY ImageFileName "
        Set rst = New ADODB.Recordset
            rst.Open SQLstatement, CurrentProject.Connection, adOpenStatic
        With rst
            If Not (.EOF And .BOF) Then
               Set lstExistLoaded.Recordset = rst
            Else
                Set lstExistLoaded.Recordset = Nothing
            End If
        .Close
        End With
        Set rst = Nothing
        
        SQLstatement = "SELECT AttachFileName,AttachPathandName FROM AttachT " & _
        " WHERE RequestNumber=" & cboUser & " ORDER BY AttachID"
        Set rst = New ADODB.Recordset
            rst.Open SQLstatement, CurrentProject.Connection, adOpenStatic
        With rst
            If Not (.EOF And .BOF) Then
               Set lstReport.Recordset = rst
            Else
                Set lstReport.Recordset = Nothing
            End If
        .Close
        End With
        Set rst = Nothing
        
         SQLstatement = "SELECT Sample_ID,SampleID,Sample_Name FROM  SampleT " & _
        " WHERE RequestNumber=" & cboUser.Column(1) & " ORDER BY SampleID"
        Set rst = New ADODB.Recordset
            rst.Open SQLstatement, CurrentProject.Connection, adOpenStatic
        With rst
            If Not (.EOF And .BOF) Then
               Set cboSample_ID.Recordset = rst
            Else
                Set cboSample_ID.Recordset = Nothing
            End If
        .Close
        End With
        Set rst = Nothing
        formdirty = True
    End If
End Sub
 
 
 
I attached the image for the properties of that control.

Open in new window

error.JPG
Properties.jpg
0
gladstonesheeba
Asked:
gladstonesheeba
  • 6
  • 5
1 Solution
 
Rey Obrero (Capricorn1)Commented:
which line is highlighted ?

0
 
gladstonesheebaAuthor Commented:
its not highlighting anything , the  After_update event is not firing . Whenever i choose a value from the dropdown, immediately iam getting that  error message . its not going to the cboUser_AfterUpdate().
0
 
Rey Obrero (Capricorn1)Commented:
can you post the Row source of the combo box.
0
The new generation of project management tools

With monday.com’s project management tool, you can see what everyone on your team is working in a single glance. Its intuitive dashboards are customizable, so you can create systems that work for you.

 
gladstonesheebaAuthor Commented:
SELECT DISTINCT RequestNumber, RequestNoID FROM RequestT ORDER BY RequestNumber DESC
0
 
Rey Obrero (Capricorn1)Commented:
can you comment all the lines like the one below and try again if you will see the message.
Private Sub cboUser_AfterUpdate()
MsgBox "cboUser_AfterUpdate"
'Set lstExistLoaded.Recordset = Nothing
'lstExistLoaded.Requery
'Set lstReport.Recordset = Nothing
'lstReport.Requery
'DBPix204.ImageViewFile ("")
'cboSample_ID = Null
'Set cboSample_ID.Recordset = Nothing
'txtSampleID = Null
'
'
'    If Not IsNull(cboUser) Then
'       txtRequestNumber = cboUser
'       DBPix204.ImageViewFile ("")
'        SQLstatement = "SELECT ImageFileName,(rtrim(ImagePath))+(rtrim(ImageFileName)),ImagePath FROM ASC_vw_GetImages " & _
'        " WHERE RequestNumber=" & cboUser & " AND ImageFileName IS NOT NULL ORDER BY ImageFileName "
'        Set rst = New ADODB.Recordset
'            rst.Open SQLstatement, CurrentProject.Connection, adOpenStatic
'        With rst
'            If Not (.EOF And .BOF) Then
'               Set lstExistLoaded.Recordset = rst
'            Else
'                Set lstExistLoaded.Recordset = Nothing
'            End If
'        .Close
'        End With
'        Set rst = Nothing
'
'        SQLstatement = "SELECT AttachFileName,AttachPathandName FROM AttachT " & _
'        " WHERE RequestNumber=" & cboUser & " ORDER BY AttachID"
'        Set rst = New ADODB.Recordset
'            rst.Open SQLstatement, CurrentProject.Connection, adOpenStatic
'        With rst
'            If Not (.EOF And .BOF) Then
'               Set lstReport.Recordset = rst
'            Else
'                Set lstReport.Recordset = Nothing
'            End If
'        .Close
'        End With
'        Set rst = Nothing
'
'         SQLstatement = "SELECT Sample_ID,SampleID,Sample_Name FROM  SampleT " & _
'        " WHERE RequestNumber=" & cboUser.Column(1) & " ORDER BY SampleID"
'        Set rst = New ADODB.Recordset
'            rst.Open SQLstatement, CurrentProject.Connection, adOpenStatic
'        With rst
'            If Not (.EOF And .BOF) Then
'               Set cboSample_ID.Recordset = rst
'            Else
'                Set cboSample_ID.Recordset = Nothing
'            End If
'        .Close
'        End With
'        Set rst = Nothing
'        formdirty = True
'    End If
End Sub

Open in new window

0
 
gladstonesheebaAuthor Commented:
Yes iam getting that message box cboUser_AfterUpdate.
0
 
Rey Obrero (Capricorn1)Commented:
where are you executing the codes? in VB not in Access?

lets find the erring line by removing the ' from the codes starting from the top.

unremark this

Set lstExistLoaded.Recordset = Nothing
lstExistLoaded.Requery
Set lstReport.Recordset = Nothing
lstReport.Requery
DBPix204.ImageViewFile ("")
cboSample_ID = Null
Set cboSample_ID.Recordset = Nothing
txtSampleID = Null


then try again by selecting a value from the combo box

0
 
gladstonesheebaAuthor Commented:
ok i  uncommented out those lines,  i got the message box .
0
 
Rey Obrero (Capricorn1)Commented:
no error?

0
 
gladstonesheebaAuthor Commented:
I think something with the DBPix204.ImageViewFile("")

If i uncomment that line  and assign the dropdown value to  show it in the textbox. Then its not working . If  i comment the DBpix204.ImageViewFile(""), then the dropdown value is showing in the textbox. But i am not sure why the dbpix is not working. I referenced the Active x control for that in the project, but why still its not recognizing.
0
 
Rey Obrero (Capricorn1)Commented:
see if you find an answer here about DBpix

http://www.ammara.com/support/index.html

0

Featured Post

[Webinar] Kill tickets & tabs using PowerShell

Are you tired of cycling through the same browser tabs everyday to close the same repetitive tickets? In this webinar JumpCloud will show how you can leverage RESTful APIs to build your own PowerShell modules to kill tickets & tabs using the PowerShell command Invoke-RestMethod.

  • 6
  • 5
Tackle projects and never again get stuck behind a technical roadblock.
Join Now