Ready to improve network connectivity? Watch this webinar to learn how SD-WANs and a one-click instant connect tool can boost provisions, deployment, and management of your cloud connection.
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.