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 Chriss Miller 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: *

  1. KiaruB

    How to determine if an email has NOT arrived using Outlook VBA

    you can monitor outlook from access if programming in access is more convenient
  2. KiaruB

    Corrupt VBA Modules

    Hello, I administrate a access application with daily 50 up to 85 users at the same time. The front is sitting on a shared server, so everyone uses the same front end. For backend i use SQL server. My aplication is debugged, compiled and compacted, all errors are captured with code, all access...
  3. KiaruB

    add to listbox from 2 other listboxes

    private sub Click_Button() me.listbox3.rowsource="" if not isnull(me.listbox1) then me.listbox3.rowsource = me.listbox3.rowsource & me.listbox1 & ";" end if if not isnull(me.listbox2) then me.listbox3.rowsource = me.listbox3.rowsource & me.listbox2 & ";" end if end sub
  4. KiaruB

    Type Mismatch When Using "On Dbl Click" To Open Form

    hey, your variable lngAuthor is a long and u are trying to put text into it... declare your lngAuthor as string or variant error : lngAuthor = Me![Author]
  5. KiaruB

    transfer query results to a current word document

    hey i just notice your question is about your query and not how to insert into word sorry don't use "set db = currentdb" use : "set rst=currentdb.openrecordset("name of your query",dbopensnapshot)"
  6. KiaruB

    transfer query results to a current word document

    tweak this code and try: Dim objWord As Object ' Set objWord = CreateObject("Word.Application") ' objWord.Documents.Add "full path of word doc u want to use" ' objWord.Visible = False ' With objWord.ActiveDocument.Bookmarks '...
  7. KiaruB

    Prevent opening web site when Run URL

    try setting browser.Visible to false
  8. KiaruB

    Strange error on MSComCtl2.DTPicker.2 ActiveX control

    try the debug/compile button on your VBA screen maybe access will tell what the problem is
  9. KiaruB

    Output ot PDF

    Hi, first install a driver to create PDF's it's called w2PDF_setup.exe and can be found here : http://www.mediafire.com/?qd3njy22unw when installed, this will create a new printer in your list of printers if you want to print to PDF from any file, set this PDF printer as your default and then...
  10. KiaruB

    Designating an application as second top-most

    Hey, There is a thread about this here : http://www.tek-tips.com/viewthread.cfm?qid=1642841&page=2 greets
  11. KiaruB

    On Error List Variables and Values - Possible?

    Hello, Why don't u pass the variables (along with the error data) that are used in the sub that has triggered the error to the sub that logs the error ? Private sub TestIt() on local error goto Error_Capture dim strTest as string dim intNumber as integer ...etc... your code here...
  12. KiaruB

    DoCmd.GoToRecord , , acNewRec seems to be replacing records in table

    Hello, the acNewRec doesn't create a new record, it just puts you in a position to enter a new record in a 'clean' form, the new record is created only after you enter data into the 'clean' form greets.
  13. KiaruB

    Excel 2007 with macros and forms fails to save as 2003

    u don't need code to do this it is an option in wich version excel is saving by default look it up in excel options clicking on the office button in your excel workbook
  14. KiaruB

    reference Recordsource subform Access 2007

    try this Forms!frmMaster.Form!frmSub1.Form.RecordSource =
  15. KiaruB

    Access 2003 send email based on multiple date tests

    try this Dim appOutLook As Outlook.Application Dim MailOutLook As Outlook.MailItem dim strsql as string dim rs as dao.recordset strSql = "SELECT * FROM table_QUALIFICATIONS" set rs=currentdb.openrecordset(strsql,dbopensnapshot) if not rs.bof and not rs.eof then rs.movefirst do until...
  16. KiaruB

    VBA conditions

    the variable varItem contains the listnumber of the selected item in the list so if u are certain that the rowsource of your listbox is always the same and for example "Order lead time" is always the first selection in the listbox u can work like this if varitem = 1 then DoCmd.OpenReport...
  17. KiaruB

    create button and add an event

    sure u can : OwnControl.OnClick = "= ... your command here ...
  18. KiaruB

    Need to add 3 years to a date value in a query

    u need to use the function : DateAdd like NewDate = DateAdd("y",3,YourDate) Greets
  19. KiaruB

    Store records in class

    no?! u MUST be kidding
  20. KiaruB

    Store records in class

    ...End Sub Sub LoadEmployees() Dim Employee As CEmployee Dim rs As DAO.Recordset Dim strSQL As String strSQL = "SELECT * FROM tblEmployee" Set rs = CurrentDb.OpenRecordset(strSQL, dbOpenSnapshot) rs.MoveFirst Set Employees = New Collection...

Part and Inventory Search

Back
Top