Hi,
I also tried:
DoCmd.OpenQuery ("qryTempMX")
Dim Amt As String
howmany = DCount("*", "tempMX110")
Forms![StartNew]![Vender_Setup].Form![amount] = howmany
And it is cleaner and works great. As you can see I ran a make table query but I counted records in table "tempMX110". I did this...
Hi All, I have the following recordset count the number of records, if there are no records I get an error. is there a way around this?
(some info: the table "tempMX110" is based on a query "qrytempMX" and sometimes will return no records)
' Count Number of MX-110s
DoCmd.OpenQuery...
Hi All,
I keep getting this message "too few parameters.Expected 1" when I run the following code. My query has a criteria in one of the fields. When I run the code with out the criteria it works, but it exports ALL the data from the table.
Dim rst As DAO.Recordset
Dim Path As String
Dim...
You should simplify the the code that sends the email. Try this:
DoCmd.SendObject acSendNoObject, "", "", Me.EMAILaddress, "", "", Me![Subject], Me![MessageBody]
I couldn't find on the form where you give the Email address. So for the code I assume there is a field Me.EMAILaddress.
This one...
This is what I have so far, but its still not working:
The form is called MX110
The Table is called TBLImageBLOBS
Dim DB As DAO.Database
Dim RST As DAO.Recordset
Set DB = CurrentDb
Set RST = DB.OpenRecordset(tblImageBLOBs)
RST.AddNew
RST!record_number = Me.aud_number
RST.Update
Set RST =...
Hi All,
I have a form which is bound to a table. I want some of the Data to go to another table which is not the control source. I am trying this code, but no luck. What am I doing wrong?
Table![tblImageBLOBs]![record_number] = Me.aud_number
Thanks
Bones
In the form design, click insert>ActiveX Control>Acrobat Adobe ActiveX Control.
Right Click on it>properties...change name to "viewer".
Depending on what version of acrobat you have the name of the ActiveX Control might be different.
If you need help more help, let me know what version of...
Try this. Make sure that MS Outlook 11.0 Object Library is selected in your tools.
"Email" is the field whicjh holds the address. "sub" is a test box for they user to type a subject.
DoCmd.SendObject acSendNoObject, "", "", Me.Email, "", "", Me.sub
Here it is cleaned up...
Private Sub Command1_Click()
Dim AcroApp As CAcroApp
Dim AVDoc As CAcroAVDoc
Set AVDoc = CreateObject("AcroExch.AVDoc")
Set AcroApp = CreateObject("AcroExch.App")
Me.viewer.loadFile ("C:\yourfile.pdf")
End Sub
Thought this could be useful. The following code will open a PDF inside a form.
Insert the PDF activeX control and name it "viewer".
Make sure you add the Adobe OLE reference ("adobe"), if not the code will be undefined.
Private Sub Command18_Click()
Dim AcroApp As CAcroApp
Dim AVDoc As...