ReUsed Flexcode ADOC Connection

Back in 2019 I was working for a consulting firm which this came in handle, I dont think I will ever need to go back to an ERP system and specially dont think I will need to work with flexcode again. Still this was something that I found and might help someone else.

Public Sub Database_Connection() 


    If cn1.State = 1 Then Exit Sub 

    On Error Resume Next 

    Set cn1 = macForm.ConnInfo.OpenADOConn 

    On Error GoTo 0 


End Sub

Popular posts from this blog

UI-Bootstrap Collapsible Sticky Footer

Editing Blogger Post on Github, Rough Draft

HTML5 Audio doesn't Autoplay for Chrome on Android