Posts by j.v.a.

  • Determine Table Size Or Number Of Records

    Re: Determine Table Size Or Number Of Records


    Something similar to below should do the trick:

    Code
    Dim tbf As TableDef, dbs As Database
    Set dbs = CurrentDb
    Set tbf = dbs.CreateTableDef
    
    For Each tbf In dbs.TableDefs
        
        MsgBox "Database Table Name: " & tbf.Name & Chr(10) & "Record count: " & tbf.RecordCount
        
    Next tbf


    ~j.v.a.

  • Save As Macro Code To Include Current Date In Name

    Re: Save File-


    Hi,


    It may not be the exact solution but did you try stating full path explicitly?
    i.e.

    Code
    'If path is C:\out\
ActiveWorkbook.SaveAs FileName:= _ 
"C:\out\USCapstock" & Format(Now(), "yyyy-mm-dd") & ".xls", FileFormat:= _ 
xlNormal, Password:="", WriteResPassword:="",  ReadOnlyRecommended:= _ 
False, CreateBackup:=False 
Application.DisplayAlerts = True


    ~j.v.a.

  • Humour

    This is the transcript of the ACTUAL radio conversation of a US
    naval ship with Canadian authorities off the coast of
    Newfoundland.


    Canadians: Please divert your course 15 degrees South to
    avoid a collision.


    Americans: Recommend you divert your course 15 degrees
    North to avoid a collision.


    Canadians: Negative. You will have to divert your course 15
    degrees to the South to avoid a collision.


    Americans: This is the Captain of a US Navy ship. I say
    again, divert YOUR course.


    Canadians: No. I say again, you divert YOUR course.


    Americans: THIS IS THE AIRCRAFT CARRIER USS LINCOLN, THE
    SECOND LARGEST SHIP IN THE UNITED STATES' ATLANTIC
    FLEET. WE ARE ACCOMPANIED BY THREE DESTROYERS,
    THREE CRUISERS AND NUMEROUS SUPPORT VESSELS. I
    DEMAND THAT YOU CHANGE YOUR COURSE 15 DEGREES
    NORTH, I SAY AGAIN, THAT'S ONE FIVE DEGREES NORTH,
    OR COUNTER-MEASURES WILL BE UNDERTAKEN TO ENSURE
    THE SAFETY OF THIS SHIP.


    Canadians: This is a lighthouse. Your call.


    -----
    Above is the classical one. Some of the good ones are at http://www.vcn.bc.ca/~gpareja/fri-hum.htm

  • Run Multiple Access Queries

    Re: Run Multiple Access Queries


    Ok. So use code you have and for any consecutive query you're pulling change Range reference. You may calculate what the next range reference is by obtaining recordset count + original row reference.


    j.v.a.

  • Adjust Switchboard Height

    Re: Adjust Switchboard Height


    STS125:

    Code
    'Something like this should work. Insert Me.InsideHeight = xxxx under Form(Switchboard) Load
Private Sub Form_Load()
    Me.InsideHeight = 2000
End Sub


    ~j.v.a.

  • Run Time Error '438'

    Re: Run Time Error '438'


    Generally you will receive Error 438 when object does not support method/event/property ...What is ComDlg1? My best guess it is File Dialog object and if I am not mistaken the property is .Title not .DialogTitle...


    ~j.v.a.

  • Get Record Creation Datestamp

    Re: Get Record Creation Datestamp


    Robert B,
    Appreciate your reply. Solution is perfect if I need to start quering the tables for records inputed after certain date in the future but it is of no use in my current situation. Likely there were not many differences between recordsets and I 've been able to figure out when these records were inputed.


    ~j.v.a.

  • Get Record Creation Datestamp

    Hi all,
    Is there any way in Access to query for records inputed on a certain date? Tables I am quering do not have date field with automating datestamp/timestamp populated on New Record creation. Is the a system variable or something I can use to get the record creation date and query it?
    I will need to validate data obtained from different versions of the software (back-end Access) to make sure data is correct.
    Reply is highly appreciated. Thank you in advance.
    ~j.v.a.

  • Access Executable With Parameters

    Re: Access Executable With Parameters


    zimitry,
    I doubt it will work [in the environment I need it to work]. I think with DTS Tasks I will be able to create something similar but is not the option. As for myself I think there is no way I can create database executable using Access (and Access only), but my supervisor thinks othervise. Currently I am exploring my options and looking for references either "Yes you can do it in Access by..." or "No, only 3rd party tools will get you to expected solution"
    ~j.v.a.

  • Access Executable With Parameters

    Re: Access Executable With Parameters


    Quote from zimitry

    Not to sure what you mean by excutable? could you explain a bit more detail?


    What I mean is for my database to act as the stand alone program (.exe) that accepts parameters. I am also curious of I can run my database program from command prompt example: C:\ MyDatabaseSolution param1 param2


    I know I can create database with Form on Startup that will execute specific script on Open but it it is not a solution for dynamic parameters that will change daily.


    Hope it makes more sence
    ~j.v.a.

  • Access Executable With Parameters

    Hi All,


    I noticed this question has been addressed several times before on this forum but reply was either "can not be done" or thread was completely ignored. I will still try my luck here (and hopefully won't be banned). My Qyestion of the day is Can I create Access Executable ( Run -time Access Database) that prompts for parameters and outputs results based on the parameter input?
    Can anyone advise me what I can do to make my existing database to act as executable?


    Thank you in advance,
    ~j.v.a.

  • Has Anybody Tried Core 2 Yet

    Re: Has Anybody Tried Core 2 Yet


    Just a comment on Core 2 Duo:
    I am on Core 2 Duo E6400 ( 2.13 Ghz/2Mb), 1 GB DDR2 Memory...
    Did not transfer all my projects yet(and can not comment on something more complicated that appr. 200 lines of intermediate code)
    but overall sustem is much faster then what I had before.


    E6400 is the secod from bottom, did not have enouth budget to go with E6600 (2.4 Ghz) but if difference with $100/150 does not scare you much,
    go with E6600...


    ~j.v.a.