Search results

  1. D

    How to add Cancel button to threaded 'Please Wait' Form

    Create a Cancel event in your WaitClass. Then using your class WaitDisplay.Canceled assign that to a function that aborts the thread, or closes the form, or whatever you want to do in the main thread. Air Code...Untested, this is just an example of how you might setup a Cancel event. Private...
  2. D

    use functions from a prepared dll file

    Did you write the APL_Std.dll? What language was it written in? Not all DLL's can be registered using regsvr32, that is only for native win32 DLL's. If it is a DLL using the .NET framework you need to use regasm.exe instead.
  3. D

    Importing a ton of excel data question

    http://www.access-programmers.co.uk/forums/showthread.php?t=195567 This may shed some light on why it's slow, and offer a different way to do it.
  4. D

    VBA modify recursive code

    Without looking to closely at your code, the first thing I see is the reason your variables are resetting to zero values. This is by design, if you want to retain the value of those variables you have a couple of options, move them out of the current subroutine to the top of the current module...
  5. D

    Unzip and renamed compressed csv

    Also if your filename or path has spaces in it you will probably need to encapsulate it in double quotes Chr(34) & "C:\Data\Log Parser " & Month(Date()) & "-" & Day(Date()) & & ".zip"& Chr(34)
  6. D

    Unzip and renamed compressed csv

    Sure, you could probably just open up a recordset and loop through that then. Dim rs as DAO.Recordset Set rs = Currentdb.OpenRecordset("TableName") Do until rs.eof UnZipFile(rs("FileName")) rs.movenext loop set rs = nothing
  7. D

    Unzip and renamed compressed csv

    As it stands the UnZipFile function takes a single file name as an argument, you would need to modify the function significantly to make it take an array or collection of file names. You would typically get an error like that if the datatype is invalid, in this case I suspect either the Zip...
  8. D

    Unzip and renamed compressed csv

    Well I would suspect you could put a Do...Loop using something like a filescriptingobject or the Dir command on the folder in question, get the Zip file name, then call the unzip function inside that loop for each file that's found.
  9. D

    Unzip and renamed compressed csv

    ZipFile is the complete path and name to your zipped archive i.e. C:\Temp\MyZip.zip, DestFolder is the path of the folder where you want the contents of the ZipFile place, i.e. C:\Temp\UnzippedFiles\ fName is an optional argument, if you provide that it will only extract a file with that name...
  10. D

    Debug issue with Print #file

    Try changing fFile variable to a double data type.
  11. D

    How to make access databases redistributable

    Make your project an accde file and install the MS Access Runtime for 2010 on their PC.
  12. D

    formatting a variable in VBA to change colour, underlining etc.

    No you cannot. Certain objects allow formatting options and others do not, you can't really change the format of a title bar to say make it italicized or bold. Now you could make your own form that has a combination of labels, make that form popup and modal, and achieve a similar effect to a...
  13. D

    Public Function Coding Problem

    You say the data type in the table is a long integer, yet your argument is using an integer type and not a long. Change all your data types to longs and see how that works. Edit: in VBA integer is more like a short integer.
  14. D

    data type mismatch - help!

    Based on your picture these are divide by zero errors, if you want zero to be displayed instead of an error then you need to use an IIF statement in the query to check for a zero value of your divisor.
  15. D

    data type mismatch - help!

    To convert time such as 3:20 (3 hours 20 minutes) to 200 minutes I think you'd need to write a VBA function to do that, I don't believe there are any built-in functions to convert between time formats. The NZ function can be used like NZ([FieldOrValue], ValueIfNull) The field or value will be...
  16. D

    data type mismatch - help!

    I would guess the field [start time] is not a date field OR if it is you may have a NULL value in it, most function will throw an error when a NULL is encountered. If it isn't a date field change the datatype or use the Cdate() function. If it already is a date field use the NZ function to...
  17. D

    If in a loop ?

    Well xYear increments by 1 each time it hits the next xYear line, assuming you start at a value of 1 you could use something like If (xYear mod 6 ) = 0 Then StartIncomeAmt = ClientMonthlyInc * (1 + InflationFactor) ^ ( 6 - 1) Else StartIncomeAmt = ClientMonthlyInc End if
  18. D

    Which PC has table open?

    Don't think there's anyway to pinpoint which table someone has open, but if you look at the .laccdb file the PC's currently connected will be listed in there.
  19. D

    Access 2010 and adp

    MS still says it's supported, though I don't have 2010 so I can't say for certain. http://office.microsoft.com/en-us/access-help/create-an-access-project-HA010341589.aspx
  20. D

    Auto update checkbox in table onclick

    Private Sub Submit_Click() Currentdb.Execute "Update Equipment Set Available = 0" End Sub Of course this will set all the "Available" fields in your table to No, if you want a specific record to change you need to add a where clause and the criteria to identify which record is no longer...
Back
Top Bottom