Search results

Well that's certainly a lot simpler than what I did. :D

I need to return the last date of the month not for this month, but 6 months down the road. When the FAA says 6 calendar months from a certain date it would mean go 6 months forward and then to the end of the month. So with today being April 11th, I would count 6 months forward to October, and...

Sometimes I just do it manually. Make a simple query for that table with the date <= now()-1825 and then click the upper left corner, and hit the delete button. Voila! Don't even bother saving the query.

Ohhh how I hate autonumbers with their wee beady eyes... I had this issue with invoice numbers and so I incorporated it in the BeforeUpdate section of the code. Private Sub Form_BeforeUpdate() If IsNull(me.Invoice_Number) Then Me.Invoice_Number = DMax("[Invoice Number]", "[Invoices]")...

It's even simpler. You don't even need the "docmd." just Beep :)

Change months as ncessary. Public Function FiscalYear(Datestring As Date) As Integer Dim MonthString As Integer MonthString = Month(Datestring) Select Case MonthString Case 1, 2, 3, 4, 5, 6 FiscalYear = Year(Datestring) Case 7, 8, 9, 10, 11, 12 FiscalYear =...

Change month numbers as necessary. Public Function Quarter(Datestring As Date) As Integer Dim MonthString As Integer MonthString = Month(Datestring) Select Case MonthString Case 1, 2, 3 Quarter = 1 Case 4, 5, 6 Quarter = 2 Case 7, 8, 9 Quarter = 3 Case...

Memo field as opposed to text.

Timer function set to 50 ms. Oh the horror!!!

Instead of event procedure, click the three dots next to the drop down and go to the code builder. Code would be similar to this Private Sub FormName_Timer() Me.Requery End Sub Then set your timer length in millseconds (numbr of seconds x 1000) in the form properties.

If Me.Label5 = -1 Then If Me.Text34<=2644 Then Me.Text34 = 0 etc...

vba code can be your friend.

SO I understand this, this text box you WANT to write the value to a table, or do NOT WANT to write the value in the text box to a table?

Dont tie the control source to anything. Just make the control source the formula necessary to display the information

Add a year field and set the default to be =year(now()) ??

Take out the WinAmp library in the references in VbA. I was experimenting with Winamp before deciding on Windows Media Player for the player. Oops.

As requested. Obviously you'll have to feed/replace your own sounds files into the table. As you can see in the table, I have no gaps in the autonumber, so if you end up with gaps, you're going to end up with problems, mostly because I didn't put an error handler in my code in case the random...

On my purchase order items table I simply have primary keys of PONumber and ProductID, No coding necessary. PS - I'm a heretic, I don't use autonumbers. But it saves coding down the line.

=CCur(Proc.Column(2))+CCur(Ram.Column(2))

The SQL statement used to build your combo box(es)