Veeam® is happy to provide a FREE NFR server license to certified engineers, trainers, and bloggers. It allows for the non‑production use of Veeam Agent for Microsoft Windows. This license is valid for five workstations and two servers.
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.