25. januar 2006 - 19:54Der er
11 kommentarer og 1 løsning
Copy funktion
Hej..
Jeg ønsker, at vide hvordan jeg får lavet et stykke kode, som jeg vha. en kommandoknap i en formular, kan kopiere Data fra flere forskellige felter, til udklipsholderen (altså ligesom hvis jeg markerede et felt og trykkede 'CTRL + C')
Grunden til at jeg skal kunne dette, er at jeg skal kunne kopiere dataene ind i et andet tekst document.
Det skal gerne være sådan, at de forskellige Data fra felterne er adskilt med et mellemrum når det bliver kopieret ind.
Denne er MEGET kluntet så jeg vil ikke have point for den, men måske andre kan brygge videre på den. Opret et ubundet felt på din formular og indsæt denne i en kommandoknap:
Dim VARa As String Dim VARb As String Dim VARc As String VARa = Me!Felt1 VARb = Me!Felt2 VARc = VARa & " " & VARb Me!Tekst26 = VARc
Hvor Tekst26 er navnet på det ubundne felt. Marker teksten i Tekst26 og tryk CTL+x, åbn det tekstdokument og indsæt med CTL+c
kan bare ikke få den til at gemme det i udklipsholderen.
og man kune vel også i stedet for at gemme værdien i et ubundet felt, så måske få den gemt i en eller anden variabel, og på den måde bare lad det hele ske automatisk, uden brugeren behøver at se noget til det.
Opret et skjult felt, f.eks. SamletAdr, der samler dine data (Adr1 & " " & Adr2 & ...) Benyt så: Me.SamletAdr.SetFocus RunCommand acCmdCopy for at kopiere indholdet til klippebordet
Access understøtter ikke Clipboard-objektet! Du må derfor bruge en Windows-funktion, som du sikkert kan finde på nettet. Eller du kan selv lave/eller få lavet et consol-program, som gør det. Her et sådan klip, jeg selv har brugt:
If IsNull([E_ADRESSE]) Then MailText = "" Else MailText = [E_ADRESSE] End If
Set fso = CreateObject("Scripting.FileSystemObject") If fso.FileExists("c:\mappe\textcopy.exe") Then Shell "c:\mappe\textcopy.exe " & MailText, vbHide End If
MailText er feltet som kopieres og textcopy.exe er programmet.
Citatet om Clipboad er fra en bog om en tidligere version. Men hvis objektet er med nu i version 11 er det da fint. Prøver din kode i aften. Er du sikker på acCmdCopy bruger Clipboard og ikke bare er en intern Access-function, som vist har været der hele tiden?
Det var godt nok en gammel svend ;o) Tak for point.
Synes godt om
Ny brugerNybegynder
Din løsning...
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.