Notifikationer

Markér alle som læst Log ud

daniel_d Nybegynder

16. september 2007 - 00:52 Der er 8 kommentarer og
1 løsning

Opdatere tabel med input fra tekstbox ved klik på knap

Hej eksperter

Jeg er rendt ind i et mindre problem (stort for mig). Sagen er den, at jeg vil lave et journalsystem knyttet til en kunde.

Jeg har til det 2 tabeller.

Tabel 1: kundeoplysninger af general karakter
- ID (primær nøgle)
- En masse andre felter
Tabel 2: Journalen
- ID (primær nøgæe)
- Patient_Id (her er der relation til ID fra Tabel 1
- Note
- Dato

Jeg har i en formular oprettet et inputfelt og en knap. Når jeg har indtastet en note i feltet og klikker på knappen, skal noten gemmes i Tabel 2 med Patient_Id svarende til den aktuelle/åbne kunde i Tabel 1.

Men hvordan klarer jeg den?

Synes godt om

mugs Novice

16. september 2007 - 00:57 #1

Lav en opdateringsforespørgsel der opdaterer Tabel 2 og indsæt et kriterie:

=[Forms]![Formularens navn]![Patient ID]

Synes godt om

daniel_d Nybegynder

16. september 2007 - 01:22 #2

øhh... :)
Jeg er lidt rusten i Access (men prøver)... ellers må jeg prøve at tigge en bedre forklaring ud af ærmet på dig :)

Synes godt om

daniel_d Nybegynder

16. september 2007 - 01:29 #3

nej, jeg er altså ikke med på hvad du mener.

mit inputfelt er ikke bundet op pt. Feltet hedder journalnote og knappen opdater_journal

Skal jeg ikke lave en vba kode på knappen ved klik?
Forestillede mig noget i den dur (psuedokode)

indsæt i tabel 2 sæt journalnote.input = tabel2.note hvor Patient_Id = tabel1.Id

???
Eller er jeg helt galt på den?

Synes godt om

daniel_d Nybegynder

16. september 2007 - 04:10 #4

Jeg er der næsten nu :)

Private Sub opdater_journal_Click()

DoCmd.RunSQL "INSERT INTO [Patientjournal] ( [Noter], [Patient_Id] ) VALUES ('" & Me.[journalnote].Value & "','8')"
Me.journalnote.Value = ""
Refresh

End Sub

Eneste jeg ikke helt har styr på nu, er hvordan jeg erstatter '8' med nuværende records ID

Synes godt om

daniel_d Nybegynder

16. september 2007 - 04:29 #5

Så lykkedes det også at få styr på mit id :)
brugte '" & Me!Id & "'

så min kode kom til at se således ud:
Private Sub opdater_journal_Click()

DoCmd.RunSQL "INSERT INTO [Patientjournal] ( [Noter], [Patient_Id] ) VALUES ('" & Me.[journalnote].Value & "','" & Me!Id & "')"
Me.journalnote.Value = ""
Refresh

End Sub

Mugs> Du kan bare smide et svar hvis du vil have nogle point...

Synes godt om

mugs Novice

16. september 2007 - 10:36 #6

Fint du fik det til at fungere - Tak for point ;o)

Synes godt om

mugs Novice

16. september 2007 - 12:13 #7

Beklager ikke at være på iaftes - Gik død efter en lang dag

Synes godt om

daniel_d Nybegynder

16. september 2007 - 12:22 #8

Du mener i nat :)
Det skal du da slet ikke beklage, hvem kan forvente det?

Synes godt om

mugs Novice

16. september 2007 - 12:38 #9

Tak for din forståelse. Mit oprindelige forslag byggede på en forespørgsel i SQL. Men dit endelige resultat blev en VBA sætning hvori du fyrer en SQL af.

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Access kurser

Dyk ned i databasernes verden på et af vores praksisnære Access-kurser

Se alle Access kurser

Flere spørgsmål fra Access kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Access database udskriver ikke rammer korrekt Af Uvanga i Access	8	18/11/202500:24	18/11/202510:25
Menu linie forsvundet i editoren Af per2edb i Access	10	13/11/202515:30	18/11/202518:09
Tekst format i Kodevinduet Af per2edb i Access	11	02/11/202517:28	04/11/202516:08
Tabstop, vba Af zuschlag i Access	8	05/10/202513:34	08/10/202512:48
Fejl i Dato = Format(Now(), "dd-mm-yyyy hh:mm:ss") Af per2edb i Access	6	26/09/202513:37	07/11/202507:47

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS