Option Compare Database
Private Sub sync_local_data_to_server_Click()
    Dim rs As DAO.Recordset
    Dim fso As Object
    Dim date_today As String
    Dim path4csv As String
    Dim path4psql As String
    Dim export_csv_file As Object
    Dim stmt As String
    Dim hProcess As Long
    Dim user2sync As String
     
    path4csv = "D:\Users\Ariel\sync\files2send\"
    path4psql = "C:\Programs\PostgreSQL\9.5\bin\"
    
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    user2sync = Forms("send_sync2server")!user2sync
    
    '
    ' delete old export_csv.sql
    '
    With fso
        If .FileExists(path4csv & "export_csv.sql") Then
            .DeleteFile path4csv & "export_csv.sql"
        End If
    End With
    
    '
    ' create new export_csv.sql
    '
    Set export_csv_file = fso.CreateTextFile(path4csv & "export_csv.sql", True, True)
         
    '
    ' write line for audit_history
    '
    stmt = "\copy (select table_name, operation, audit_id, user_name, audit_date, sync_status from public.audit_history) to '" _
                & path4csv _
                & "audit_history.csv' with csv header;"
                
    export_csv_file.WriteLine stmt
    export_csv_file.WriteLine ""
            
    '
    ' write lines for tables
    '
    Set rs = CurrentDb.OpenRecordset("select distinct table_name from audit_history")
                
    If Not (rs.EOF And rs.BOF) Then
    
        rs.MoveFirst
        
        Do Until rs.EOF = True
            
            stmt = "\copy (select * from " _
                    & Chr(34) _
                    & rs!table_name _
                    & Chr(34) _
                    & " ) where audit_id in (select audit_id from public.audit_history where table_name = " _
                    & "'" _
                    & rs!table_name _
                    & "'" _
                    & ")) to '" _
                    & path4csv _
                    & rs!table_name _
                    & ".csv' with csv header;"
                    
            export_csv_file.WriteLine stmt
            export_csv_file.WriteLine ""
              
            rs.MoveNext
            
        Loop
    
    End If
    
    export_csv_file.Close
        
    '
    ' call pg to run to export_csv.sql
    '
    stmt = Chr(34) & path4psql & "psql -U rubin " & " -f " & path4csv & "export_csv.sql" & " contacts" & Chr(34)
    MsgBox (stmt)
    hProcess = Shell(stmt, vbNormalFocus)
    
    
    MsgBox ("Sync files produced")
    '
    ' send the csv's to pg server
    '
    'fso.CopyFile path4csv & "*.csv", "\\192.168.1.160\sync\" & user2sync & "\"
    
    fso.CopyFile path4csv & "*.csv", "Z:\" & user2sync & "\"
    
End Sub

create or replace function sync.insert_handler(
         schema_name    varchar
        ,r              public.audit_history
) returns void as $$

declare
        r               public.audit_history;
...
case r.operation

                        when 'INSERT' then perform sync.insert_handler(sync_schema_name, r);

ERROR:  function sync.insert_handler(character varying, audit_history) does not exist
LINE 1: SELECT sync.insert_handler(sync_schema_name, r)
               ^
HINT:  No function matches the given name and argument types. You might need to add explicit type casts.
QUERY:  SELECT sync.insert_handler(sync_schema_name, r)
CONTEXT:  PL/pgSQL function sync.tablet2server(character varying) line 54 at PERFORM

grant usage on schema public to generic_user;
grant all on public.audit_history to generic_user;

ERROR:  function sync.update_handler(character varying, audit_history) does not exist
LINE 1: SELECT sync.update_handler(sync_schema_name, r.*)
               ^
HINT:  No function matches the given name and argument types. You might need to add explicit type casts.
QUERY:  SELECT sync.update_handler(sync_schema_name, r.*)