Refresh

[Guest]

I'm stumped !
I inherited this Access app and it's giving me an error.
This line " Form_frmQualityData.refreshProviderLst " obviously updates a
list but there is nothing anywhere called "ProviderLst"

Could anyone please help me understand what the refresh should be updating??
//////////////

q = "INSERT INTO TBLQUALITYPROVIDER (ICNNO, PROVNO, CREATETIME, COMPLAINT)
VALUES ('" & OpenArgs _
& "','" & strprovno & "', #" & Now() & "#, " & Me.chkComplaint & " );"
Set db = CurrentDb
db.Execute q, dbFailOnError
db.Close
DoEvents
Form_frmQualityData.refreshProviderLst
DoCmd.Close
Exit Sub

 

[Douglas J. Steele]

Is there a sub or function in the form named refreshProviderLst?

 

[Guest]

I only posted a piece here is the entire sub:


Private Sub cmdSave_Click()
On Error GoTo cmdAddProviderErr
Dim strprovno As String
Dim cmplnt As Boolean
' Dim db As DAO.Database
Dim q As String

If IsNull(Me.txtProvno) Or Me.txtProvno = "" Then
MsgBox "Please enter a provider number"
Exit Sub
End If
strprovno = Me.txtProvno
cmplnt = Me.chkComplaint

q = "INSERT INTO TBLQUALITYPROVIDER (ICNNO, PROVNO, CREATETIME,
COMPLAINT) VALUES ('" & OpenArgs _
& "','" & strprovno & "', #" & Now() & "#, " & Me.chkComplaint & " );"
Set db = CurrentDb
db.Execute q, dbFailOnError
db.Close
DoEvents
Form_frmQualityData.refreshProviderLst
DoCmd.Close
Exit Sub
cmdAddProviderErr:
MsgBox Err.Number & " " & Err.Description
Exit Sub

End Sub

 

[Douglas J. Steele]

I'll repeat the question.

Is there a sub or function in frmQualityData named refreshProviderLst?

 

[Guest]

Sorry, you did not mention the other form the first time.
Yes, I did not realise the previous form, which this one is lounched from,
has a function "refreshProviderLst".

Thank you