Foreslå bogstavskode

Her er en funktion, der kan finde bogstavkoden. Så skal du selv få den sat ind i tabellen.


Function NyBogstavkode() As String
Dim strFound As Boolean
Dim strKode As String

numstr1 = 65
numstr2 = 65
strFound = False
Do Until numstr1 = 90 Or strFound
    Do Until numstr2 = 90 Or strFound
        strKode = Chr(numstr1) & Chr(numstr2)
        If IsNull(DFirst("Bogstavkode", "Bogstavkodetabel", "Bogstavkode='" & strKode & "'")) Then
            strFound = True
            NyBogstavkode = strKode
        Else
            numstr2 = numstr2 + 1
        End If
    Loop
    numstr1 = numstr1 + 1
Loop

End Function

NB. Funktionen virker p.t. kun på store bogstaver og kun på det engelske alfabet (Z = 90). Hvis du skal have de danske bogstaver med, skal der lige laves nogen ekstra krøller i løkkerne.

Jeg prøver at se om jeg kan finde hoved og hale i den og vender tilbage....

Kan du måske prøve at forklare de forskellige trin, eller er det for meget forlangt?

Nej det er ikke for meget for langt, men du må vente til lidt senere idag, da jeg er optaget. :-)

Det er ok...

3xa

Så prøver jeg at komme med en forklaring.

Hovedelementet i programmet er funktionen Chr, der returnerer et tegn, der er tilknyttet den angivne charkode. Charkoden for "A" er 65 og for "a" er 97.

Forklaring linie for linie:


    numstr1 = 65
    strFound = False
numstr1 og numstr2 er tællere for henholdsvis det første og det andet tegn i din bogstavkode. De sættes begge til at starte med 65 som er "A". strFound er en boolsk variabel, der angiver om en ledig kode er fundet - den sættes naturligvis til false (dvs. ikke fundet) til at begynde med.


    Do Until numstr1 = 90 Or strFound
Løkke for numstr1, der fortsætter enten til 90 (="Z") eller til en ledig kode er fundet (strFound=true).


        numstr2 = 65
BEMÆRK at jeg har flyttet numstr2 = 65 ind i den første løkke.


        Do Until numstr2 = 90 Or strFound
Løkke for numstr2, der fortsætter enten til 90 (="Z") eller til en ledig kode er fundet (strFound=true).


            strKode = Chr(numstr1) & Chr(numstr2)
Bogstavkoden sammensættes ved hjælp af de to tællere og Chr funktionen.


            If IsNull(DFirst("Bogstavkode", "Bogstavkodetabel", "Bogstavkode='" & strKode & "'")) Then
                strFound = True
                NyBogstavkode = strKode
Hvis bogstavkoden IKKE findes i tabellen, sættes strFound til at være sand og NyBogstavkode (dvs. det er det funktionen returnerer) sættes til strKode.


            Else
                numstr2 = numstr2 + 1
            End If
Hvis koden findes i databasen, sættes tællerværdien af numstr2 til at være 1 højere. numstr1 ændres ikke - dvs. først undersøges A? hvor ? kan være fra "A" til "Z".


        Loop
Looper gennem alle kobinationer af numstr2

        numstr1 = numstr1 + 1
    Loop
Looper gennem alle kobinationer af numstr1


Håber det giver en ide om hvad der foregår.

Jeg kan ikke forlange mere, tusinde tak for hjælpen. Jeg har fået det til at virke, men det er jo rart at vide hvad der foregår, så jeg kan modificere den præcist til mit behov.

TAK!

Det har du jo ret i. Held og lykke med opgaven.