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!

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

Recent content by DJN

  1. DJN

    Using Word for Data Entry into Access?

    Yes it is possible, but with that amount of data, it could prove problematic. A more complex table, which has multiple sections, merged cells, totals and subtotals, and so on, importing it won't be straightforward. Access tables have to be absolutely consistent: every record must have the same...
  2. DJN

    SQL in code

    I prefer to make each line seperate with a space at the end. I can see what I am doing then.Just my opinion. It may help. Dim strSQL As String strSQL = "INSERT INTO TblScore ( AssessmentID, ParmsID, SiteID ) " strSQL = strSQL & "SELECT Assessment.AssessmentID AS Expr1...
  3. DJN

    Active X Calender Control

    In the forms Load event, put Me.txtMyCalendarControl = Date Just change the name of the calendar control to your own.
  4. DJN

    login

    There is a much shorter code version. Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long Public Function GetNTUser() As String 'Returns the network login name Dim strUserName As String 'Create a buffer...
  5. DJN

    Cannot get the desired Orderby

    Group on column 1, sort on colunm 2
  6. DJN

    EXPORT QUERIES INTO EXCEL WORKBOOK AS WORKSHEETS

    This will transfer the contents of the two queries to two worksheets in the one workbook. DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "qryYourQueryName1", "PathName.xls", True, "WorkSheetName1" DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "qryYourQueryName2"...
  7. DJN

    Alternating colors in a combo box

    Simple answer, you can't.
  8. DJN

    MsgBox if NoData found

    Try this Private Sub Command0_Click() Dim msg As String If IsNull(DLookup("FieldName", "QueryName")) Then msg = "No data. " MsgBox msg End If End Sub
  9. DJN

    Ken Getz QBF2k - Use with combo boxes?

    Have you thought of using the 'Like' operator?
  10. DJN

    Create my own "Report WIzard" in a form???

    DoCmd.RunCommand acCmdNewObjectReport will open the Report Wizard Dialog box
  11. DJN

    Send/create Lotus Notes email through MS Access

    Sorry, forgot the link. http://www.granite.ab.ca/access/email/lotusnotes.htm
  12. DJN

    Send/create Lotus Notes email through MS Access

    Don't know if this is of any help?
  13. DJN

    Printing only the table

    What exactly are you trying to print. The table or its data?
  14. DJN

    How to transfer values from one form to another as I select a value

    Have a look at the OpenArgs action in the help files.
  15. DJN

    Path to MY DOCUMENTS

    Try using the full path name. Call Shell("C:\program files\Microsoft Office\Office11\excel.exe PathName:\XL\XLSFileName.xls", 1)

Part and Inventory Search

Back
Top