Search results

  1. c_smithwick

    Menu toolbar and splashcreen

    There are links behind the little "Help" item in your menu. Ask about custom menus and splash screen and you shall recieve. Remember, when all else fails - read the instructions.
  2. c_smithwick

    Identify & Message Logged In Users

    Bare bones version, but this should get you started ... Public Function CheckStatus() ' Use this in the OnOpen Event of your main form, switchboard form, etc ... or in the Main sub that runs whenever your user first open their Front End Dim blnUnderDev As Boolean Dim rst As...
  3. c_smithwick

    Identify & Message Logged In Users

    I have a similar setup for a database I have disigned at work. The way I resolve it is fairly easy 1. I open a hidden form with a timer that fires every 30 seconds and queries a value (that i can set on or off) in a lookup table. If I need to update the database, I set this value to true...
  4. c_smithwick

    hidden windows

    Make sure you have a reference set to Microsoft Office
  5. c_smithwick

    hidden windows

    You need to open the presentation itself without a window. Something like the following would work: Dim PPObj as Powerpoint.Application Dim oPPTPres as PowerPoint.Presentation Dim sFileName as String Set PPObj = New PowerPoint.Application sFileName = "C:\test.pptx" Set oPPTPres =...
  6. c_smithwick

    Dynamic Array reading from Recordset

    Play with the code - I wrote it hastily and didn't test it, but the general idea is sound. Step through the code and use the immediate window to check variable values and make modifications as needed. Basically you want to step throught the recordset and combine Text strings where the ID is...
  7. c_smithwick

    Too many IIFs

    Use "WHERE TableName.TextField Like '*' & SearchCriteria" - (substituting actual table name and field name of course)
  8. c_smithwick

    Dynamic Array reading from Recordset

    Try the following: Public Sub populateCombWork() Dim rst As DAO.Recordset Dim rstCombWork As DAO.Recordset Dim strWIText As String Dim strIDTest As String Set rst = CurrentDb.OpenRecordset("SELECT qryWorkInfoText.WIIncidentID,qryWorkInfoText.WIText FROM qryWorkInfoText ORDER BY...
  9. c_smithwick

    Simple Database over 500Mb in size, why?

    It is not a good idea to constantly create and delete tables - it creates a great deal of bloat. Try a different approach - perhaps restructuring just one table (through VBA) based on field types and names you need for your text import (hence reuse just one table).
  10. c_smithwick

    Dynamic Array reading from Recordset

    Try the following Public Sub populateConbWork() Dim rst As DAO.Recordset Dim rstCombWork As DAO.Recordset Dim strWIText As String Dim strIDTest As String Set rst = CurrentDb.OpenRecordset("SELECT qryWorkInfoText.WIIncidentID, qryWorkInfoText.WIText FROM qryWorkInfoText ORDER BY...
  11. c_smithwick

    Code strategy

    You asked (in email): 1. How do I get them to filter data so the user could see only units from that category for which the form was created (some sort of filter for form "On load" event)? 2. And from Dave's comment "ok - so you have different test types - but everything is just a reading", does...
  12. c_smithwick

    Code strategy

    In answer to your question as to how to get data into "tblData", you simply have to capture the appropriate Cal_ID , Equip_ID and date from your data collection forms, open a recordset against tblData (easiest to do from VBA on an afterUpdate event) and then do an Add/Update against the...
  13. c_smithwick

    Code strategy

    ' Create two tables, one containing frequency data with the following fields named "tblFreq" ' Equip_ID (Long Integer - equipment ID that uniquely identifies a piece of equipment and relates to one or more tables with other equipment data) ' Cal_ID (Long integer - calibration ID that...
  14. c_smithwick

    Transfer Spreadsheet Method loop for Multiple, Unspecified Files

    The first time you use the Dir function with a filespec it will return the first file found. If you are using it with a wildcard (as you are), the next time you call the Dir function, don't specify a filespec and it will return the next file matching the wildcard, or a zero-length string if no...
  15. c_smithwick

    Working with Time Intervals

    Just to clarify something, the DATE data type is stored as (8-byte) floating-point numbers that represent dates ranging from 1 January 100 to 31 December 9999. The "Short Date" is a display format and has nothing to do with the data that is stored. When you are inputing a date, as long as you...
  16. c_smithwick

    SQL comes up Empty

    Try this: Dim srchplant As String dim rst as DAO.Recordset srchplant = Me.Text18 Set rst = CurrentDb.OpenRecordset("SELECT tblgdmreport.Facility_name, tblgdmreport.unitid_epa FROM tblgdmreport WHERE Facility_name like '*" & srchplant & "*' ORDER BY tblgdmreport.Facility_name...
  17. c_smithwick

    Prompts supplied while writing code don't always work?

    The properties and methods that pop up in the IDE are an AID. You still need to be familiar with the object model that you are using. The popups aren't equivalent to "Programming for Dummies". If the methods you are trying to run require parameters, you need to be familiar with what...
  18. c_smithwick

    How to generate in VBA a "File, Open window"

    Enter the following function: Function GetFile(Optional OpenAt As String) As String Dim lCount As Long With Application.FileDialog(msoFileDialogOpen) .Show For lCount = 1 To .SelectedItems.COUNT GetFile = .SelectedItems(lCount) Next...
  19. c_smithwick

    tweak required..... (email/A2003 to Outlook)

    Message is not a valid property of an Outlook MailItem. Use the Body property instead
  20. c_smithwick

    Reading data from another app

    If I am reading you correctly it sounds like you need to determine what frame the video is currently on as a user is playing it, query the text file for the corresponding chainage data and plug that chainage data into your database to retrieve the corresponding road conditions. If that's the...
Back
Top Bottom