ændre data i grupperede queryes

Det kan sikkert gøres mere elegant, men det fungerer. Kan sende et eksempel. du skal oprette et felt i din tabel ved navn "Tæller": 

Dim MaxUd, K
Dim a As String
Dim b As String
a = InputBox(Prompt:="Indtast farve du vil skifte.", Title:="Farveskift", Default:="")
b = InputBox(Prompt:="Hvad er den nye farve?", Title:="Farveskift", Default:="")
MaxUd = DMax("[Tæller]", "Tabel1")
For K = 1 To MaxUd
DoCmd.FindRecord a, acEntire, False, , True, acCurrent, True
If Me.felt1 = a Then
Me.felt1 = b
Else:
DoCmd.FindNext
End If
DoCmd.GoToRecord acForm, "form2", acNext, 1
Next K

send gerne :
atoftgaard@mail.dk

Sendt.

In vba code
docmd.runsql "UPDATE table1 SET felt1 = 'lyserød' WHERE felt = 'rød'"

Or cut and paste ""UPDATE table1 SET felt1 = 'lyserød' WHERE felt = 'rød'"
into a query

mugs:
kan du zippe.. firewall du ved ;-))

With paramaters
UPDATE table1 SET table1 .felt1 = [Til]
WHERE (((table1.felt1)=[fra]));

Hi terry > I agree with You, that the question is:

How to make "rød" to "lyserød"

but I don't think that it is  the red colour that shall be changed i all situations.

Har lige formatteret og har deror ikke zip. Jeg prøver at omdøbe den til .txt

mugs>>

det er stadig extension .mdb der fejler.

send som HNTO.txt

nemmerlig mugs...
Værdierne divergerer ned gemmen tabellen. Essensen er at man kan se de farver der er i tabellen og vælge at ændre en frve til en anden. Jeg har opribndelig lavet en form hvor den grupperede forespørgsel er i med håbet om at man kunne lave et felt ved siden af hvor den reviderede tekst skulle stå. når alle rettelser var foretaget skulle den grundlæggende tabel opdateres.

eksemplet med farverne er kun et eksempel for at synliggøre problematikken og ønsket. det rigtige felt indeholder en beskrivende tekst for et antal produkter

Sendt som HNTO.txt

terry > I agree with You, that the question is: should be:

I don't agree with You, that the question is:

Hvis ikke det fungerer med HNTO.txt, har du så et link til noget gratis zip?

nu hvor jeg sidder og tænker over det kunne man vel lave et script der gør noget ala det her:

if [table1]![field2].value <> null then
set field1.value = field2.value
else
end if

der skal vel bare en slags for - next kommando ind.-..

kan dette give inspiration ?

mugs\\

hvorfor sender du igen databasen som HNTO.txt.mdb  ??
den bliver igen banned i firewalen.

omdøb og send den som HNTO.TXT

winzip, winrar ...you name it..

I don't care..

Men jeg har lige sendt HNTO.txt til mig selv og gemt den på min HD. Omdøbt den til mugge.mdb oh no probs. Benuytter Outloook Expres.

mugs you've lost me 26/05-2003 19:42:57 !

Yes ofcourse - It is nonsens. Please disregard that comment. I promise: I will only "talk" My own language in the future :o)

nope.
outlook 2000

( kunne det tænkes at du er kommet til at sende samme fil 2 X ;-)

docmd.runsql "UPDATE table1 SET felt1 = [Change to] WHERE felt1 = [Change from]"

cant be much easier than this.
Place the code in the on click event of a button

Sendt som zip

ok mugs...tester lige...

fucki.. pi. og lo.. 

jeg accepterer da jeg forventer det virker, men jeg kan ikke teste her da jeg kører 97  ;-((

konverterer til 97 og sender igen

sendt i 97 zip

takker...er blevet inspireret...

Selv tak - Men fungerer det i henhold til dit spørgsmål, ellers skal du have dine point tilbage :o)

både og....

Jeg er ispireret til at arbejde videre. Det jeg gør er at lave en ny tabel hvori jeg kører samtlige grupperede poster over i. så retter man data i denne tabel via en form, og efterflg. opdaterer den så den primære tabel med redundandte data i. til sidst slettes tabellen så den er klar igen til ny opdatering.

Dette er måske ikke optimalt med tager ikke lang tid at lave eller køre rent scriptmæssigt, og involdverer kun en extra lille tabel.

Alt dette kan laves meget simpelt i VBA

hnto>What is wrong with the VERY SIMPLE solution I have given?

Jeg nå indrømme, at terry's SQL ser simpel og elegant ud. Jeg forstår heller ikke, hvorfor du vil oprette en temp tabel, og slet ikke hvorfor du vil gruppere dine poster inden du opdaterer.

Men der kan selvfølgelig ligge mere bag ved, som du ikke har (og ikke skal) informere om her.

but at least he can say what is wrong with it mugs, that way we all can learn IKKE?

correct terry.
Many users think, that I'm here to give som good advice. That's not correct. I'm here to learn, but if I can give an answer I give it. My solution is correct in that way it's working. But I would have used Your solution becaurse it's more simpel and elegant.

rolig nu...
med det kenskab jeg har til SQL er terry's forslag :
docmd.runsql "UPDATE table1 SET felt1 = [Change to] WHERE felt1 = [Change from]"
afhængig af en 'prompt' for hver ændring der foretages. Det jeg selv gerne vil gøre ( efter at være inspireret..) er at rette flere felter for så at lave en samlet opdatering. Det er ligledes et spørgsmål om brugervenlighed, idet jeg ikke skal angive gammel værdi og ny værdi, men kun behøver den nye værdi.

Der er som sagt tale om data der beskriver et produkt op til 100 katrakterer, hvorfor det er lidt fjollet først at skulle skrive/gentage de 100 karakterer og så angive 100 nye. Jeg synes personligt bedst om min egen løsning og takker for det input der er givet. tillige har jeg accepteret spørgsmålet.
det kan vel ikke blive mere fair eller ?

It will prompt only once for the old colour and then the new and then it will update ALL in one go :o)

WHERE felt1 = "red"

but points are given for the first correct answer, so if mugs answer is correct then great :o)

hnto > Nu er det jo så nemt for mig at sige alt er fair, da jeg har scoret point. Men mange gange forstår jeg ikke helt, hvorfor brugeren har valgt netop den løsning. Fra min side er mine kommentarer blot ment som anmodning om lidt hjælp til en forståelse for hvorfor du valgte min løsning, og ikke den mest elegante.

Men tak for din tilbagemelding, det er ikke altid vi får den.

Og fortsat god aften til begge - Nu vil jeg ud og rode lidt i mine roser :o)

Terry>
nu har jeg testet din via en formular hvor der er en continous form baseret på en grupperet query.
jeg har lagt en knap ud for recorden så denne bliver gentaget når man kører formen.
på dennes onclick står nu :
DoCmd.RunSQL "UPDATE 230503BQ_final SET familienavn = [Change to] WHERE familienavn = [Change from]"

Først promtes jeg for hvad værdien skal være. her skriver jeg test, men så er det den som beskrevet tidligere at den spørgen fra hvilken værdi. Dette burde den selv vide da jeg klikker på den enkelte record ikke. ?

30 point for en korrekt svar...

skal der stå noget med :

DoCmd.RunSQL "UPDATE 230503BQ_final SET familienavn = [Change to] WHERE familienavn = me!recorset.familienavn"

??? eller hvad ved jeg...

hnto > Ret variablen a til flg.:

a = Me.felt1

når du står i en bestemt record, vil du kun blive promptet for den nye værdi, idet variablen a allerede indehiolder værdien for den værdi du vil ændre.