New feature! Upgrade and increase expert visibility of your issues with Priority Questions.
Private Sub cboReportingSet_BeforeUpdate(Cancel As Integer) 'verify that this group has same currency as others in this set Dim rs As Recordset Set rs = DB.OpenRecordset("Select * from [List_Of_Group/Division] where ReportingSet='" & Me.cboReportingSet & "'", dbOpenDynaset) If rs.RecordCount > 0 Then rs.MoveFirst If Nz(rs!ReportingCurrency, "") <> Nz(Me.txtReportingCurrency, "") Then MsgBox "You can't use this reporting set for this group. Another group in this set has a conflicting currency. All groups within a set must have same currency." Me.cboReportingSet.Undo End If End If rs.Close: Set rs = Nothing End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.