Search results

  1. B

    Recordset Question

    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...
  2. B

    Recordset Question

    Thats the trick! The latter worked perfect... Thanks for the quik response. Bones
  3. B

    Recordset Question

    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...
  4. B

    Help with RST and Query

    Wow! Works great! Thanks a bunch...
  5. B

    Help with RST and Query

    Thanks, I'll give it a try
  6. B

    Help with RST and Query

    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...
  7. B

    update two different tables (fields) from one text box

    Hi All, How do update two different tables (fields) from one text box from a form? Thanks
  8. B

    Calling a module

    Once the module is in your code, you don't need to call it; its running in the background. if you have the code, post it.
  9. B

    Car Event db 95% finnished - please review a few small errors

    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...
  10. B

    E-Mail data

    opps................................
  11. B

    Copy Form Data to another table

    I have alot tied to the bound table. It would be easier to just figure the code.
  12. B

    Copy Form Data to another table

    Can it be done in VBA?
  13. B

    Copy Form Data to another table

    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 =...
  14. B

    Copy Form Data to another table

    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
  15. B

    Open PDF in Form

    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...
  16. B

    emailing from combo box

    I believe the bound column of the combo box has to be cemailaddress (3). Hope this helps.
  17. B

    Email question

    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
  18. B

    Open PDF in Form

    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
  19. B

    Open PDF in Form

    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...
Back
Top Bottom