Search results

I had to do something similar to this but I created a temp table to hold the file names in and then sorted the table by last edited date/time. And then Delete all the files starting with the 2nd record.

What kind of "find" are you looking for? - Do you have a screen shot of the dialog box?

sorry bout that

To insure the warnings do not get displayed Private Sub ConvertHire_Click() docmd.setwarnings = false DoCmd.RunSQL "INSERT INTO Hire (ID, Company) " & _ "VALUES (" & ID & ", '" & Company & "')" docmd.setwarnings = true

Did you set the min and max values of the Progress Bar? What is the value of intTime when it blows up? This happens to me when my progress bar gets a value of 10000 when its max is set at like 100. hth

This is in radians... The second part of your code you just posted will change it to degrees... VB does all its math in radians...

its something like docmd.acMoveNext

Is it the box that says "Another program is trying to send mail on your behalf...." If so here is some of the info that I got a while back for this very ? The Answer That I got

Sounds like you want to use an append query. Might try searching for that...

well it should be this but there is no freaking aCos in VBA.. Hmm what to do what to do... Maybe derive it from aTan but its way to late to be thinking this hard! I'll check back monday and see then... Public Function CalcAz(lat1 As Double, lon1 As Double, lat2 As Double, lon2 As Double) As...

I had all kinds of troubles distributing a DB that used the ActiveX control for Common Dialog box. Then I read this thread about 2 years ago and switched to the API call and All was well - soooooo API worked for me!!!!

the d is the distance they are apart.. After a bit of thought I need to take the aCos instead of Cos

Try this Private Function CalcAz(lat1 As Double, lon1 As Double, lat2 As Double, lon2 As Double, d As Double) As Double Dim X As Double Dim phi As Double X = Cos((Sin(lat2) - Sin(lat1) * Cos(d)) / (Sin(d) * Cos(lat1))) If Sin(lon2 - lon1) < 0 Then phi = X If Sin(lon2 - lon1) > 0 Then phi = 2...

I am working on a solution!!! - I know this one for sure - ~Begin Confident Voice~ I am a surveyor ~End Confident Voice" How do you want it returned? Azimuth in decimal degree's?, Bearing? N42E

Sorry bout that - This worked for me Set db = OpenDatabase("c:\MyDB.MDB")

Shouldnt you just send the path? does sSourceDB contain "C:\MyDB.MDB" instead of Set db = DBEngine.OpenDatabase(sSourceDB) use Set db = "C:\MyDB.MDB"

I would create an excel object to use. (Search for CreateObject in Access Help) I think this method is refered to as Automation???? Dim xlApp As Object ' Declare variable to hold the reference. Set xlApp = CreateObject("excel.application") ' You may have to set Visible property to...

I have to use it in queries all the time rs = db.openrecordset("Select * from table where field1 = " & chr(34) & mytxtVariable & chr(34)

Public Const Quoate As String = Chr(34)

Hmm - Will be thinking till I figure this one out!