Wrox Programmer Forums
| Search | Today's Posts | Mark Forums Read
VB Databases Basics Beginning-level VB coding questions specific to using VB with databases. Issues not specific to database use will be redirected to other forums.
Welcome to the p2p.wrox.com Forums.

You are currently viewing the VB Databases Basics section of the Wrox Programmer to Programmer discussions. This is a community of software programmers and website developers including Wrox book authors and readers. New member registration was closed in 2019. New posts were shut off and the site was archived into this static format as of October 1, 2020. If you require technical support for a Wrox book please contact http://hub.wiley.com
  #1 (permalink)  
Old August 19th, 2004, 12:40 PM
Registered User
 
Join Date: Aug 2004
Location: , , .
Posts: 7
Thanks: 0
Thanked 0 Times in 0 Posts
Default Export Delimiters

Im not very experienced in programming with Access, and I have a question about the export delimiter. I have two tables:

Course_List:
Workshop Name
Workshop Location
Workshop Number
Workshop Status
Date
Max Size

Enrollment:
Name
SSN
Department
Address
Phone
Email
Workshop Name
Status

I made a query called Email, that gives the user a dialog box and allows them to enter a workshop number. It then retrieves the email address of each person enrolled in that particular workshop. I have a form created with a button that runs this query using the TransferText action, then outputs it to a textfile named Email located on my C drive. I need the output in this format though: example@example.com; example2@example2.com; etc. etc. I cannot figure this out. If someone could help me, I would really appreciate it. I already tried using the Export Text Wizard and creating delimiters through that, but it's not working out too well.

This is the code I currently have in the button procedure:
Private Sub buttonEmail_Click()
On Error GoTo Err_buttonEmail_Click

    Dim stDocName As String

    stDocName = "C:\Email.txt"
    DoCmd.TransferText acExportDelim, , "Email", stDocName, True

Exit_buttonEmail_Click:
    Exit Sub

Err_buttonEmail_Click:
    MsgBox "The following error was encountered:" & Chr(13) & Err.Number & ": " & Err.Description, vbOKOnly, "Error"
    Exit Sub

End Sub

Thanks




Similar Threads
Thread Thread Starter Forum Replies Last Post
using delimiters---i need Heeeeelp!!! ssimkhan Pro Java 1 June 15th, 2007 06:55 AM
using delimiters---i need Heeeeelp!!! ssimkhan Java Basics 1 June 15th, 2007 06:22 AM
Export bev Reporting Services 0 December 7th, 2005 12:23 PM
how to read delimiters debo_sbg XSLT 7 May 11th, 2005 11:20 AM
how to export to excel anjaneekumarcl Beginning VB 6 2 September 29th, 2004 04:13 AM





Powered by vBulletin®
Copyright ©2000 - 2020, Jelsoft Enterprises Ltd.
Copyright (c) 2020 John Wiley & Sons, Inc.