Search results

Private Sub cmdPrint_Click() On Error GoTo Err_cmdPrint_Click DoCmd.PrintOut Exit_cmdPrint_Click: Exit Sub Err_cmdPrint_Click: MsgBox Err.Description Resume Exit_cmdPrint_Click End Sub I think you have to make some adjustment on your form properties. I can send you...

try this, i used dlookup all the time and following works =DLookUp("([CustomerID])","tbl_Customer","[CustomerID] = '" & [CustomerID] & "'") replace tbl_customer with your destination table name. Good luck dianna goldsberg

Hi everyone, Download the database: http://www.utteraccess.com/forums/download.php?Number=459885 I have an export data form. Data gets loaded from a query. I was wondering if I can put additional filtering system. You can open the form "frmLocalAuthorityQuery" and select the query from the...

1. Can someone send me some link (perhaps from this forum) that talks about how to create custom help. The help can be behind some buttons. Does not have to be on Access's factory menu bar. 2. When I click on ActiveX "more control" from my toolbar in the form or from the menu, it does not show...

Re-Coding... Hi Rich, I was going over your code and combine some of your idea with my old code and now my OLD CODE is working like a charm. Thanks for sharing your idea. I am posting my new code. Thanks a Bunch for being so prompt and helping me. Dianna Goldsberg...

Error on Incorrect Password... Hi Rich, I am getting an error on incorrect password. - - - actual error - - - Run-tim erro '3315': Field 'tblInvoice.ApprovalStatus' Can't be a zero-length string. - - - - - - - - - - - - - The following line is highlighted...

Hi, Combo box name: cboApprovalStatus What Do I need ? I am trying to apply a password when a value is changed in combo box. I think i have to put the code in afterupdate. I put following code but it's not working well. Now, if the a enduser click on drop down and dont change the value then it...

Hi Rich... OK Following code works..... (Exactly the way I wanted to).... Private Sub txtInvoiceBillDate_AfterUpdate() Dim vTempDate As Variant Select Case Day(Date) Case Is <= 25 If CDate(Me.txtInvoiceBillDate) <= Date Then Me.txtInvoiceBillDate = CDate(Month(Date) &...

Can anyone verify my code... Purpose: ====== 1. Force users not put a back date than today. 2. Force users to put 25day of the month but if today's date is 4/28/04 then they should enter a future date that is either 05/25/2004 or 06/25/2004. If today's date is 4/23 then users can put...

It worked... Thanks Rich for being patience with me and fixing the code again and again. Thanks a Bunch Dianna The following code changes the day as well.... Code begins here ========================================================== Private Sub txtInvoiceBillDate_AfterUpdate() Dim...

Can Someone Verify my Code Please... I am getting an Application Error, followed by Crash Please help. ====================================================== Private Sub txtInvoiceBillDate_BeforeUpdate(Cancel As Integer) If (Me.txtInvoiceBillDate < Date And Day(Me.txtInvoiceBillDate) <>...

before update... I deleted the day portion. Why then the setfocus is not working.

Glitch..... Thanks Rich for your prompt respond. However, why am I still getting error. Private Sub txtInvoiceBillDate_BeforeUpdate(Cancel As Integer) If (Me.txtInvoiceBillDate < Date And Day(Me.txtInvoiceBillDate) <> 25) Then MsgBox "Date is Too Early and not the 25th"...

I am using following code to validate Invoice Date on my form. Rules: 1. End user is not allow to put a date that is less than todays date. 2. Invoice date must be the 25th of a month So, If I am entering Invoice data today (04/27/2004), and I put an Invoice date "04/20/2004", then I should...

Query ...... You can use Top 4 method. See below. (database is orderentry by microsoft) MS orderenty database (qryOrdersByCustomers) ===================================================== SELECT DISTINCTROW top 4 Orders.OrderID, Orders.CustomerID, Orders.OrderDate, Orders.FreightCharge...

AcNewRec On the form property, On Open Event DoCmd.GoToRecord , , acNewRec ===================================== Sorry, i thought you want to open a record. for new record you can use above code or what jon suggested.

On Open Report Event... step 1: You need to create a text box "unbound" for your header txtHeader step 2: On open method you can prompt user to type whatever in a pop up input box. (or may be a form) step 3: me.txtheader.value = the message in the pop-up box. or (if you...

I am using following and it works very smoothly... Option Compare Database Option Explicit Private Sub FileCopyButton_Click() Dim SourceFile, DestFile1, DestFile2, DestFile3, DestFile4, DestFile5, DestFile6, DestFile7, DestFile8, DestFile9, DestFile10, DestFile11, DestFile12, DestFile13...

2 approach... approach 1: You can use acFormEdit approach 2: You dont really need acform whatever, Access will open the record in editable mode. Good Luck Dianna Goldsberg

I figured it out.... InvAmount: Int(DLookUp("([Invoice_amount])","tblInvoice","[ga_number] = '" & [GA_Number] & "' And [plannum]='" & [PlanNum] & "' And [pye]=#" & [pye] & "#")) Above works better and faster. ======================================================== InvAmount...