Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations Rhinorhino on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Search results for query: *

  • Users: BillPower
  • Order by date
  1. BillPower

    How can you kill open file?

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

    Open File Automatically

    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...
  3. BillPower

    Can the Application Close Button ("X") Be Disabled

    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...
  4. BillPower

    Popup menu on a button click

    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...
  5. BillPower

    Can the Application Close Button ("X") Be Disabled

    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...
  6. BillPower

    Validation before executing query

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

    Validation before executing query

    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...
  8. BillPower

    Input Masks

    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
  9. BillPower

    open Microsoft Photo Editor using createobject

    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...
  10. BillPower

    check for text in a memo field

    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...
  11. BillPower

    Days of the month

    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
  12. BillPower

    copy query field name --> excel field name

    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 =...
  13. BillPower

    Blank record at end of continuous form..

    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
  14. BillPower

    Get position and size of Form on screen ?

    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...
  15. BillPower

    Subform Recordsource

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

    Setting RecordSource property of a subform.

    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
  17. BillPower

    Hi, I have a table of notes on a

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

    Trying to update query via user input on a form and then export query

    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...
  19. BillPower

    Changing Colors

    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...
  20. BillPower

    Changing Colors

    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...

Part and Inventory Search

Back
Top