WhoCalls support forum    


Welcome to the WhoCalls support forum.
Before entering a query/request please search the forum to see if someone else has asked the question before.
Please feel also free to respond to queries from other users if you have experienced the same type of problem and found a solution to it. 
Our support team will monitor this forum and endeavour to provide answers to the queries posted.
Please make sure to post your query to the right forum as there is a separate forum for each application provided by MAW Software.
Show messages for: Last 7 days Last 30 days All (Digest of all)

Back to the forum

On Tuesday , the 08.17.2010, MAW Support wrote at 22:40:09 :

>>>DDE and missing fields

Hi

OK, it seems that this call is not supported anymore.
Please use the following instead.

Rds
TL

*******************************
Dim AccApp, dbs, rst

'Get path of WhoCalls directory
Set WSHShell = CreateObject("WScript.Shell")
sCurPath = WSHShell.RegRead("HKCU\Software\MAW Software\WhoCalls\" )

Set AccApp= CreateObject("Access.Application")
AccApp.OpenCurrentDatabase(sCurPath & "\samples\CallerCenter.mdb")

Set dbs = AccApp.CurrentDb

Set rst = dbs.OpenRecordset("SELECT * FROM CallLog")

rst.AddNew

rst.dDate ="@DATE" 'Set Time
rst.tTime ="@TIME" 'Set Date
rst.cCID ="@CID" 'Set CallerID
rst.cCIN ="@CIN" 'Set CallerID Name


rst.Update

'Clean up
rst.Close
dbs.Close
set rst = Nothing
set dbs = Nothing
AccApp.Quit
set AccApp = Nothing

WScript.Quit(0)





Post reply:

Name:
E-Mail:
Subject:
Message:
SPAM code displayed
next to this:

CGIForum (C) Markus Triska

Home to