Search results

http://www.access-programmers.co.uk/forums/showthread.php?t=139267

This can be done but there's some work involved. Here's a rough example that uses the Windows user name for the people in charge of recontacting a company, perhaps something you can use as a starting point as you build your solution... Option Compare Database Option Explicit Private UserX As...

Is the the list box's "Multi Select" property set None? If not, change it to None and try again...else try the following... reportname = cstr(listReports.Value) Regards, Tim

I prefer nightmayor's solution because it's clear what the code is doing... Select Case ComboName.Value Case "Jan" Me.Jan = "Hi" Case "Feb" Me.Feb = "Hi" Case "Mar" Me.Mar = "Hi" End Select Yet you could also do this...

msgbox CDbl(Me.LabelName.Caption) * CDbl(Nz(Me.TextBoxName.Value, 0)) Regards, Tim

Just a guess...did you use the equal sign? =dlookup("[lastname]","qrsChildren") Regards, Tim

If I understand what you're asking, there are many ways to do what you want, including using OpenArgs. Code in the calling form... DoCmd.OpenForm "FormNameHere", acNormal, , , , acDialog, ValueofRecordToGet In the called form's open event handler... If Len(Me.OpenArgs) Then Me.Filter =...

I'm not sure you need any code... http://office.microsoft.com/training/Training.aspx?AssetID=RP101191331033&CTT=6&Origin=RC101178791033 Regards, Tim

And then someone will delete his user account and there will be an uproar in the 'cooler. Thanks for the code, Bob. You've still got it...even if the OP is AWOL.

The article says the "procedure may not work in some circumstances..." and "storing the path in a separate Text field when you link the OLE object is the best way to ensure that you will be able to retrieve the path later." Will that not work for you? If not, you could probably come up with...

Not sure how to do this inside Access but XSLT could be used outside of Access to transform the format... http://www.w3schools.com/xsl/ Regards, Tim

Let's stop sugar coating things and come clean. Bob has lost it.

Try... If Trim(Me.STATUS) = "Live" Then etc... Regards, Tim

No worries...life's more interesting at the edges...

after being banned

There's an example of how to do this in one of the Access sample files -- that is, the Northwind databases. Search your hard disk (or the Internet) -- for northwind.mdb and once found open the DB and check the Employee form. Regards, Tim

man from Non-Sequitur.

Speaking of mice

Private Sub Blah() Dim mypath As String: mypath = "C:\MyFakeFolder\MyFile.txt" Dim myfolder As String: myfolder = GetFolder(mypath) Dim fso: Set fso = CreateObject("Scripting.FileSystemObject") ' Create folder if necessary. If fso.FolderExists(myfolder) = False Then...

Way to go, Ken. Keep up the good work... Seems like this is turning into an appropriate thread to celebrate the occasion...