Search results

DateAdd("yyyy",1,[ReviewDate]) MAKE SURE your review date field name goes in the [ReviewDate] field!!! Can be placed in a query that you can use in a report.

When I put me.combo, you need to replace this with the name of your combobox? if me.combo.value ="Charges" then DoCmd.OpenForm "Charges" elseif me.combo.value ="Payment/Adjustment" then DoCmd.OpenForm "Payments" else DoCmd.OpenForm "BalanceTransfers" End if End Sub Zip up the db and...

use a totals query!

You can create the form based on a query with the date criteria in the query but if you just wish to view the records then create a report!

If you only have the three choices then use: Private Sub Type_AfterUpdate() if me.combo.value ="Charges" then DoCmd.OpenForm "Charges" elseif me.combo.value ="Payment/Adjustment" then DoCmd.OpenForm "Payments" else DoCmd.OpenForm "BalanceTransfers", , , , , , Me End if End Sub

have a look at attached for starting point

zip it up and post it here for a solution

zip it up and post here for a solution

post the code so we can see if you are closing the objects or how you are closing them!

create a module and paste the code in this module. on the report where the field name you want the initials go to properties and set the control source to =GetInitials([yourfield]) and run the report.

You where nearly there. You ref'd cboSalespersons but the combo was called salesperson. I also changed the bound column to use Salespersonid as you may have several last names like Smith?

zip up the db and it can be looked at

If MsgBox("Are you sure you want to delete Part Number " & Me.PartNumber & " from the order", vbYesNo) = vbYes Then DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70 DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70 DoCmd.SetWarnings True Me.Requery Else Exit...

Peter, An AutoExec macro is a macro that performs user defined actions when the db starts up. Call the macro AutoExec and put an event in like OpenForm "YourForm". As for toolbars search this forum or Access help on "Create a custom toolbar"

The report should only print the data you return. Check that for any sorting/grouping footers that you do not have force new page after section selected. also your page settings may be too wide and therefore returning a blank page.

Niles, It is not a function if it has Private_Sub Private Sub Report_Page() If Me![Type] = "5260" Then Me![Type].BackColor = RGB(0, 25, 255) Else Me![Type].BackColor = RGB(0, 0, 255) End if End Sub Useful Example Sub Form_Current() Dim curAmntDue As Currency, lngBlack As Long...

post your db here and I will look at it, no DVD required!

If there is no data to return then how can you show any data? If you have a query that returns some static data such as employee name, dob and then you want to show something like employee scores, which could be for some employees or not then something like the following in the query could...

Why dont you step through the code and see where the problems crops up? Or post it here and i'll look at it?

search "dynamic comboboxes" on this forum and there are loads of example db's