Function get_pg_nextval(fieldName As String, tabName As String) As Long
Dim sSQL  As String, nxt As Long
    sSQL = "SELECT f_get_sequence('" & tabName & "','" & fieldName & "')"
    nxt = OpenPgSQL(sSQL).Fields( 0 )
    get_pg_nextval = nxt
End Function

Function OpenPgSQL(strSQL As String, Optional lODBCTimeout As Long =  60 , _
    Optional tType As Long = dbOpenForwardOnly) As DAO.Recordset
On Error GoTo err_OpenPgSQL

Dim conP As DAO.Connection
Dim qdfTemp As DAO.QueryDef
    
    'Debug.Print strSQL
    'logPrint strSQL
        
    Set conP = ODBCcon 'wrkODBC.OpenConnection("", dbDriverComplete, , fstrODBC())
    
    Set qdfTemp = conP.CreateQueryDef("")
    With qdfTemp
        .ODBCTimeout = lODBCTimeout
        .Prepare = dbQUnprepare
        .sql = strSQL
        
        Set OpenPgSQL = .OpenRecordset(tType)
    End With
    
    
ex_OpenPgSQL:
On Error Resume Next
    
    Set conP = Nothing

    Exit Function
err_OpenPgSQL:

    logPrint err.Description & ";" & fErr_discription()
    Set OpenPgSQL = Nothing
    Resume ex_OpenPgSQL
End Function

Property Get ODBCcon(Optional ReCalc As Boolean) As DAO.Connection
'Dim wrkODBC As DAO.Workspace
    If ReCalc Then Set vODBCcon = Nothing
    If vODBCcon Is Nothing Then
        Set wrkODBC = CreateWorkspace("NewODBCWorkspace", "nobody", "", dbUseODBC)
        Set vODBCcon = wrkODBC.OpenConnection("", dbDriverNoPrompt, , fstrODBC())
    End If
    Set ODBCcon = vODBCcon
End Property

CREATE OR REPLACE FUNCTION f_get_sequence(_tabname text, _fieldname text)
  RETURNS integer AS
$BODY$
declare
	_sql text;
	_row RECORD;
	_res int4;
begin
 _sql := 'SELECT nextval(
	pg_get_serial_sequence('|| quote_literal(_tabname) || ',' || quote_literal(_fieldname)|| ')::text
		
	) as f 
	;';

	EXECUTE _sql INTO _row;
 	_res := _row.f;
	RETURN _res;
end
$BODY$
  LANGUAGE 'plpgsql' VOLATILE
  COST  100 ;