Search results

Did you ever figure this out? I was seeing an error on this line: & QUOTE & Me.txtLicense & QUOTE & ")" 'and insert new record into tblReservations till I deleted the comment on the end of this line: & QUOTE & Me.TxtNotes & QUOTE & ")", "" _

CurrentDb.Execute "INSERT INTO tblAppointments (ApptID, ApptSubject, ApptLocation, ApptStart, ApptEnd, ApptNotes, LicensePlateNunber) VALUES (" _ Spelling

If you would care to share, I wouldn't mind seeing the code for your AppointmentsCheck Function.

This is what I did to email a PDF: Private Sub CmdEmailPDF_Click() On Error GoTo CmdEmailPDF_Click_Err Dim Subject As String Dim MyFileName As String Subject = Me.txtInvoiceNumber & "-" & "Invoice" & ".pdf" MyFileName = Me.txtInvoiceNumber & "_" & "Invoice" & ".pdf" ' Open Invoice...

Isn't it a division by zero problem?

it says "Microsoft Office Access can't find the macro 'RMA 2013' The macro (or its macro group) doesn't exist, or the macro is new but hasn't been saved."? This is very strange. I wonder if I am missing something as I use Access 2010. I have a feeling that isn't the problem though, as this...

This code cannot all be on the same line BTW

Have you coded it EXACTLY like this: If IsNull(me![MainFormName]![Qty 2]) Then Me![MainFormName]![Additional Parts?] = 0 Else Me![MainFormName]![Additional Parts?] = -1 End if And are positive its in the after update event? Can you copy and paste your exact code for me?

or this: If IsNull(me![MainFormName]![Qty 2]) Then me![MainFormName]![Additional Parts?] = 0 else me![MainFormName]![Additional Parts?] = -1 end if

Try this: If me![MainFormName]![Qty 2] = "" then me![MainFormName]![Additional Parts?] = 0 else me![MainFormName]![Additional Parts?] = -1 end if

Also check that your control source is correct

This is the same process to figure out what your checkbox is called aswell

Tables have "fields" and "Records" Forms have "objects" In the form, the object is where you enter the data for a "field". The data entered would be the record. If you open your form in design view and open the "properties" tab, click on your textbox where you are entering your Qty 2 data...

Make this change: If IsNull(me![Qty 2]) then me.[Additional Parts?] = 0 else me.[Additional Parts?] = -1 end if Is Qty 2, the name of the textbox, or the name of the field? In the future, try to avoid having spaces in field names...its a bit of a pain! Its also helpful to name textboxes...

In the "After Update" event of your Qty 2 Textbox, you would have to write some VBA that looked something like this: If IsNull(me!yourtextboxname) then me.yourcheckboxname = 0 else me.yourcheckboxname = -1 end if

No worries...I remember it taking me a looooooong time to figure this one out! Happy to help!

I did this exact thing for a form and it worked like a charm. Here is the code I used: Private Sub CmdEmailPDF_Click() On Error GoTo CmdEmailPDF_Click_Err Dim Subject As String Dim MyFileName As String Subject = Me.txtInvoiceNumber & "-" & "Invoice" & ".pdf" MyFileName = Me.txtInvoiceNumber &...

If you have an expression in the query taht your form is based on, just set the control source of your results textbox to be the same as the expression in the query. either that or fix the equation to be: = ([desired inventory] - [current inventory])

Wow, thats a strange one. Is "visible" set to yes for the labels? Other than offering more completely obvious advice, I am stumped.

Are their records in the underlying tables? If not, set "Allow Additions" to true.