Dear Sir , I am using below mention code for pdf generation from crystal report. But in this process every pdf is opening in the pdf reader. I don't want to open the every file.so please suggest solution.

 Report.ExportOptions.ApplicationFileName = Text3.Text & "\" & nFileName & ".pdf"
                Report.ExportOptions.DestinationType = crEDTApplication
                Report.ExportOptions.DiskFileName = Text3.Text & "\" & nFileName & ".pdf"
                Report.ExportOptions.PDFExportAllPages = True
                Report.ExportOptions.FormatType = crEFTPortableDocFormat
                Report.DisplayProgressDialog = False
                Report.Export False

I am trying to trigger a macro AFTER an email is sent in Outlook. The purpose of the macro is to pop up with a message to ask if needs saving, and if so, save it to a specific folder in Windows File Explorer.

I saw a message in this forum regarding the same: [url="https://www.experts-exchange.com/questions/24816434/Run-macro-after-mail-is-sent.html"]
I copied the code into "ThisOutlookSession". it triggers for the 1st email sent out, but not for the subsequent ones.

Can somebody help me out here?

THanks

WS

Hi Experts,
I need to compare 2 tables with exactly the same structure and update TableA according to what it is on TableB for all records that they are different.
This is the SQL needed.

UPDATE Patient_Progress_Notes INNER JOIN Patient_Progress_Notes1 ON Patient_Progress_Notes.PN_ID = Patient_Progress_Notes1.PN_ID SET Patient_Progress_Notes.Patient_Last_Name = nz([Patient_Progress_Notes1].[Patient_Last_Name]), Patient_Progress_Notes.Patient_DOB = nz([Patient_Progress_Notes1].[Patient_DOB]), Patient_Progress_Notes.[Date] = nz([Patient_Progress_Notes1].[Date]), Patient_Progress_Notes.Nurse_Name_Stamp_PN = nz([Patient_Progress_Notes1].[Nurse_Name_Stamp_PN])
WHERE (((nz([Patient_Progress_Notes].[Patient_Last_Name]))<>nz([Patient_Progress_Notes1].[Patient_Last_Name]))) OR (((nz([Patient_Progress_Notes].[Patient_DOB]))<>nz([Patient_Progress_Notes1].[Patient_DOB]))) OR (((nz([Patient_Progress_Notes].[Date]))<>nz([Patient_Progress_Notes1].[Date]))) OR (((nz([Patient_Progress_Notes].[Nurse_Name_Stamp_PN]))<>nz([Patient_Progress_Notes1].[Nurse_Name_Stamp_PN])));

Select all Open in new window

However since these tables have over 85 fields..(each).

The above contains the SQL needed for the first four fields.

Can someone help me build this SQL for the rest of the fields, via code by looping thru all fields on the table and adding it to the string?


Thanks in advance.

Hi Experts,

I'm looking to modify the below to be an update instead of a select.
however not sure where do I put in the body param as specified below
https://howto.caspio.com/web-services-api/rest-api/older-rest-api-versions/table-operations/

Function GetDataFromCASPIO1()
    Dim objHTTP As New WinHttp.WinHttpRequest
    Dim docXML As MSXML2.DOMDocument
    Dim ResponseText As String
    Dim curNode As IXMLDOMNode
    Dim oNodeList As IXMLDOMSelection
    Dim s As String

    Set docXML = New MSXML2.DOMDocument

    Set objHTTP = New WinHttp.WinHttpRequest
    URL = "https://MyAccount.caspio.com/oauth/token"
    
    objHTTP.Open "POST", URL, False
    objHTTP.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"

    objHTTP.Send 
    ResponseText = Right(objHTTP.ResponseText, Len(objHTTP.ResponseText) - 17)
    access_token = Left(ResponseText, InStr(ResponseText, """") - 1)
    'Debug.Print access_token


    Set objHTTP = New WinHttp.WinHttpRequest

    URL = "https://MyAccount.caspio.com/rest/v1/tables/Skilled_Nursing_Visit_Note/rows?q={""limit"":10000,""where"":""visit_date>=GetDate()-7""}"

    '''objHTTP.Open "GET", URL, False
    objHTTP.Open "Put", URL, False
    objHTTP.SetRequestHeader "Accept", "application/xml"
    objHTTP.SetRequestHeader "Content-Type", "application/json"
    objHTTP.SetRequestHeader "Authorization", "Bearer " + access_token


    objHTTP.Send
    'Debug.Print objHTTP.Status
    'Debug.Print objHTTP.ResponseText
  

Select all Open in new window

…

I'm using farpoint fpspread grid control inside a old legacy VB6 application.
That is a grid that was used in old VB6 desktop applications

This is the version of VB6 im using:


This is the user's guide for the fpspread control:
Spread 8.0 Documentation User’s Guide
http://helpcentral.componentone.com/NetHelp/Spread8/WebSiteHelp/title.html

I have a form with a fpsread control on it , something like this:


The data I used to fill the fpspread comes from a table in a sql server database.

The data in the fpspread is not sorted on page load. I want to sort it by one of the date columns.

In the fpspread documention for sorting, it mentions you can either sort using the Spread Designer or set the sorting programmatically with code.
I would like to set the sorting on the fpspread with code.

Sorting Data
http://helpcentral.componentone.com/NetHelp/Spread8/WebSiteHelp/data32.html#659075


If I was using the Employees table from the Northwind database,  and my fpspread was called grdEmployees

How would I set the sort on the fpspread so that on page load it is sorted by HireDate Descending ?

The Employees sql server table looks like this.
I have a stored procedure doing a Select * From Employees to return all the columns from this table.Then in vb6 application I have a function that calls this stored procedure and creates a record set. Then I bind the recordset to the fpspread grid.
I …

Hi Experts,

I have 4 integer fields as follows
Shift_From_Hour
Shift_From_Minute
Shift_To_Hour
Shift_To_Minute

and use the following to calculate the time difference between both shifts.

Duration: Abs(DateDiff("n",TimeSerial(Nz([Shift_From_Hour]),Nz([Shift_From_Minute]),0),TimeSerial(Nz([Shift_To_Hour]),Nz([Shift_To_Minute]),0)))

Select all Open in new window

However users claim its not always accurate, if Shift_From_Hour is after 8PM (20), it will yield wrong results..
What is the right way to calculate this?

Hi Experts,
We have the following code to print out signatures on an Access report.

Function ViewPic()
'View Pic From DB
Dim OutFile As String
Dim strSql As String
    Dim StartX  As Long
    Dim StartY  As Long
    Dim EndX    As Long
    Dim EndY    As Long
    Dim Width   As Long
    
If Len(Me.Signature & "") < 20 Then Exit Function
 If InStr(1, Me.Signature, "]", 1) <= 0 Then Exit Function
  
  Dim str As String
  str = "{" & """values""" & ":" & Me.Signature & "}"
   



        Dim Json As Dictionary
        Set Json = JsonConverter.ParseJson(str)
        Dim Values As Variant
     
        
        Dim Value As Dictionary
    
        Me.ScaleMode = 3
        
        For Each Value In Json("values")
         'Report_Report1.Line (Value("lx"), Value("ly"))-(Value("mx"), Value("my")), vbRed
         Me.Line (1200 + Value("lx"), Value("ly"))-(1200 + Value("mx"), Value("my")), vbBlack


End Function

Select all Open in new window

However for some reason when signature is too short nothing gets displayed.

How is it possible to display even if its only a dot?

Thanks in advance

I wonder if I can get some help migrating a VB6 project with Crystal 8.0/8.5?  These are windows' 10 PCs.

The reports are working in the development machine but the production machine keeps having problems with an 20599 error.

I checked the ODBC 32bit connection and that is connecting fine.

I have a Class Questions which includes the following properties:
1) The Question - String
2) The QuestCode - String
3) PAQuest - Boolean
4) QuestAns - Boolean
5) The QuestID - Long

I instance an object
     Set oQst = New clsQuestions
I load the object from an SQL datatable
I then add the object into a dictionary (dicQuestions)
    dicQuestions.Add CStr(oQst.QuestID), oQst

Based on the value of PAQuest  - if true I also add the object into another dictionary (dicPAQuestions)
    If oQst.PAQuest Then
          dicPAQuestions.Add CStr(oQst.QuestID), oQst
    End If

After loading all the questions, I stop (breakpoint) and run the following
    Debug.Print "Main: " & dicQuestions.Item("3217").Question
    Debug.Print "Main: " & dicQuestions.Item("3217").QuestAns

    Debug.Print "PA: " & dicPAQuestions.Item("3217").Question
    Debug.Print "PA: " & dicPAQuestions.Item("3217").QuestAns

    dicQuestions.Item("3217").QuestAns = True

    Debug.Print "Main: " & dicQuestions.Item("3217").Question
    Debug.Print "Main: " & dicQuestions.Item("3217").QuestAns

    Debug.Print "PA: " & dicPAQuestions.Item("3217").Question
    Debug.Print "PA: " & dicPAQuestions.Item("3217").QuestAns

My results are:
Main: Question Number 1
Main: False
PA: Question Number 1
PA: False

' This is where I set the QuestAns in the dicQuestions dictionary to TRUE

Main: Question Number 1
Main: True
PA: Question Number 1
PA: True <<<===== This is the problem…

Hi All,
I'm working with VB6.  Project (for now) must remain VB6.
I have a class called clsQuestions.  Objects of this class are created and populated by reading from an SQL datatable.
Each of the objects is added to a dictionary (dicQuestions).
A subset of the questions are also added to another dictionary (dicPAQuestions) based on a flag in each record.
dicQuestions are used in one area of my program, and dicPAQuestions is used in another.
The class has a property - QuestAnswered which gets set when an answer to the question is selected (by the operator).
I need to keep track of how many of the questions from each dictionary have been answered - iAnsCount and iPAAnsCount.
Since VB6 can't "Share" methods, what would be the best way to accomplish this feat? (I know - switch to VB.Net or C# - but not possible).
Thanks for any help
Below is the Question class

Option Explicit

Private mvarQuestID As Long 'local copy
Private mvarQuestion As String 'local copy
Private mvarQuestCode As String 'local copy
Private mvarPAQuestion As Boolean 'local copy
Private mvardicAnswers As Dictionary 'local copy
Private mvarQuestAnswered As Boolean        ' Has a question been answered?

Public Property Set dicAnswers(ByVal vData As Dictionary)
    Set mvardicAnswers = vData
End Property

Public Property Get dicAnswers() As Dictionary
    Set dicAnswers = mvardicAnswers
End Property

Public Property Let PAQuestion(ByVal vData As Boolean)
    mvarPAQuestion = vData
End Property

Select all Open in new window

…

Getting an error message with all excel files that contain macros - Windows Malware protection (see attached note that pops-up)

Windows blue pop-up says that it detected malware and windows defender is removing it and then when I open the file the macros are gone!

Worked fine a week ago

Verified that  macros are enabled in the Excel trust center
16-17-zip.xlsm
Capture.JPG
16-17-zip.xlsm