Recent content by xdenama

  1. X

    Open Report with not null condition

    Thanks a lot (y)
  2. X

    Open Report with not null condition

    How to open report with two condition like this DoCmd.OpenReport ReportName:="Test4", WhereCondition:="ID = " & !ID And Me.[SEK_1] Is Not Null, View:=acViewPreview, WindowMode:=acHidden First condition ="ID = " & !ID is ok but when I put second condition And Me.[SEK_1] Is Not Null the return...
  3. X

    MSAccess, Print each Report as pdf with different file name and email

    Problem solved, I put "Kill" command after email send. Thank you so much for your passion. Have a nice day and happiness...:giggle::giggle:
  4. X

    MSAccess, Print each Report as pdf with different file name and email

    I've one problem here. Lets say, If first batch of email I send to 10 recipient then the second batch I only send to 8 recipient, the two file that created for the first batch also send for the second time...
  5. X

    MSAccess, Print each Report as pdf with different file name and email

    I post the correct code to others for future reference. Private Sub Command0_Click() On Error GoTo Err_Handler Dim oApp As New Outlook.Application Dim oEmail As Outlook.MailItem Dim fileName As String, todayDate As String Const YourCustomerTable As String = "tblCustomer" Const TheEmailField...
  6. X

    MSAccess, Print each Report as pdf with different file name and email

    Sorry, it's working. Maybe I received last email is delayed email and I assume that is a current email. Thanks
  7. X

    MSAccess, Print each Report as pdf with different file name and email

    Still not change, and every recipient received the email repeatedly as a numbers of email.
  8. X

    MSAccess, Print each Report as pdf with different file name and email

    It's working, save as pdf with different file name and email, but each pdf contain all report, not separate. maybe this line DoCmd.OutputTo acReport, "Test2", acFormatPDF, fileName, False
  9. X

    MSAccess, Print each Report as pdf with different file name and email

    I post new code with error
  10. X

    MSAccess, Print each Report as pdf with different file name and email

    Private Sub Command7_Click() 'On Error GoTo Err_Handler Dim oApp As New Outlook.Application Dim oEmail As Outlook.MailItem Dim fileName As String, todayDate As String Const YourCustomerTable As String = "[Test3]" Const TheEmailField As String = "[Email]" Dim dbs As DAO.Database Dim rst As...
  11. X

    MSAccess, Print each Report as pdf with different file name and email

    Wow, so impressive. This is what I've been looking for. However if I've any more inquiries , can you consult me?
  12. X

    MSAccess, Print each Report as pdf with different file name and email

    I have a code for email the whole report to the one recipient. How to print the report separately by customer id with pdf format and email them to related customer? Private Sub Command0_Click() On Error GoTo Err_Handler Dim oApp As New Outlook.Application Dim oEmail As Outlook.MailItem Dim...
  13. X

    Insert INTO SQL with File Dialog

    Actually I want choose different file when I run the query. I want to use file dialog to choose the file from different location.
  14. X

    Insert INTO SQL with File Dialog

    Hi there, how to choose a Table from difference ms access file to append data with File Dialog? This is my current APPEND QUIRIES INSERT INTO F15 ( SERVICE, YEAR, DUTY) IN 'D:\NS\Labv1.accdb' SELECT F13.SERVICE, F13.YEAR, F13.DUTY FROM F13;
  15. X

    Display data base on query criteria

    I have query base on one table. I want to hide / display row in query base on year (2014). If any Club don't have year 2014, will be hide (in this case, Yellow Club will be hide) other wise any Club have year 2014 will be display (Red and Blue) with all years (2014,2013,2012) in query. Please...
Top Bottom