Flytte data fra post til post ved hjælp af knap

Til det formål, kan du benytte er opdateringsforespørgsel. Hvad hedder dine to tabeller, og hvilke felter skal kopieres ?

Dim VARa as string
Dim Varb as string

Vara = Me.felt1
Varb = Me.felt2

DoCmd.OpenForm "Form2"
Forms!form2!id.SetFocus
DoCmd.FindRecord Me!id

Me.felt1 = VARa
Me.felt2 = Varb

UPDATE Table1
INNER JOIN Table2
ON Table1.ID = Table2.ID
SET Table2.Felt1 = Table1!Felt1,
Table2.Felt2 = Table1!Felt2,
Table2.Felt3 = Table1!Felt3,
Table2.Felt4 = Table1!Felt4;

Ved godt det lyder lidt mærklig men det er samme tabel som hedder "Kalibrerings resultater" og mine felter hedder [Fejlgrænse] [Norm id] [Gentagelses nøj] [Stamkort]

Dvs. du skal kopiere indenfor sammen tabel ?

den skal tage det fra den første post der blev oprettet med det id nummer også året efter skal den opdater de fire felter den skal ikke kopier helst flytte data fra den gamle post også over til den nye post felter indholder nogle regneark der bliver opdateret (nå men lang forklaring)

15/02-2008 10:52:05 ja helst flytte

Problemet her, er vel, at du reelt får 2 identiske poster ... hvilken een skal så flyttes ???

Din opdateringsforespørgsel ( til kopiering ) vil skulle se således ud

UPDATE [Kalibrerings resultater] INNER JOIN [Kalibrerings resultater] AS [Kalibrerings resultater_1] ON [Kalibrerings resultater].ID = [Kalibrerings resultater_1].ID SET [Kalibrerings resultater_1].Fejlgrænse = [Kalibrerings resultater]!Fejlgrænse, [Kalibrerings resultater_1].[Norm id] = [Kalibrerings resultater]![Norm id], [Kalibrerings resultater_1].[Gentagelses nøj] = [Kalibrerings resultater]![Gentagelses nøj], [Kalibrerings resultater_1].Stamkort = [Kalibrerings resultater]!Stamkort
WHERE ((([Kalibrerings resultater_1].Fejlgrænse) Is Null) AND (([Kalibrerings resultater_1].[Norm id]) Is Null) AND (([Kalibrerings resultater_1].[Gentagelses nøj]) Is Null) AND (([Kalibrerings resultater_1].Stamkort) Is Null));

Da jeg antager at du vil beholde hele eller dele af den opringelige post/række ( den du flytter fra ), kan du efterfølgende benytte en opdateringsforespørgsel til at blankstille den 4 felter ( kræver at du har en unik værdi der identificerer hvilken post der er tale om )

Ja jeg får to ens poster men de har jo hver deres autoløbe nummer og dataerne i posten er heller ikke ens kun lige når de fire felter bliver flyttet men i de felter er der ole-objekter som så bliver opdater efterfølgende
Så den skal jo så tage det fra den med det mindst autoløbe nummer

15/02-2008 11:06:29  ja res. i den gamle post skal gemmes på nær de fire felter så jo efter lades blanke hvis dataerne bliver flyttet ikke sand
og det unikke er autoløbe nummeret

Du skal benytte en ekstra forespørgsel til at identificere de rækker der skal nulstilles :

SELECT First([Kalibrerings resultater].AutoLøbenr) AS FirstOfAutoLøbenr, Count([Kalibrerings resultater].ID) AS CountOfID
FROM [Kalibrerings resultater]
HAVING (((Count([Kalibrerings resultater].ID))=2));

Herefter benyttede du denne til at nulstille de rækker som er i denne ekstra forespørgsel

undskyld forstår ikke helt men det er nok mig det er galt med
der er ikke noget der skal nulstilles
hvordan skal vda koden i knappen se ud hvis jeg skal flytte/klippe data ud fra de fire felter også ind i den nye post i de samme fire felter
(eller så enkel kan det måske ikke gøres)

Jeg kender ikke andre metoder end den jeg har skitseret :

  1. Kopier A til B
  2. Identificér A som er identisk med B
  3. Nulstil de fire felter i A

Dette kan sagtens indarbejder i een og samme VBA/SQL-kode

Nu har jeg ikke fulgt med i de sidste indlæg (haven kalder), men jeg vil da mene, at min kode kan gøre det der skitseres.

oki oki
1 Når du siger kopier A til B mener du så hele posten eller kun de fire felter
2 A er ikke identisk med B. B det er en ny post med en nye res. men i A er der fire felter der skal flytters/kopiers til B
jeg er ikke så hår til VBA/SQL-kode så hvis du vil vise et eks på hvordan vba koden skal se ud vil det være kanon

15/02-2008 12:12:11
kan du ikke prøve at vise din kode med de rigtige felter

Dim VARa as string
Dim Varb as string
Dim Varc as string
Dim Vard as string

Vara = Me.[Fejlgrænse]
Varb = Me.[Norm id]
VARc = Me.[Gentagelses nøj]
VARd = Me.[Stamkort]

DoCmd.OpenForm "Form2"
Forms!form2!id.SetFocus
DoCmd.FindRecord Me!id

Me.[Fejlgrænse] = Vara
Me.[Norm id = Varb
Me.[Gentagelses nøj]= Varc
Me.[Stamkort] = Vard

Som du kan se i koden, er alle variabler erklæret som String (tekst). Dy skal rette til den korrekte felttype.

hvad hedder en ole-objekt felt type ?

da det er i en underformular skal der så stå DoCmd.OpenSubForm ??

Jeg ved det fasktisk ikke. Arbejder aldrig med denne felttype.

Sorry folks ... har lige været til frokost og møde ... kan se at I arbejder efter en anerledes metode nu ...

ja men tror vi skal tilbage til din  jensen363 se
15/02-2008 12:16:55 og lad os forsætte der fra

Det kommer lidt an på hvorledes ( din proces ) er ... Mugs version er baseret på at du foretager ændringen "on-the-fly" post for post, og du kan se/følge ændringen direkte, hvor min version mere er rettet imod en generel opdatering af hele databasen på een gang ... hvad foretrækker du ?

det skal være din version generel opdatering af hele databasen på en gang
så det kun er en knap der skal laves en gang og som virke uanset hvilken post man står i

Når du arbejder i en subform, skal du sikre dig at subformen har focus:

Docmd.Subform.setfocus

jeg opdater lige fra 15/02-2008 12:16:55
1 Når du siger kopier A til B mener du så hele posten eller kun de fire felter
2 A er ikke identisk med B. B det er en ny post med en nye res. men i A er der fire felter der skal flytters/kopiers til B
jeg er ikke så hår til VBA/SQL-kode så hvis du vil vise et eks på hvordan vba koden skal se ud vil det være kanon

Et bud kunne være dette :

Option Compare Database

Public Sub A_TIL_B()

Dim strSQL As String
Dim db As DAO.Database

Set db = CurrentDb()

    'Kopiér A til B
    strSQL = "UPDATE [Kalibrerings resultater] "
    strSQL = strSQL & "INNER JOIN [Kalibrerings resultater] "
    strSQL = strSQL & "AS [Kalibrerings resultater_1] "
    strSQL = strSQL & "ON [Kalibrerings resultater].ID = [Kalibrerings resultater_1].ID "
    strSQL = strSQL & "SET [Kalibrerings resultater_1].Fejlgrænse = [Kalibrerings resultater]!Fejlgrænse, "
    strSQL = strSQL & "[Kalibrerings resultater_1].[Norm id] = [Kalibrerings resultater]![Norm id], "
    strSQL = strSQL & "[Kalibrerings resultater_1].[Gentagelses nøj] = [Kalibrerings resultater]![Gentagelses nøj], "
    strSQL = strSQL & "[Kalibrerings resultater_1].Stamkort = [Kalibrerings resultater]!Stamkort "
    strSQL = strSQL & "WHERE ((([Kalibrerings resultater_1].Fejlgrænse)= '""' "
    strSQL = strSQL & "Or ([Kalibrerings resultater_1].Fejlgrænse) Is Null) "
    strSQL = strSQL & "AND (([Kalibrerings resultater_1].[Norm id])= '""' "
    strSQL = strSQL & "Or ([Kalibrerings resultater_1].[Norm id]) Is Null) "
    strSQL = strSQL & "AND (([Kalibrerings resultater_1].[Gentagelses nøj])= '""' "
    strSQL = strSQL & "Or ([Kalibrerings resultater_1].[Gentagelses nøj]) Is Null) "
    strSQL = strSQL & "AND (([Kalibrerings resultater_1].Stamkort)= '""' "
    strSQL = strSQL & "Or ([Kalibrerings resultater_1].Stamkort) Is Null));"
        db.Execute strSQL
       
       
    strSQL = "Delete * from [Kalibrerings resultater Temp];"
        db.Execute strSQL
       
    'Identificer A som skal nulstilles som kopieres til midlertidig fil
    DoCmd.SetWarnings False
        DoCmd.OpenQuery "qryIdent_A", acViewNormal, acReadOnly
    DoCmd.SetWarnings True
       
    'Nulstil de fire felter i A
    strSQL = "UPDATE [Kalibrerings resultater] "
    strSQL = strSQL & "INNER JOIN [Kalibrerings resultater Temp] "
    strSQL = strSQL & "ON [Kalibrerings resultater].AutoLøbenr = [Kalibrerings resultater Temp].AutoLøbenr "
    strSQL = strSQL & "SET [Kalibrerings resultater].Fejlgrænse = Null, "
    strSQL = strSQL & "[Kalibrerings resultater].[Norm id] = Null, "
    strSQL = strSQL & "[Kalibrerings resultater].[Gentagelses nøj] = Null, "
    strSQL = strSQL & "[Kalibrerings resultater].Stamkort = Null; "
        db.Execute strSQL
   
End Sub

Som supplement til denne kode er der pårettet en tabel kaldet :

Kalibrerings resultater Temp

Denne indeholder reelt kun AutoLøbenr

Herudover er der en tilføjelsesforespørgsel kaldet :

qryIdent_A

indeholdende denne SQL :

INSERT INTO [Kalibrerings resultater Temp] ( AutoLøbenr )
SELECT First([Kalibrerings resultater].AutoLøbenr) AS AutoLøbenr
FROM [Kalibrerings resultater]
GROUP BY [Kalibrerings resultater].Fejlgrænse, [Kalibrerings resultater].[Norm id], [Kalibrerings resultater].[Gentagelses nøj], [Kalibrerings resultater].Stamkort
HAVING ((([Kalibrerings resultater].Fejlgrænse) Is Not Null) AND (([Kalibrerings resultater].[Norm id]) Is Not Null) AND (([Kalibrerings resultater].[Gentagelses nøj]) Is Not Null) AND (([Kalibrerings resultater].Stamkort) Is Not Null) AND ((Count([Kalibrerings resultater].ID))>=2));

skal hjem nu men kigge lige ind når jeg er kommet hjem ;o) så jeg kan prøve den af

undskyle men tror måske det er mugs version jeg skal bruge så det er en opdatering der sker post for post for det er ikke alle poster der skal opdateres på engang det er kun den post man står i med andre ord hver gang man har fat i et nyt værktøj så er det fire felter for det værktøj der skal flyttes/kopiers
vender nok først tilbage mandag hvor der er lidt tid igen ;O)

så er jeg her igen kan ikke rigtig få det til at virke
hvad er fejlen i den her
Private Sub Kommandoknap21_Click()

Dim VARa As String
Dim Varb As String
Dim Varc As String
Dim Vard As String

VARa = Me.[Fejlgrænse]
Varb = Me.[Norm id]
Varc = Me.[Gentagelses nøj]
Vard = Me.[Stamkort]

DoCmd.OpenForm "Stamkort Skydelære"
Forms!Forms2!Værktøjs NR.SetFocus
DoCmd.FindRecord Me!Værktøjs  NR

Me.[Fejlgrænse] = VARa
Me.[Norm id] = Varb
Me.[Gentagelses nøj] = Varc
Me.[Stamkort] = Vard

End Sub

til jensen363 når jeg vil lave en ny forspørgsel hvor sætter jeg så din kode ind

Private Sub Kommandoknap21_Click()

Dim VARa As String
Dim Varb As String
Dim Varc As String
Dim Vard As String

VARa = Me.[Fejlgrænse]
Varb = Me.[Norm id]
Varc = Me.[Gentagelses nøj]
Vard = Me.[Stamkort]

DoCmd.OpenForm "Stamkort Skydelære"
Forms!Forms2![Værktøjs NR].SetFocus
DoCmd.FindRecord Me![Værktøjs  NR]

Me.[Fejlgrænse] = VARa
Me.[Norm id] = Varb
Me.[Gentagelses nøj] = Varc
Me.[Stamkort] = Vard

End Sub

Den ER afprøvet og fungerer her:

Forms!Form2!Felt1.SetFocus
DoCmd.FindRecord Me!Felt1

Men får du nogen fejlmeddelelser og i givet fald hvilken, eller sker der bare ikke noget?

der hvor felterne skal sættes ind er i en underformular
til den her siger den kan ikke finde forms2

Dim VARa As String
Dim Varb As String
Dim Varc As String
Dim Vard As String

VARa = Me.[Fejlgrænse]
Varb = Me.[Norm id]
Varc = Me.[Gentagelses nøj]
Vard = Me.[Stamkort]

DoCmd.OpenForm "Stamkort Skydelære"
Forms!Forms2![Værktøjs NR].SetFocus
DoCmd.FindRecord Me![Værktøjs  NR]

Me.[Fejlgrænse] = VARa
Me.[Norm id] = Varb
Me.[Gentagelses nøj] = Varc
Me.[Stamkort] = Vard

og til det her siger den compile error
DoCmd.OpenForm "Stamkort Skydelære"
Måleværktøjer Stamkort!Stamkort Skydelære![Værktøjs NR].SetFocus
DoCmd.FindRecord Me![Værktøjs  NR]

Forms2 er navnet på den formular der indeholder feltet [Værktøjsnr]. Kontroller for stavefejl.

Hvis din subform ligger i den mainform du arbejder i, skal du først sætte focus på subformen.

Det er en uskik med mellemrum / specialtegn i objektnavne. Prøv denne:

[Måleværktøjer Stamkort9![Stamkort Skydelære]![Værktøjs NR].SetFocus

Her skriver den (kan ikke finde feltet "|",der refereres til i udtrykket)

DoCmd.OpenForm "Stamkort Skydelære" (dette er underformular)
[Måleværktøjer Stamkort](dette er hovedeformular)![Stamkort Skydelære]![Værktøjs NR].SetFocus
DoCmd.FindRecord Me![Værktøjs  NR]

og den formular den når at finde frem svare ikke til det id nummer som jeg står i når jeg trykker på knappen

men det er nok fordi den bare ånber underformularen og står i første post

Kan du sende db til:

mugs snabelting mail.dk

som en zip. Og skriv lige et par orde om formularnavne.

oki det prøver jeg lige

har du modtaget den ?

Nej!

?? den er sendt her fra 10.24

jeg prøver lige at sende den igen når jeg kommer hjem hvis ikke du har fået den inden

Den er ikke kommet. Alle mails fra idag er afsendt fra eksperten. Har du husket at zippe den? Hvis ikke bliver den afvist.

Ja det har jeg men der kan være noget sikkerhed her i firmaet så jeg prøver lige at sende den til dig når jeg kommer hjem det bliver ca kl 15.30

så skulle den være sendt igen

Har endnnu ikke modtaget noget!

den er sendt som en zip fil og har prøvet at sende den hjem til mig selv og har modtaget den, jeg har heller ikke fået nogen besked om at den ikke er gået igennem
den er sendt til 'mugs(tast alt Gr 2)mail.dk' men prøver lige igen når du har bekræftet denne E-mail adr.

Der er ikke kommet noget. Prøv at sende mig en mail uden vedhæftet fil, så vi kan afprøve adressen.

den er sendt nu

Og jeg har svaret.

har sendt den med fil nu

Hmm - Ikke noget endnu. Mens vi roder med dette, skal vi så ikke tale udenom eksperten. Vi forstyrrer blot andre brugere.

Er du der endnu ?

Ja - skal lige have læst op på dit spørgsmål.

?? er du der

Ja.

har du en mulighed eller skal jeg lige oprette et nyt spørgsmål så vi ved hvor vi er henne ??

Lad od bare blive her. Men jeg tror ikke jeg kan løse dit problem. Du vil have kopieret en graf til en ny post, og når jeg debugger og lader VBA skrive variablerne til imediate vinduet, kører det fint med de 3, men grafen betår udelukkende af nogle uforståelige tegn.

oki kan du ikke sende den db hvor det virker uden grafen kan godt bruge det med de andre tre felter

til h.noerbjerg snabelting elektro-isola.dk

Jeg har den ikke mere.

er der i orden jeg sender den til dig igen

jeg har sendt den til dig

Hvis du så vil når du sender den tilbage lave en ny knap der flytter det som kan flyttes uanset hvordan grafen kommer til at se ud bagefter

På forhånd 1000 tak

Der er ikke kommet noget - Jeg tror db er for stor.

så sendt igen fylder 1,4 mb har fjernet alle grafer

hva så hvordan går det med den

Jamen det går jo slet ikke.
Svarede dig 4/3 17:08:

"Der er et eller andet galt med den db. Den crasher hele tiden og lukker Access"

oki jeg prøve at lave en lille ny db hvor der kun lige er det i vi skal bruge også sender jeg den til dig når jeg lige får tid engang i næste uge  jeg takker for toldmodigheden ;o)

OK - Men der er jo en anden ting. Når vi isolerer post 002193 eller hvilkien det bu var, kom der 2 poster frem, og du vil have data til til den ikke synlige post. Hvordan kan Access vide, hvilken post der skal modtage de nye data?

jeg ved det ikke det er derfor jeg spørger om hjælp
men jeg tror jeg giver op
ser om der kan være andre måder at løse det på
men tak for den hjælp du har givet mig selvom det ikke lykkes

kommer med et nyt spørgsmål når jeg har fundet en anden måde