Your technology certification is waiting. Enroll in Cloud Class ®
Private Sub btnSelectProvider_Click()
Dim strSql As String
Dim intProviderID As Integer
intProviderID = Me.ProviderID
' Get the InvoiceID from [Form_Case Details]
Dim intInvoiceID As Integer 'Pkey from tblClaims
intInvoiceID = [Form_Case Details].InvoiceID
' Concatenate the update SQL string
strSql = "Update tblClaims Set Reviewer = " & intProviderID & " WHERE InvoiceID = " & intInvoiceID
' Execute the update
' Recalc the data on the case details form
' Close this form
DoCmd.Close acForm, Me.Name
Open in new window
Private Sub Form_Current()
Me.btnSelectProvider.Caption = "Choose ProviderID " & Me.ProviderID.Text & " as the provider for this case."
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.