Search results for query: *

Hi JoanneM, This should work for Access 97, 2000 and above, also Excel and Word, basically any application that supports VB or VBA. Bill

Hi Guest4, Try the example that I have posted at http://www.wpower.fsbusiness.co.uk/ file to download: CommonDialogAccessGuest4.zip I've taken your idea about using an Access report to display your images. The code is short and sweet so it should be easy enough to understand. Unfortunately...

Hi amacbean, Not trying to detract from tonyireland's excellent method above and not star hunting. I strongly suggest that you use a method similar to my suggestion in your Main/Switchboard or similar Form at least. Alt-F4 will still close the DB from anywhere and so will File>> Exit from the...

Hi, This is quite possible to do. 1. Create your print procedures using a Macro. Example: Macro Name: Report1 Action: OpenReport Report Name: rptAuthors View: Print Preview 2. Create your ShortCut menu: A. Right Click on any Menu Bar or select Tools >> Customize from the...

Hi, In my opinion the simplest way to control the closure of a form or DB regardless of whether the X button is enabled or File Exit or File Close are available from the Menu Bar etc, etc is: In the Form's Declaration section: Dim booCanClose As Boolean In the On Click event of the Form's...

Hi Roy, I forgot to refresh before submitting, your's should do the trick as well. Good Luck Bill

Hi NKA, Try this if Contract_Code is a string/text: If DCount("[Contract_Code]", "TBL_SelCon", "[Contract_Code]) = '" & strLookUp & "'") = 0 Then Otherwise if it's a number: If DCount("[Contract_Code]", "TBL_SelCon&quot...

Hi SDAHLE, I think your Input Mask should be: >"OR16-"A000\-000;0 In the On Enter event of your Control: Me!TheControlName.SelStart = 5 Bill

Hi gungfukid, This will open Photo Editor on its own: Call Shell("C:\Program Files\Common Files\Microsoft Shared\PhotoEd\PHOTOED.EXE", vbNormalFocus) This will open Photo Editor with a specified image file: Call Shell("""C:\Program Files\Common Files\Microsoft...

Hi cuok, I'm not sure about what you want. Have assumed that "txtgetmed" is the control with the highlighted text that you want to search for in the memo field "txtDetail". Place this in the Declarations section of your form: Dim strSelection As String This in the On...

Hi, This should do it for you: Dim datDate As Date datDate = "July 15, 2003" MsgBox Day(DateAdd("m", 1, datDate - Day(datDate) + 1) - 1) Bill

Hi, This should do it for you, have marked changes in red: Dim rs As DAO.Recordset Dim intMaxCol As Integer Dim intMaxRow As Integer Dim objXL As Excel.Application Dim objWkb As Workbook Dim objSht As Worksheet Dim i As Integer Set rs =...

Hi, Set the Form's Allow Additions property to No. If you want to add new records, you will need a button or similar to say e.g.: Me.AllowAdditions = True Also maybe look at Help for explanation on: Allow Edits, Data Entry and Allow Deletions. Bill

Hi, This example stores a popup form's opening position and size using the GetWindowRect API. Paste this into a Module's Declaration section: Declare Function GetWindowRect Lib "user32.dll" (ByVal hwnd As Long, lpRect As RECT) As Long Public Type RECT Left As Long...

In the After Update event of your combo if on a Main Form: Me!subData.Form.Rowsource = "qryDataSet1" Bill

Try if code is on the Main Form: Me!Sub_Form.Form.RecordSource = strSQL This if code is on the Sub Form: Me.RecordSource = strSQL Bill

A string: stLinkCriteria = "[ipcisID]= '" & Me![ipcisID] & "'" A number: stLinkCriteria = "[ipcisID]= " & Me![ipcisID]

Hi, You need to set the dbs to what I assume is the open DB. Haven't tested your code so there could be other errors. 'BOMBS AT THE LINE BELOW AND JUMPS TO ERR_CANTEXPORT Set dbs = CurrentDb Set qdf = dbs.QueryDefs("qryExportPCTrans") It would be nice to get a thanks for using my...

Hi Jerome, I made a slight error in my code yesterday. Format Conditions doesn't support the Font and Italic properties, have replaced them with the correct properties, FontBold and FontItalic: Dim ctl As Control On Error Resume Next For Each ctl In Me.Form.Controls With ctl...

Hi Jerome, What I always do is use the Tag property of the controls that I want to Conditionally Format. In this example, each control tagged Condition1 will be formatted so, If softcopy_hardcopy = Cancelled, Forecolor = Red, If softcopy_hardcopy = Accepted, Forecolor = Blue, Else don't change...