Web Wiz - Green Windows Web Hosting

  New Posts New Posts RSS Feed - VBA Question
  FAQ FAQ  Forum Search   Events   Register Register  Login Login

VBA Question

 Post Reply Post Reply
Author
hockenpj View Drop Down
Groupie
Groupie
Avatar

Joined: 10 February 2003
Location: Belgium
Status: Offline
Points: 149
Post Options Post Options   Thanks (0) Thanks(0)   Quote hockenpj Quote  Post ReplyReply Direct Link To This Post Topic: VBA Question
    Posted: 28 February 2003 at 11:50am

I have some VBA that will make an error message appear if the number in one cell on the form exceeds the number in another cell on the same form. This code looks like this:

----------------------

Private Sub Form_BeforeInsert(Cancel As Integer)
If [Number of Pupils on Course] >= [Parent]![Maximum class size] Then
x = MsgBox("This Course is Full.", vbOKOnly, "Course Full")
DoCmd.CancelEvent
Me.Refresh
End If
End Sub

----------------------

There is nothing wrong with the above code. What I want to do is to display what is in a cell on the form on question in the error message. Is this possible. Below is my attempt at solving this, but I was unsuccessful:

----------------------

Private Sub Form_BeforeInsert(Cancel As Integer)
If [Number of Pupils on Course] >= [Parent]![Maximum class size] Then
x = MsgBox("This Course is Full. The next course is on the =[Parent]![Next Start Date]", vbOKOnly, "Course Full")
DoCmd.CancelEvent
Me.Refresh
End If
End Sub

----------------------

Any suggestions would be much appreciated.



Edited by hockenpj
Back to Top
 Post Reply Post Reply

Forum Jump Forum Permissions View Drop Down

Forum Software by Web Wiz Forums® version 12.08
Copyright ©2001-2026 Web Wiz Ltd.


Become a Fan on Facebook Follow us on X Connect with us on LinkedIn Web Wiz Blogs
About Web Wiz | Contact Web Wiz | Terms & Conditions | Cookies | Privacy Notice

Web Wiz is the trading name of Web Wiz Ltd. Company registration No. 05977755. Registered in England and Wales.
Registered office: Web Wiz Ltd, Unit 18, The Glenmore Centre, Fancy Road, Poole, Dorset, BH12 4FB, UK.

Prices exclude VAT at 20% unless otherwise stated. VAT No. GB988999105 - $, € prices shown as a guideline only.

Copyright ©2001-2026 Web Wiz Ltd. All rights reserved.