Ændring af datatyper

En makro skulle nok kunne klare dette - men hvilke felter skal ændres? De skal jo kunne identificeres!

Alternativt :

Opret en ny tom database, og eksporter indholdet dertil

Først tager du en kopi af databasen som back up og lægger denn laaangt væk.

Men hvorfor dog kun nogle af posterne. Lav dem alle om til reel tal. Ellers får du et felt mere i tabellen og får "delt de samme data på 2 felter". Og det er ikke smart.

Lav dit nye felt som reel tal, og opdater dem med værdier fra det gamle felt. Slet herefter det gamle felt og omdøb det nye til samme navn, som det gamle havde.

Mugs > Det svarer da lidt til mit forslag ik´ :o), omend min version er noget hurtigere

jensen > Jo det kan du da hasve ret i. Ikke altid jeg læser tidligere indlæg.
rasta > Se venligst bort fra mit svar.

Mugs > No problemo - Merry Xmas

Problemet ligger ikke i, at jeg vil skåne mine data, da databasen ikke indeholder data endnu.

Men jeg har lige oprettet den og og alle datatyperne skal nu ændres til reelle tal.. Så det er fordi at selve definitionsarbejdet vil tage for lang tid, hvis jeg skal ved hvert eneste felt gøre det..

Så forståe jeg ikke problemet ... det tager da ikke ½ dag at rette igennem, når du ikke har nogle data i ... det kræver lidt gymnastik med musen 190 gange a´ 2 sek, dvs. max 5 minutter :o)

I lige måde jensen - Hvordan går det med testdb og logikken?

Jeg har slet ikke haft tid til at se på det endnu ... det er også kun en mega-opgave som vil tage det meste af næste år jeg har kastet mig ud i :o)

Opret en tom tabel med et felt identisk med oprindelige - i modellen kaldet tabel2
DAO 3.6 referencen aktiveres.
Koden indsættes i et Word-dokument - VBA: ThisDocument:

Dim xsti
Dim db, feltnr
Sub skiftDatatype()                                'Erstatter ALLE tal-felter (Langt heltal) til reelt
Dim tdef As TableDef, tdefNy As TableDef

    xsti = ActiveDocument.Path
    If Right(xsti, 1) <> "\" Then
        xsti = xsti + "\"
    End If
   
    Set db = OpenDatabase(xsti + "SkiftDatatype.mdb")
    Set tdef = db.TableDefs("tabel1")                      'oprindelige tabel
    Set tdefNy = db.TableDefs("tabel2")                    'kopi-tabel
   
    feltnr = 0
   
    For Each felt In tdef.Fields
        fn = felt.Name      'feltNavn
        fd = felt.Type      'feltType (10=tekst, 4=langt heltal,6=reelt tal)
        fs = felt.Size      'feltStørrelse
       
        If feltnr > 0 Then  '1. felt kopieres ikke - betingelse for tabellen kan eksistere (minimum eet felt)
            With tdefNy
                If fd = 4 Then
                    .Fields.Append .CreateField(fn, 6, fs)  'Tal = reelt indsættes
                Else
                    .Fields.Append .CreateField(fn, fd, fs) 'direkte kopi
                End If
            End With
        End If
        feltnr = feltnr + 1
    Next felt
   
    db.Close
End Sub

Hvorfor skal vi over i Word?

Havde koden deri fra andet system...

Lide mere simplificeret:

DoCmd.RunSQL "Alter Table DIN TABEL add FELTNAVN long"

tak for det supertekst.. Smid et svar!

Selv tak - svaret er her...