Update tabel

Status
Niet open voor verdere reacties.
C

cosimaro

Gebruiker
Lid geworden
15 okt 2008
Berichten
94
Hallo,

Ik geraak er niet uit. Heb volgende gebeurtenis op een formulier staan bij ON FOCUS:

DoCmd.RunSQL "UPDATE [SELL-IN NUMMERING] SET [SELL-IN NUMMERING].[Volgnummer] = [volgnummer]+1 WHERE ((([SELL-IN NUMMERING].Code)=1));"

Dit werkt goed maar nu zou de volgnummer tevens in volgende tabel en veld moeten worden weggeschreven. Heb al vanalles opgezocht maar zie het niet.

Tabel: Bestellingen
Veld: SELLINNR.

Kan er iemand mij een voorzet geven? of de code erbij voegen?

Thanks
 
Bedoel je hiermee dat je hetzelfde record dat net is bijgewerkt wilt toevoegen aan een andere tabel, of moet hetzelfde record in een andere tabel worden bijgewerkt?
 
OctaFish zei:
Bedoel je hiermee dat je hetzelfde record dat net is bijgewerkt wilt toevoegen aan een andere tabel, of moet hetzelfde record in een andere tabel worden bijgewerkt?
Klik om te vergroten...

Zelfde record diet te worden bijgewerkt in een andere tabel.

Voorbeeld. indien docmd updat een waarde 6 geeft dan moet 6 weergegeven worden in de tabel bestellingen veld sellinnr.
 
Kun je een voorbeeldje neerzetten?
 

In principe heb ik nu alles gepost van database tot en met formulieren.

Alle gegevens heb ik eruit gehaald. Weet wel dat dit voor veranderingen vatbaar zal zijn maar als leek in acces vind ik dat dit al goed is voor een begin.
Dank dat u ernaar wilt kijken.
 

Bijlagen

Twee dingen: het bestand Bestellingen6 ontbreekt. Weet natuurlijk niet of die ook nodig is... En welk formulier bevat het probeem...
 
OctaFish zei:
Twee dingen: het bestand Bestellingen6 ontbreekt. Weet natuurlijk niet of die ook nodig is... En welk formulier bevat het probeem...
Klik om te vergroten...

Bestellingen 6 bevat het opstartscherm maar is een foto en met winzip is het nog altijd 6 MB.

Formulier : Bestellingen.

Thanks
 
Je zegt in eerste instantie dat de update code goed werkt. Als ik het voorbeeld bekijk dan verbaast mij dat hogelijk, want bij mij doet hij het dus niet.
Kijk ik achter de code, dan snap ik dat ook volkomen:
Code: 
    If [CODE MODEL] = 1 And [STOCK] = Nee And [VIRTUELE OVERNAME] = Nee Then
zal namelijk niet werken.
De code moet zijn:
Code: 
    If [CODE MODEL] = 1 And [STOCK] = 0 And [VIRTUELE OVERNAME] = 0 Then
of eventueel:
Code: 
    If [CODE MODEL] = 1 And [STOCK] = VbNo And [VIRTUELE OVERNAME] = VbNo Then
Na deze aanpassing worden de waarden in de tabel [Sell-In Nummering] netjes bijgewerkt. Ik neem aan, dat je dat bedoelt?

Dit werkt goed maar nu zou de volgnummer tevens in volgende tabel en veld moeten worden weggeschreven.
Klik om te vergroten...
Welke tabel bedoel je anders voor het wegschrijven van het volgnummer?
 
Laatst bewerkt:
OctaFish zei:
Je zegt in eerste instantie dat de update code goed werkt. Als ik het voorbeeld bekijk dan verbaast mij dat hogelijk, want bij mij doet hij het dus niet.
Kijk ik achter de code, dan snap ik dat ook volkomen:
Code: 
    If [CODE MODEL] = 1 And [STOCK] = Nee And [VIRTUELE OVERNAME] = Nee Then
zal namelijk niet werken.
De code moet zijn:
Code: 
    If [CODE MODEL] = 1 And [STOCK] = 0 And [VIRTUELE OVERNAME] = 0 Then
of eventueel:
Code: 
    If [CODE MODEL] = 1 And [STOCK] = VbNo And [VIRTUELE OVERNAME] = VbNo Then
Na deze aanpassing worden de waarden in de tabel [Sell-In Nummering] netjes bijgewerkt. Ik neem aan, dat je dat bedoelt?


Welke tabel bedoel je anders voor het wegschrijven van het volgnummer?
Klik om te vergroten...


Tabel waar deze waarde dan zou moeten worden weggeschreven: Bestellingen

Veld: SELLINNR

Thanks
 
cosimaro zei:
Tabel waar deze waarde dan zou moeten worden weggeschreven: Bestellingen

Veld: SELLINNR

Thanks
Klik om te vergroten...

Octafish,

ik denk dat het probleem opgelost is. Heb volgende code bijgevoegd na het DoCmd.RunSQL "UPDATE"

SELLINNR=DFirst ("Volgnummer", "SELL-IN NUMMERING", " Code=1")

Dit heb ik ingevuld voor de code 1 ,2,3,4

Ik dank u voor toch mee te denken en mij geholpen te hebben.

Tot ziens
 
cosimaro zei:
Octafish,

ik denk dat het probleem opgelost is. Heb volgende code bijgevoegd na het DoCmd.RunSQL "UPDATE"

SELLINNR=DFirst ("Volgnummer", "SELL-IN NUMMERING", " Code=1")

Dit heb ik ingevuld voor de code 1 ,2,3,4

Ik dank u voor toch mee te denken en mij geholpen te hebben.

Tot ziens
Klik om te vergroten...

Mag ik u nog een vraag stellen?

Van zodra dit nummer wordt updedate in de tabel SELL-IN NUMMERING krijg ik op mijn formulier de boodschap vanuit acces: "U staat op het punt van 1 record bij te werken. Knoppen OP; Annuleren"

Kan deze melding onderdrukt worden?

Thanks
 
Als je Vóór het updatecommando deze regel zet:

Code: 
DoCmd.Setwarnings False
dan ben je van de melding af.

Als laatste regel zet je dan:

Code: 
DoCmd.Setwarnings True
want anders vraagt Access niet meer of je iets wilt opslaan of niet.
 
OctaFish zei:
Als je Vóór het updatecommando deze regel zet:

Code: 
DoCmd.Setwarnings False
dan ben je van de melding af.

Als laatste regel zet je dan:

Code: 
DoCmd.Setwarnings True
want anders vraagt Access niet meer of je iets wilt opslaan of niet.
Klik om te vergroten...

Thanks voor het snelle antwoord.

Het is simpel als je het weet maar zo moeilijk om het te zoeken.
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan