Still celebrating National IT Professionals Day with 3 months of free Premium Membership. Use Code ITDAY17

x
?
Solved

Updating Splash Screen During Data Import Process

Posted on 2011-03-24
3
Medium Priority
?
256 Views
Last Modified: 2012-06-21
Hi Experts,

I have an import process that imports data from tabs in an Excel file.  That works.  But what my client wants is a splash screen saying what tables are being appended to when it's happening.  

If I create a splash screen and call that screen prior to the import process.  How do I get my original window to post to the screen during the import process?  So how do I write to a form from another form?

Thank you ,

Wendee
0
Comment
Question by:pwdells
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 2
3 Comments
 
LVL 48

Expert Comment

by:Dale Fye
ID: 35210355
Use the Load event of the splash screen to run your import process.

Put a label control (lbl_Status) on your splash form and set its visible property to No.

In the Load event of the form, do something like:

Private Sub Form_Load

    Dim strWorkbook as string

    me.visible = true

    me.lbl_Status.Visible = true

    strWorkbook = "C:\somefolder\somefile1.xls"
    me.lbl_Status.Caption = "Importing worksheet:" & strWorkbook
    docmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12, "tbl_Dest", strWorkbook, true

    strWorkbook = "C:\somefolder\somefile2.xls"
    me.lbl_Status.Caption = "Importing worksheet:" & strWorkbook
    docmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12, "tbl_Dest", strWorkbook, true
 
    strWorkbook = "C:\somefolder\somefile3.xls"
    me.lbl_Status.Caption = "Importing worksheet:" & strWorkbook
    docmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12, "tbl_Dest", strWorkbook, true

    me.lbl_Status.visible = false

End Sub
0
 
LVL 48

Accepted Solution

by:
Dale Fye earned 2000 total points
ID: 35210367
If you really want to code to be in some other form, then use a syntax similar to:

Forms("frm_Splash").lbl_Status.Visible = True
Forms("frm_Splash").lbl_Status.Caption = "Importing worksheet:" & strWorkbook

Dale
0
 

Author Comment

by:pwdells
ID: 35418021
I had to find a different solution to this problem.  I will update tonight, when I get home to my personal laptop to post my solution.
0

Featured Post

Free Tool: SSL Checker

Scans your site and returns information about your SSL implementation and certificate. Helpful for debugging and validating your SSL configuration.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

You need to know the location of the Office templates folder, so that when you create new templates, they are saved to that location, and thus are available for selection when creating new documents.  The steps to find the Templates folder path are …
Microsoft Access is a place to store data within tables and represent this stored data using multiple database objects such as in form of macros, forms, reports, etc. After a MS Access database is created there is need to improve the performance and…
In Microsoft Access, when working with VBA, learn some techniques for writing readable and easily maintained code.
Polish reports in Access so they look terrific. Take yourself to another level. Equations, Back Color, Alternate Back Color. Write easy VBA Code. Tighten space to use less pages. Launch report from a menu, considering criteria only when it is filled…

721 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question