Search results

I dont like dcount its slow and doesnt alwasys work, But if it works for you give its a go. :cool:ShadeZ:cool:

First u need to dicide what ur going to use ADO or DAO ADO, appoach :) Dim rs as new adodb.recordset Rs.open "Select * from countDepts", currentproject.connection deptCount = rs!FieldName rs.close OR DAO, Aproach :( deptCount=CurrentDb.QueryDefs("countDepts").fields("FieldName") I...

You will probably end up confused, whats ur email address I havn't got a msgbox on my code like the other guy, just a password (could put one on if i realy wanted). But there are plenty of other examples of msgbox's and inputbox's. :cool:ShadeZ:cool:

Erm vb code Msgbox "You must purchase the full version",vbok,"No access" its that easy. :cool:ShadeZ:cool:

The method im currently using, 1) place all .DLL .OCX .TLB files used in a dir 2) Add Regsvr32.exe to the files 3) Write a batch file to move the files to the system file eg(copy *.DLL %windir%\system\*.*) 4) add lines to batch file to register eg(regsvr32.exe /s...

The method im currently using, 1) place all .DLL .OCX .TLB files used in a dir 2) Add Regsvr32.exe to the files 3) Write a batch file to move the files to the system file eg(copy *.DLL %windir%\system\*.*)

Using my method will alow u to use code to create a email, add any body of text u wish + any number of required attachments, just use AddAttachment - to add an attachment (the file u want to send) SetText - to fill the body of text SetSubject - to give the email a subject AddRecipiant - to...

Use the Filesystemobject dim fs as varient Set fs = CreateObject("Scripting.FileSystemObject") fs.CopyFile source, destination[, overwrite] this should do the job :cool:Shadez:cool:

Use CDO and Mappi If u use CDO extensions with mappi u can quickly and easly create an email with attachments Heres one i made earlyer Option Compare Database Option Explicit Dim oSess As Object Dim oMsg As Object Dim oRecipCC As MAPI.Recipient Dim RepCol As New Collection...

I dont think so, here is the query used to create the report, the deleted fields where [calltime] and [Product]. [Calltime] was removed entirely and [product] was changed to [countofproducts]. SELECT DISTINCT [QueryCallHistory].[NCO], [QueryCallHistory].[CallActivityIDFK]...

I would use a query like this, 'update Mytable set Expired = 'Yes' where dateField < now' jus run the query and watch all those expired's change to yes if required Here is a line of code u can use to do the job..... currentproject.connection.execute "update Mytable set Expired = 'Yes' where...

Heres a strange one for you guys to ponder over:confused: I have just updated a existing report and deleted several controls, the strange thing is the controls still exist somewhere. Evey time i run the report it asks me for the contents of the fields:confused: I have checked the entire...