Min af flere kolonner

Denne type funktionalitet er nok nemmere at lave i et program i stedet for SQL.
Lav to funktioner i Visual Basic, som tager en streng og returnerer en streng. (en til vej og en til nr).

Jeg vil tro man kan bruge Visual Basic funktioner direkte i sine SQL-udtryk.
- Nogen der kan bekræfte det?

Lasse: Nej, det er ikke muligt at integrere visual basic funktioner i sine sql-statements. SQL statements bliver oversat af sql-fortolkeren i det ISAM eller DBMS du anvender, og disse har ikke kompilers til samtlige programmeringssprog indbygget.

avest: Jeg vil som lasse foreslår lave opslitningen i programmeringssprog (f.eks.) visual basic.

F.eks.

dim conn as New ADODB.Connection
dim rs as New ADODB.Recordset
dim rs1 as New ADODB.Recordset

conn.open("dsn, uid, password")
rs.open "SELECT * FROM adresser", conn

rs.Movefirst
do while not rs.eof
"Her laver du noget streng genkendelse"
"Her smider du strengene ind i to selvstændige tabeller.
Loop

Så skulle det være fikset. Du skal huske at lukke dine connections igen.

Dette kan naturligvis også kodes i andre sprog.

God fornøjelse
Rune

Nedenstående funktion kan vist klare sagen med at finde vejnavnet. Du Kopierer blot nedenstående ind i et nyt modul, hvor efter du kan bruge funktionen i en forespøgsel til at oprette et nyt felt.

Function ExtractLeftOfNumber(SearchStr As String) As String
Dim NumberPos As Integer
Dim i As Integer
Dim SearchPos As Integer

SearchStr = "Jens Bangs vej 35 4.tv"
NumberPos = Len(SearchStr)
For i = 0 To 9
    SearchPos = InStr(SearchStr, i)
    If SearchPos > 0 And SearchPos < NumberPos Then
        NumberPos = SearchPos
    End If
Next i
ExtractLeftOfNumber = Left(SearchStr, NumberPos)
End Function

Starten af dit spørgsmål er lidt uklart.
Er problemet at du har en tabel med en adresse i et felt, som
du gerne vil have delt i de 3 felter: navn, nr og resten ?

ja, det er rigtigt. Dog kan resten bare smides væk.

Opret en formular til opdateringen. Den skal indeholde felterne:

[ID]    Idnr som autonummerering.
[ADR] hele adressen.
[GADE].
[NR].

VedÅbning indsættes koden

Dim Tal As Variant
Dim a As Variant
Dim Start As Integer
Dim i As Integer
Dim SidsteNr As Long


Private Sub Form_Open(Cancel As Integer)
           
DoCmd.GoToRecord , , acLast
SidsteNr = [ID]

DoCmd.GoToRecord , , acFirst

Do
    Tal = Null
    Start = 0
   
    For i = 1 To Len([ADR])
        a = Mid$([ADR], i, 1)
        If IsNumeric(a) = True Then
          If IsNull(Tal) = True Then Start = i
          Tal = Tal & a
        Else
          If IsNull(Tal) = False Then Exit For
        End If
    Next i
   
    [NR] = Tal
    If Start > 1 Then [GADE] = Left$([ADR], Start - 1)

    If [ID] = SidsteNr Then Exit Do
    DoCmd.GoToRecord , , acNext
Loop

DoCmd.Close

End Sub

Formularen løberne alle posterne igennem og deler adressen i gade og nr og
lukker sig selv den den er færdig.

Det blev kopieret til et regneark og lavet der. Det var vist lettere. Men tak for hjælpen.

Meget fornuftigt. Hvis det drejer sig om små datamængder eller en process der ikke
skal gentages igen og igen, er det ofte hurtigst at gøre det manuelt fremfor at
lave en kompliceret rutine, som gør det samme.
Du kunne også have også gjort det i direkte i Access-tabellen ved at flytte hele
indholdet til de de 2 nye felter med en opdateringsforespørgsel og bagefter
fjerne det overflødige manuelt.

Det er noget som skal gøres én måske to gange om året, det drejer sig desværre om omkring 23.000 adresser men det var vist stadig hurtigst.