Drastically shorten your training time with WalkMe's advanced online training solution that Guides your trainees to action. Forget about retraining and skyrocket knowledge retention rates.
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.
|Converting Access 2016 from 32-bit to 64-bit||8||50|
|error 80020009 - cannot add record(s); join key of table '...' not in record set||5||30|
|Access 2010 Changing String to Date with Leading Zero||11||26|
Join the community of 500,000 technology professionals and ask your questions.