Print side | Luk vindue

Gem data fra teksboks i formular

Udskrevet fra: Dansk Access Forum
Kategori: Hjælp til Access
Forum navn: Formularer (Forms)
Forum beskrivelse: Spørgsmål vedr. formularer og alt hvad der vedrører disse
Web-adresse: https://www.accessforum.dk/forum_posts.asp?TID=82
Udskrevet den: 27-04-2024 kl. 20:17


Emne: Gem data fra teksboks i formular
Besked fra: kielstrup
Emne: Gem data fra teksboks i formular
Posteringsdato: 03-04-2016 kl. 08:19
Hej Forum.

Jeg har tidligere haft et indlæg vedr. kombinationsboks og fik dejlig hjælp af bruger hkh, men fik aldrig tid til at fuldføre. Nu har jeg brugt et par dage og (næsten) alt virker. Nu har jeg bare dette sidste problem:

Private Sub Form_Close()

'Set the default value for textbox

DoCmd.SetWarnings False

DoCmd.RunSQL "UPDATE Kunde SET Kunde.Hjemrejsedato = [Forms]![Kunde]![Tekst95] " & vbCrLf & _

"WHERE (((Bookingnr) = 3));"

DoCmd.RunSQL "UPDATE Kunde SET Kunde.Udrejsedato = [Forms]![Kunde]![Tekst93] " & vbCrLf & _

"WHERE (((Bookingnr) = [Forms]![Kunde]![Bookingnr]));"

DoCmd.SetWarnings True

End Sub

Kan nogen fortælle mig, hvorfor skidtet virker i første tilfælde hvor Bookingnr= 3 men ikke i andet hvor det skal tages fra et felt i WHERE!

Et forhåbentligt tak for hjælpen.


Svar:
Besked fra: hkh
Posteringsdato: 03-04-2016 kl. 09:33
Får du nogle alarmer, eller sker der bare ingenting?
Er kundeformularens bookingnr formateret som tal eller tekst, hvis det er tekst går det ikke hvis kundetabellens bookingnr forventer et tal.
Så skal du enten formatere kundeformularens bookingnr som tal eller ændre indholdet til et tal:
"WHERE (((Bookingnr) =" & val([Forms]![Kunde]![Bookingnr]) & "));"


-------------
Hans

Besked fra: kielstrup
Posteringsdato: 03-04-2016 kl. 13:20
Hej igen Hans. Først tak for hurtigt svar.

Bookingnr er hentet fra tabel kunde som er autonummerering. Prøvede din løsning, desværre ingen ændringer.

Der sker det med den som ikke virker, at alle ændringer på bookingnr f eks 2 registreres på bookingnr 1. Kun hvis der i formlen er indtastet et nr, virker det.

VH Henrik

Besked fra: hkh
Posteringsdato: 03-04-2016 kl. 18:58
OKAY
Så er det fordi der er fejl til henvisningen [Forms]![Kunde]![Bookingnr], når den 1. post får ændringerne.
Du kan evt. prøve med en linje før du kører sqlsætningen.

Debug.Print "Bokkingnr. = " & [Forms]![Kunde]![Bookingnr]

Du skal have vinduet Immediane (GTRL + G) åbent, så vil der i Immediane vinduet komme til at stå:

'Bokkingnr. = (værdien af [Forms]![Kunde]![Bookingnr])'

Så vil du kunne se om der er en værdi i [Forms]![Kunde]![Bookingnr]


UPS! Jeg glemte lige at skrive at det er i VBA vinduet du skal trykke på CTRL+G

-------------
Hans


Print side | Luk vindue