Dansk Access Forum
  Hjælp Hjælp  Søg i forum   Opret ny bruger Opret ny bruger  Log ind Log ind


Emne lukketGem data fra teksboks i formular

 Besvar Besvar
Forfatter
kielstrup Se dropdown
Bronze bruger
Bronze bruger


Medlem: 21-02-2015
Land: DK
Status: Offline
Point: 12
Direkte link til dette indlæg Emne: Gem data fra teksboks i formular
    Sendt: 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.
Til top



Til top
hkh Se dropdown
Sølv bruger
Sølv bruger


Medlem: 15-08-2012
Status: Offline
Point: 320
Direkte link til dette indlæg Sendt: 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
Til top
kielstrup Se dropdown
Bronze bruger
Bronze bruger


Medlem: 21-02-2015
Land: DK
Status: Offline
Point: 12
Direkte link til dette indlæg Sendt: 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
Til top
hkh Se dropdown
Sølv bruger
Sølv bruger


Medlem: 15-08-2012
Status: Offline
Point: 320
Direkte link til dette indlæg Sendt: 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
Til top
 Besvar Besvar

Skift forum Forum tilladelser Se dropdown

© 2013 - 2024 Dansk Access Forum - en del af Excel-regneark.dk