Function RedSqlProperty(StrFr As String, StrTo As String)
Dim aFm As document, fCnt As Container, db As Database
    Set db = CurrentDb()
Dim aFmNAME As String, sSQL As String
Dim aCntrl As Control
Dim aPrp As Property
Dim i As Long, j As Long, k As Long
Dim aFmF As Form
On Error Resume Next
    Set fCnt = db.Containers( "Forms" )
    For i =  0  To fCnt.Documents.Count -  1 
        Set aFm = fCnt.Documents(i)
        aFmNAME = aFm.Name
        DoCmd.OpenForm aFm.Name, A_DESIGN
        Set aFmF = Forms(aFmNAME)
        For k =  0  To aFmF.Count -  1 
            Set aCntrl = aFmF(k)
            For j =  0  To aCntrl.Properties.Count -  1 
                Set aPrp = aCntrl.Properties(j)
                If aPrp.TYPE =  8  Then
                    If InStr(aPrp.Value, StrFr) Then
                        If Err =  0  Then
                            sSQL = aPrp.Value
                            Debug.Print  ""; aPrp.Name; aCntrl.Name
                            Debug.Print aPrp.Value
                            Do While InStr(sSQL, StrFr) > 0 
                                Call replaceStr(sSQL, StrFr, StrTo)
                            Loop
                            aPrp.Value = sSQL
                        Else
                            Err =  0 
                        End If
                    End If
                End If
            Next j
        Next k
        DoCmd.Close A_FORM, aFmNAME, acSaveYes
    Next i
    Set fCnt = db.Containers("Reports ")
    For i = 0  To fCnt.Documents.Count -  1 
        Set aFm = fCnt.Documents(i)
        aFmNAME = aFm.Name
        DoCmd.OpenReport aFm.Name, A_DESIGN
        For k =  0  To Reports(aFmNAME).Count -  1 
            Set aCntrl = Reports(aFmNAME)(k)
            For j =  0  To aCntrl.Properties.Count -  1 
                Set aPrp = aCntrl.Properties(j)
                If aPrp.TYPE =  8  Then
                    If InStr(aPrp.Value, StrFr) Then
                        If Err =  0  Then
                            sSQL = aPrp.Value
                            Debug.Print ""; aPrp.Name; aCntrl.Name
                            Debug.Print aPrp.Value
                            Do While InStr(sSQL, StrFr) >  0 
                                Call replaceStr(sSQL, StrFr, StrTo)
                            Loop
                            aPrp.Value = sSQL
                        Else
                            Err =  0 
                        End If
                    End If
                End If
            Next j
        Next k
        DoCmd.Close A_REPORT, aFmNAME, acSaveYes
    Next i
    Set fCnt = Nothing
    Set db = Nothing

End Function