Search results

I use the following subroutine within a holiday/absence database. When a user adds an 'event' I call this routine and it adds it into their outlook calendar. Hope it helps. Matt. Public Sub sAddAppointment(datFromDate As Date, datToDate As Date, strCatCode As String, strHalfDay As String...

Woah! Walked away half way through typing my answer and now I've been beaten to it!!:D

The bound column has no effect on the column you see, it merely sets which column the combo box refers to when you ask for its value (i.e. column 1 = A, column 2 = B, if bound column = 2 then combobox.value = B). If you only want to see the second column in the combo box, then set the column...

I have a database which when compacted produced the MSysCompactError table. This is supposed to hold the table and record id of the records causing the error, but all it held was the table name - MSysObjects. I spent some time going through the table, and eventually found the error. There is...

I don't think it can be done. As far as I'm aware, they're both warning messages, and as such you can only turn them all on or off. Not selective messages. I would be happy to be proved wrong though!:D

Just add the name property: Public Sub sShowConnections() Dim tdefLinked As TableDef For Each tdefLinked In CurrentDb.TableDefs If tdefLinked.Connect <> "" Then Debug.Print tdefLinked.Name & " \ " & tdefLinked.Connect Next End Sub Glad I could help!

I can understand problems with Choose and Switch, but the Iif should work: =Iif([Decision]=1,"Accept",Iif([Decision]=2,"Reject","Undecided"))

Hmm, I'm currently using A2K, but I think the following code will work in 97: Public Sub sShowConnections() Dim tdefLinked As TableDef For Each tdefLinked In CurrentDb.TableDefs If tdefLinked.Connect <> "" Then Debug.Print tdefLinked.Connect Next End Sub Just go into the...

It comes up with the list because you've got the controls wizzard turned on. Turn this off (by clicking on the wand in the toolbox menu), and you should be able to just create the command button you need.

Have you tried using the JetComp utility?

Yes, I Know!! The db contains many public functions created by myself and others, but none of these deal with the RecordsetClone property. I have one table holding the data. A subform to enter data into the table, and a query to view selected contents. NO user-defined functions.

I have a large FE/BE set up, and part of the FE is a post register. There are two subforms, one for entering post, the other for viewing outstanding post. A user was in this part of the database, although not active (i.e. using other applications). The following error message suddenly...

SELECT "B" & Books.BookID............ UNION SELECT "P" & Periodical.PeriodicalID........ This would give you B1, B2, P1, P2 etc........ Alternatively, add a field to the query: SELECT "Book" As Type, Books.BookID............ UNION SELECT "Periodical", Periodical.PeriodicalID........

You can't create an executable from an Access database. Have a look at creating an .MDE file.

Ok. Have just read through the code again and think I might have found your problem. You only dim olObj and olMail as part of the IF statement, but you have olObj.Quit and Set olObj = Nothing as part of the normal code. So if there are no records, olObj will not have been dimensioned. HTH...

Which line of code produces the error?

A more detailed explanation of your problem would be helpfull.:)

You say that if users select certain tasks then the rr and rc fields will not need to be entered, but in the code you check to make sure they have a value? I'm assuming the combo box the users select the task from is called task? The following on the after_update event will force the value to...

To get rid of the warning message you have two choices. Either turn the warnings off, then on: DoCmd.SetWarnings False DoCmd.RunSql strSQL DoCmd.SetWarnings True OR, replace DoCmd.RunSql with CurrentDB.Execute: CurrentDB.Execute strSQL

As far as I'm aware, you don't have to remove the reference, just make sure the DAO 3.6 reference is before it in the list.