Brauche ein wenig Hilfe um den Code zu verstehen

  • Access

    Brauche ein wenig Hilfe um den Code zu verstehen

    Ich brauch mal etwas Hilfe um den folgenden Code zu verstehen.
    Er ist Teil einer erweiterten Suche und es wurde nix zur Progammierung dokumentiert und der das programmiert hat kann ich nicht fragen, weil er verstorben ist.
    Sind meist nur Teile des Quellcodes aber ich hoffe das reicht.

    Visual Basic-Quellcode

    1. Private Const DEBUGMODE As Boolean = True
    3. Private Const SQLEQUAL As String = "[FIELD] = [VALUE]"
    4. Private Const SQLLIKE As String = "[FIELD] LIKE [VALUE]"
    5. Private Const PHONENUMBER As String = "'+[LANDNR] ([VORWAHL]) [NUMMER]'"
    6. Private Const PHONENOSEARCH As String = "'+* (*) *'"
    8. Private Const MSG_AKTIVIERE_LAND As String = "Zum Aktivieren muss das Länderkürzel ausgewählt sein!"
    9. Private Const MSG_MARKERFEHLER As String = "Der Wert [MARKERWERT] entspricht keiner Zahl!"
    10. Private csqlsnippes As Collection



    Visual Basic-Quellcode

    1. Private Function sqlSnippe(fieldname As String, value As Variant)
    2. Dim buffer As String
    4. ' Wert vorhanden?
    5. If Not IsNull(value) Then
    6. ' Wenn wir einen Stern in value vorfinden...
    7. If InStr(1, value, "*", vbTextCompare) Then
    8. buffer = replace(replace(SQLLIKE, "[FIELD]", fieldname, 1, -1, vbTextCompare), "[VALUE]", value, 1, -1, vbTextCompare)
    9. Else
    10. buffer = replace(replace(SQLEQUAL, "[FIELD]", fieldname, 1, -1, vbTextCompare), "[VALUE]", value, 1, -1, vbTextCompare)
    11. End If
    13. csqlsnippes.Add "(" & buffer & ")"
    14. End If
    16. End Function
    18. Private Function sqlORSnippe(fieldname1 As String, fieldname2 As String, value As Variant)
    19. Dim buffer As String
    21. ' Wert vorhanden?
    22. If Not IsNull(value) Then
    23. ' Wenn wir einen Stern in value vorfinden...
    24. If InStr(1, value, "*", vbTextCompare) Then
    25. buffer = "((" & replace(replace(SQLLIKE, "[FIELD]", fieldname1, 1, -1, vbTextCompare), "[VALUE]", value, 1, -1, vbTextCompare)
    26. buffer = buffer & ") OR ("
    27. buffer = buffer & replace(replace(SQLLIKE, "[FIELD]", fieldname2, 1, -1, vbTextCompare), "[VALUE]", value, 1, -1, vbTextCompare) & "))"
    29. Else
    30. buffer = "((" & replace(replace(SQLEQUAL, "[FIELD]", fieldname1, 1, -1, vbTextCompare), "[VALUE]", value, 1, -1, vbTextCompare)
    31. buffer = buffer & ") OR ("
    32. buffer = buffer & replace(replace(SQLEQUAL, "[FIELD]", fieldname2, 1, -1, vbTextCompare), "[VALUE]", value, 1, -1, vbTextCompare) & "))"
    33. End If
    35. csqlsnippes.Add buffer
    36. End If
    38. End Function


    Visual Basic-Quellcode

    1. Private Sub cmdOK_Click()
    2. Dim idx As Integer
    3. Dim buffer As String
    5. sqlSnippe "KundenNummer", embedded(Me.txtSearchKundennummer)
    6. sqlSnippe "Firmenname", embedded(Me.txtSearchName)
    9. If Me.combVerbraucherTyp.ListIndex <> -1 Then
    10. sqlSnippe "Kundentyp", embedded(Me.combVerbraucherTyp.value)
    12. If Me.regKundenTypen.Pages("regWiederverkaeufer").Visible Then
    13. sqlORSnippe "HaendlerVerband1", "HaendlerVerband2", embedded(Me.regKundenTypen.Pages("regWiederverkaeufer").Controls("Verband1"))
    14. sqlORSnippe "HaendlerVerband1", "HaendlerVerband2", embedded(Me.regKundenTypen.Pages("regWiederverkaeufer").Controls("Verband2"))
    15. sqlORSnippe "NummerVerband2", "NummerVerband1", embedded(Me.regKundenTypen.Pages("regWiederverkaeufer").Controls("txtMitgliedsnrVerband1"))
    16. sqlORSnippe "NummerVerband2", "NummerVerband1", embedded(Me.regKundenTypen.Pages("regWiederverkaeufer").Controls("txtMitgliedsnrVerband2"))
    18. ElseIf Me.regKundenTypen.Pages("regEndverbraucher").Visible Then
    19. If Me.regKundenTypen.Pages("regEndverbraucher").Controls("kombEinkaufsverband").ListIndex <> -1 Then
    20. sqlSnippe "Endkundenverband", embedded(Me.regKundenTypen.Pages("regEndverbraucher").Controls("kombEinkaufsverband").value)
    21. Else
    22. If Me.regKundenTypen.Pages("regEndverbraucher").Controls("conBetreuungHaendler") Then
    23. sqlSnippe "istBetreuungHaendler", Me.regKundenTypen.Pages("regEndverbraucher").Controls("conBetreuungHaendler").value
    24. If Me.regKundenTypen.Pages("regEndverbraucher").Controls("combVerbraucherHaendler").ListIndex <> -1 Then
    25. sqlSnippe "hatHaendlerKHKnr", embedded(Me.regKundenTypen.Pages("regEndverbraucher").Controls("combVerbraucherHaendler").value)
    26. End If
    27. End If
    28. End If
    30. End If
    31. End If

Facebook
Telefonspende