20. oktober 2003 - 12:07Der er
4 kommentarer og 1 løsning
Udskifte oe med ø, ae med æ og aa med å
Jeg har haft lidt problemer med en database som har været lavet til kun at køre her i danmark, men som nu skal køre på engelske og polske versioner af Access og Windows. Derfor har jeg rettet alle æ, ø og å'ere til ae, oe og aa. Dette afstedkommer dog nogle problemer, i og med at rapporter osv ikke ser godt ud mere! Derfor har jeg brug for, i VBA, en funktion, som checker om mit recordset (rst) indeholder oe, ae og aa og så erstatter dem med æ, ø og å. Jeg åbner et recordset og henter navnene på felterne. Disse navne kunne f.eks. være: Dato Tid Sted Antal proever Temp. koelerum
De fleste virksomheder har efterhånden bevist, at AI virker.
Pilotprojekter leverer resultater. Medarbejdere bruger generative AI-værktøjer. Nye use cases dukker op på tværs af organisationen.
Ændringen skal kun gælde repræsentationen af dataene. Her er koden som overfører til Excel:
rst.MoveFirst j = 1 While Not rst.EOF j = j + 1 For i = 0 To Liste2.ListCount - 1 xlsheet.cells(j, i + 1) = rst.fields(Liste2.Column(0, i)) If Liste2.Column(0, i) = "Dato" Then xlsheet.cells(j, i + 1).Select xlapp.Selection.NumberFormat = "m/d/yy" End If Next rst.MoveNext Wend
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
