' This code was originally written by Juan Soto at AccessExperts.net.
' It is not to be altered or distributed,
' except as part of an application.
' You are free to use it in any application,
' provided the copyright notice is left unchanged.
'
' Code Courtesy of
' Juan Soto at AccessExperts.net

Public Function AddCodeToControls(strFormName As String, strCode As String, strProcedure As String)
    On Error Resume Next
    Dim VBAEditor As VBIDE.VBE
    Dim VBProj As VBIDE.VBProject
    Dim VBComp As VBIDE.VBComponent
    Dim CodeMod As VBIDE.CodeModule
    Dim obj As Object
    Dim frm As Form
    Dim ctl As Access.Control
    Dim lngHeaderLine As Long
    
    Set VBAEditor = Application.VBE
    Set VBProj = VBAEditor.ActiveVBProject
    Set VBComp = VBProj.VBComponents(strFormName)
    Set CodeMod = VBComp.CodeModule
    Set frm = Forms(strform)
    For Each ctl In frm.Controls
        If ctl.ControlType = acCheckBox Or ctl.ControlType = acComboBox Or ctl.ControlType = acListBox _
            Or ctl.ControlType = acTextBox Then
            'Search if object already has an after update event
            lngHeaderLine = CodeMod.ProcStartLine(ctl.Name & "_" & strProcedure, vbext_pk_Proc)
            If Err > 0 Then
                'Procedure does not exist, create it
                lngHeaderLine = CodeMod.CreateEventProc(strProcedure, ctl.Name)
                CodeMod.InsertLines lngHeaderLine + 1, strCode
            Else
                'Procedure does exist, print name for manual editing later
                Debug.Print ctl.Name & "_" & strProcedure & " Not Modified"
            End If
        End If
    Next ctl

End Function

$pathDB = str_replace("/", "\\", $_SERVER["DOCUMENT_ROOT"]) . "\\directory1\\directory2\\bdd.mdb";

if(!file_exists($pathDB))
{
echo "!!! Base de datos no encontrada ".$pathDB;
exit;
}

$conexion = odbc_connect("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=".$pathDB, "ADODB.Connection", "", "SQL_CUR_USE_ODBC");
$sql="select * from tabla where 1";
$resultado=odbc_exec($conexion,$sql);
if($resultado)
{
	while($fila=odbc_fetch_array($resultado))
	{
	echo $fila['campo1']."<br />";
	echo $fila['campo2']."<br />";
	}
odbc_close_all();
}

Function CloseAllForms()

'It will close all forms before opening the new form (if required)

Dim obj As Object
Dim strName As String

For Each obj In Application.CurrentProject.AllForms
DoCmd.Close acForm, obj.name, acSaveYes
Next obj

End Function

Function CloseAllForms()


Dim obj As Object
Dim strName As String

For Each obj In Application.CurrentProject.AllForms

If obj.Name <> "Your Form" Then 

DoCmd.Close acForm, obj.name, acSaveYes

End if 
Next obj

End Function

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim wks As Worksheet
    Set wks = ActiveSheet

    If Target.Row = 1 And Target.Column = 1 Then
      wks.QueryTables(1).Refresh
    End If

    Set wks = Nothing
End Sub