Avatar billede cgleerup Nybegynder
25. oktober 2001 - 12:39 Der er 27 kommentarer og
1 løsning

Opdater et bestemt felt når jeg klikker i radiobutton

Hvordan får jeg en radiobottun til at opdatere et andet felt så dette \"andet\" felts after update aktiveres?
Avatar billede terry Ekspert
25. oktober 2001 - 12:51 #1
In the radio buttons on click event you just call the other event. But youshould think about the consequences of doing this, what do you do in th eafter update event?

Avatar billede cgleerup Nybegynder
25. oktober 2001 - 12:57 #2
Jeg kalkulere nogle tal der afhænger af hvilken af disse radiobuttons der er valgt.

mere præcist:

Private Sub Varenummeret_AfterUpdate()
Me.Billedefelt = \"@C:\\Temp\\db\" & Me.Varenummeret & \".tif\"

Me.[eandk_beregn] = \"57061223\" & Me.Varenummeret

Me.[eandket] = (Val(Mid([eandk_beregn], 1, 1)) + Val(Mid([eandk_beregn], 3, 1)) + Val(Mid([eandk_beregn], 5, 1)) + Val(Mid([eandk_beregn], 7, 1)) + Val(Mid([eandk_beregn], 9, 1)) + Val(Mid([eandk_beregn], 11, 1))) + ((Val(Mid([eandk_beregn], 2, 1)) + Val(Mid([eandk_beregn], 4, 1)) + Val(Mid([eandk_beregn], 6, 1)) + Val(Mid([eandk_beregn], 8, 1)) + Val(Mid([eandk_beregn], 10, 1)) + Val(Mid([eandk_beregn], 12, 1))) * 3)
Dim eandket As Single
Dim AfrundetResultat As Integer
Me.[eandkto] = Int((Me.[eandket] + 5) / 10) * 10
Me.[eandk] = (Me.[eandk_beregn] & (Val(Me.[eandkto] - Me.[eandket])))
End Sub

Det er det øvster tal, altså denne linje: Me.[eandk_beregn] = \"57061223\" & Me.Varenummeret der varier efter hvilken radiobutton der er valgt!

Jeg har forsøgt lidt af hvert men er noget frem til at denne fremgangs måde må være den bedste!
Avatar billede terry Ekspert
25. oktober 2001 - 13:08 #3
cgleerup> It doesnt make any sence to  me, I cant see what is what from your code or what you want to do when you click a radio button.
You will have to be a little more specific

Avatar billede cgleerup Nybegynder
25. oktober 2001 - 13:13 #4
Jeg udregner en såkaldt numerisk kode, dels udfra en fast værdi og dels udfra resultatet i nogle andre felter i en tabel.

- Det er den faste/konstante værdi der ændres.

men eftersom at den ændres i forhold til hvilken radiobutton der er klikket i, bliver de unægtelig nød til at være komiberet.

En anden løsning kunne være et hint til hvordan jeg kan definere en slags after_update på hver enkelt radiobutton, hvis altså det kan lade sig gøre!
Avatar billede terry Ekspert
25. oktober 2001 - 13:19 #5
cgleerup> I am still not quit esure what your doing yet.
It sounds as though you have more than one radio button. Do you know that you can mage a group of radio buttons and get ONE value depending on the button choesen?



Avatar billede cgleerup Nybegynder
25. oktober 2001 - 13:23 #6
Jeg har fire forskellige buttons i én gruppe, de slår et resultat op en under tabel efter princippet om opslagsfelter.

Egentlig vil jeg blot have lavet en måde hvorved jeg kan udregne en numerisk værdi udfra et nummer der bliver tastet ind i feltet \"indtast\" denne numeriske værdi skal eksempelvis være ligmed 23+et eller andet felt+den værdi der svarer til den enkelte radiobutton i den enkelte knap eks. 1,2,3 og 4

???
Avatar billede terry Ekspert
25. oktober 2001 - 14:20 #7
Dim dDouble as double

dDouble = Me.TheField+Me.frame1.Value
Avatar billede hugopedersen Nybegynder
25. oktober 2001 - 14:25 #8
Så vidt jeg kan se så er det du vil gøre at udregne et EAN nummer ud fra dit EAN prefix + dit vare nummer !

Hvorfor ikke bare lave en funktion der beregner det ud fra de tal du vælger og så kalder den med de 2 felters indhold som parametre fra de felter der kan ændre indhold !
Sådan tror jeg at jeg ville gribe det an. Det er derved også muligt at lave alle mulige check på EAN nummeret i den funktion ( med genbrug for øje )
Avatar billede cgleerup Nybegynder
25. oktober 2001 - 14:28 #9
kan du forklare det lidt nærmere - det lyder interessant
Avatar billede hugopedersen Nybegynder
25. oktober 2001 - 14:39 #10
Jeg går ud fra at du har dit EAN prefix i et eller felt og dit varenummer i et andet.
Lav så en funktion fCalcEAN(strPrefix as string, strItemNbr as string) as string
I den funktion laver du alle dine beregninger på dit EAN nummer
På after_Update kalder du me.txtEAN=fCalculateEAN(me.txtPrefix, me.txtItemNbr)

Håber det kaster lidt mere lys over dit problem.
Avatar billede cgleerup Nybegynder
25. oktober 2001 - 14:41 #11
Det er ikke noget problem at beregne koden, jeg vil bare gerne have en simpel kode hvormed jeg kan ændrer inholdet af min \"konstant\" der jo så må være at opfatte som en variabel!!!

Det som du taler om der kan ikke umiddelbart - som jeg forstår det - lade sig gøre i et så komplekst system som dette her, de fire radiobuttons udgør naturligvis hver sin produkktgruppe, og det er derfor at jeg skal have nogle cifre erstattet. Men jeg må jo prøve videre

:0)
Avatar billede terry Ekspert
25. oktober 2001 - 14:46 #12
Is this the variable (eandk_beregn)you are having problems with?

Me.[eandk_beregn] = \"57061223\" & Me.Varenummeret

What is \"57061223\" ?

Try and tell me what is NOT working
Avatar billede cgleerup Nybegynder
25. oktober 2001 - 14:49 #13
Problemerne ligger netop i den sætning du fremhævede - men ikke fordi den ikke virker som den skal.
Det egentlige problem er at \"57061223\" skal hedde 57061222 (eksempel) hvis man har krydset af i én radiobutton fra gruppen \"vælg\" og et andet tal med en anden knap. - ok?
Avatar billede hugopedersen Nybegynder
25. oktober 2001 - 14:53 #14
Uden at virke nedladende, så kan jeg ikke se det komplicerede i det her. Jeg tror bare der er et eller andet du er kommet skævt ind på.
Personligt ville jeg nok indtaste varegrupperne i en tabel hvor jeg så også ville indsætte det \'rigtige\' EAN prefix. Så ville jeg lave en listbox eller en comboboks til udvælgelse, så har jeg EAN prefix i kolonne 2 og kan umiddelbart bruge det ( det vil også gøre det nemmere at tilføje varegrupper )
Avatar billede cgleerup Nybegynder
25. oktober 2001 - 15:03 #15
Bare rolig jeg er ikke så nærtagende - og du ved sikkert meget mere om det her end jeg gør. Men jeg skal ikke bruge flere end de 4 varegrupper og er ikke interesseret i alle mulige løsninger - ikke for at virke negativ. Men jeg skal bruge en løsning på mit spørgsmål som altså er noget i stil med:

kan jeg lave en ved klik på radiobutton opdater et andet felt, eller kan jeg lave en sætning/kode hvor jeg evaluere på værdien af mit gruppefelt med disse radiobuttons på en sådan måde at jeg kan ændrer de sidste to cifre i mit \"kontant\" tal

???
Avatar billede hugopedersen Nybegynder
25. oktober 2001 - 15:10 #16
Har du en mailadresse ?
Avatar billede hugopedersen Nybegynder
25. oktober 2001 - 15:22 #17
Send din e-mail adresse til mail@hugopedersen.dk, så sender jeg dig et eksempel.
Jeg er ikke aktiv her mere før mandag.

Avatar billede cgleerup Nybegynder
25. oktober 2001 - 16:01 #18
Jeg prøver lige igen, det er ikke et eksempel på en anden løsning jeg er ude efter men en løsning til det spørgsmål som jeg har stillet - hvis det drejer sig om at man gerne ser nogle flere point så skriv dog det!
Avatar billede nih Novice
25. oktober 2001 - 22:21 #19
Hvad med at bruge en globalvariabel ??

Option Compare Database
Option Explicit
Dim globalVar As Integer
Private Sub Ramme2_AfterUpdate()
    Select Case Ramme2.Value
        Case 1
            globalVar = 300
        Case 2
            globalVar = 400
        Case 3
            globalVar = 500
    End Select
    Varenummeret_AfterUpdate
End Sub

der er lavet en ramme med 3 radioknapper, som har fået værdierne 1, 2 og 3. alt efter hvilken knap der vælges sættes den globale Variabel.

Me.[eandk_beregn] = cStr(globalVar) & Me.Varenummeret

Niels

Avatar billede hugopedersen Nybegynder
29. oktober 2001 - 07:10 #20
Hvis man ikke kan bruge et velment eksempel på en løsning som grundlag for en løsning på sit eget problem, så..................

Det har intet med antal point at gøre !

Ingen yderligere kommentarer fra mig !
Avatar billede cgleerup Nybegynder
29. oktober 2001 - 08:27 #21
Et velment eksempel på en løsning er helt iorden, men hvis det er en anden måde at løse problemet på som gentagne gange bliver foreslået, i stedet for en beskrivelse af hvordan jeg gør lige netop det jeg spørger efter - trods det at jeg har antydet at jeg ikke er interesseret i disse tilnærmelsesløsninger i lige netop denne her forbindelse - så kan jeg jo desværre ikke give nogen point.
Avatar billede cgleerup Nybegynder
29. oktober 2001 - 08:27 #22
Fortsat fra ovenstående:

Desuden er jeg almindeligvis ganske tilfreds med den slags løsninger!
Avatar billede terry Ekspert
29. oktober 2001 - 08:34 #23
cgleerup>For 20 points people give up after a while!
I am still not sure what you want to do, even more so when you cant accept one of the answers you have received.

Avatar billede cgleerup Nybegynder
19. december 2001 - 14:28 #24
er der nogen der vil give et svar så der kan komme point på bordet?
Avatar billede terry Ekspert
19. december 2001 - 14:34 #25
svar!
Avatar billede cgleerup Nybegynder
19. december 2001 - 14:35 #26
først til mølle...

og mange tak for hjæpem
Avatar billede terry Ekspert
19. december 2001 - 14:36 #27
mange tak, og god jul :o)
Avatar billede cgleerup Nybegynder
19. december 2001 - 14:41 #28
I rigtig lige måde
Avatar billede Ny bruger Nybegynder

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.

Loading billede Opret Preview
Kategori
Dyk ned i databasernes verden på et af vores praksisnære Access-kurser

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester