Libreoffice Base - jeg kan ikke få en macro til at skrive sit resultat i en tekstbox
Hej alle.
Jeg har lavet mig en lille testdatabase som start til et større projekt jeg skal igang med ude på min arbejdsplads.
Her tester jeg nogle ting af inden det går løs.
Jeg har lavet mig en formular med navn, adresse, postnummer, land og så et felt til adgangskode samt en knap der hedder "generer kode" Selve databasedelen har jeg godt styr på efter mange års arbejde med Access så det var nemt at få alt
dette til at virke.
Men det er så meningen at den skal genere en tilfældig adgangskode og skrive denne ind i adgangskodefeltet når man trykker på denne knap sådan at denne vises på formularen og så også bliver gemt.
Jeg har fået styr på selve kodegeneratoren, d.v.s. den skal finpudses lidt til endelig produktion men den fungerer nu og viser en fin beskedboks med den genererede adgangskode. Problemet er at jeg ikke kan få den til at skrive denne tekst til adgangskodefeltet som jeg har kaldt adgangsk
Følgende er min kode
Sub Main
dim o$ as string
dim k$ as string
dim a as string
dim x as integer
k$="abcdefghijklmnopqrstuvwxyzæøåABCDEFGHIJKLMNOPQRSTUVWXYZÆØÅ1234567890-"
for x = 0 to 8
a=a+mid(k$,(rnd*69)+1,1)
next x
msgbox a$
[adgangsk]=a$
End Sub
Hvordan får jeg A$ til at blive skrevet i adgangsk det skal siges at der er tale om en standardformular, ikke en dialogboks.
- Log in to post comments
Kommentarer1
type
uden at værre specielt rutineret o oo's basic variant, ville jeg gætte problemet er i
a=a+mid(k$,(rnd*69)+1,1)
er du sikker på komma og ikke semikolon er accepteret variable seperator for MID funktionen?
http://wiki.services.openoffice.org/wiki/Documentation/How_Tos/Calc:_MI…