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...
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
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]
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)"
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
'...
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...
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...
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.
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
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...
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...
Hi PHV,
Let's say i want to move to the next level in VBA
but mainly your code looks more elegant when using classes.
Anyway, i found a solution.
For anyone who's interested,
Put this in a class called CEmployee :
Option Compare Database
Option Explicit
Private pName As String
Private...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.