Recent content by BLSguy

Andrzejek, excellent points for me to learn from, thank you! Changes applied :) Now to input a boat load of data, and my program is ready to go! I intend to make a few more databases to handle our other classes and administrative tasks. By the time I'm done, I might even be able to contribute...

Hey, I figured out something that works! Check out this code: Private Sub lstClasses_DblClick(Cancel As Integer) If Me.lstClasses.Column(4) = Me.lstClasses.Column(5) Then MsgBox ("Class is full!") Exit Sub End If Dim ClassID As Long If Not IsNull(Me.lstClasses.Value) Then ClassID =...

dhookom, I completely forgot that the first column is 0! Thank you! I'll try it again! It works!! However, how do I get it to stop the advancement to the next form after the "Class is full" popup? MajP, yes, I did away with the registration table because it was giving me some headaches with...

I appreciate your patience as you all bear with me as I learn this software. Here is the SQL for qryAllClasses: SELECT tblClasses.ClassID, tblClasses.Class_Date, tblClasses.Class_Time, tblClasses.Type, Count(tblStudents.ClassID) AS CountOfClassID, tblClasses.Capacity FROM tblClasses LEFT JOIN...

Thank you MajP. I managed to navigate to the SQL view, but the proper code is still eluding me as of yet.

I'm not having much luck with the SQL either. Capacity: IIf([tblStudents]![ClassID] < [Capacity], "Open", "Full") Tried a VBA variant and no luck there. I'm sure the solution to this is simple, it's just complicated to me.

Row source of lstClasses is qryAllClasses in qryAllClasses, there are 6 columns. Column 5 is the count of students in each class, column 6 is the maximum numbers of students allowed in that class.

Thank you MajP, I was wondering how to highlight code the way you all do. Dhookom, I tried adding the break point as you suggested. It highlighted in yellow the line: If me.lstClasses.Column(5) = me.lstClasses.Column(6) Then Private Sub lstClasses_DblClick(Cancel As Integer) If...

Of course I'm sure I'm doing something wrong, but I couldn't get that code to work. Private Sub lstClasses_DblClick(Cancel As Integer) If me.lstClasses.Column(5) = me.lstClasses.Column(6) Then MsgBox ("Class if full!") End If Dim ClassID As Long If Not IsNull(Me.lstClasses.Value) Then...

My database is just about ready to deploy! One last dilemma, however... This code works great: Private Sub ListBoxName_DblClick(Cancel As Integer) Dim classID as long If not isnull(me.listboxName.value) then classID = me.listboxName.value docmd.openform “YourSecondFormName”...

Fantastic! That did the trick! For the sake of having the database ready in time, I'm foregoing buttons in favor of one big list.

I've been struggling to grasp the nature of declaring and using variables and have had little success in my attempts to use them. I used the first block of code you posted: Code--> 1.Private Sub lstClasses_DblClick(Cancel As Integer) 2. Dim classID As Long 3. If Not...

I've tried many of the excellent suggestions here, but for my lack of experience have been unable to get them to work as I need. I have a rapidly approaching deadline to get this database operational so I've had to revert to some less than ideal structuring in favor of functionality. I entered...

Andrzejek, I give stars because I figure it's the least I can do to show my appreciation :D With the way I've got this database laid out, and the relatively simple tasks it needs to accomplish, once I have it all working it should require minimal maintenance. I won't be adding to it once it's...

So I've made all the changes suggested thus far and cleaned up tables, names, etc. The current issue I'm working on is trying to restore the functionality of my application but using the improved techniques suggested here. So here's my current database: And here's frmReg: I need the combo...