20. maj 2007 - 21:51
Der er
9 kommentarer og 1 løsning
Opdater Tabel
Hey Håber der er en herinde der kan hjælpe mig :-) Jeg har en tabel som jeg indtaster nogle oplysninger i via en formular. På min formular har jeg nogle knapper, min Gem og Slet knap vil jeg gerne have til at opdatere tabelen efter at jeg har gemt og slettet i tabelen. Hvordan opdatere jeg min tabel? --KODE START-- Svar = MsgBox("Vil du oprette denne person : " & Tekst1 & "?", vbYesNo + vbQuestion) If Svar = vbYes Then Tabel1PostSet.AddNew Tabel1PostSet("Navn") = Tekst1 Tabel1PostSet("Hyperlink") = Tekst2 Tabel1PostSet.Update Svar = MsgBox("Følgende person er blevet oprettet : " & Tekst1 & vbCrLf & "Hyperlink : " & Tekst2, vbInformation) --KODE SLUT--
Annonceindlæg fra Academic Work Denmark A/S
Er det listen på skærmen du vil have opdateret? Eller er det tabellen? Hvis det er listen, kan du gøre det med en Me.Requery
Hvad er Tabel1PostSet for en kontrol på din form?
Jeg vil gerne have opdateret tabellen :-) --KODE HER-- Dim akDb As Database Dim Tabel1tabel As TableDef Dim Tabel1PostSet As Recordset Dim Sog As String Dim Text As String Dim Svar As Integer Set akDb = CurrentDb() Set Tabel1tabel = akDb.TableDefs("Tabel1") Set Tabel1PostSet = akDb.OpenRecordset("Titel", dbOpenDynaset) Svar = MsgBox("Vil du oprette denne person : " & Tekst1 & "?", vbYesNo + vbQuestion) If Svar = vbYes Then Tabel1PostSet.AddNew Tabel1PostSet("Navn") = Tekst1 Tabel1PostSet("Hyperlink") = Tekst2 Tabel1PostSet.Update --KODE SLUT-- Det foklare nok lidt mere :-)
Nej, faktisk ikke. Hvad er dit problem, helt nøjagtigt? Får du en fejlmelding fra koden?
Problemet er den her : Tabel1PostSet.Update Mine data bliver lagt i tabellen men jeg skal lukke access og åbne min DB igen før jeg kan aflæse mine nye data på min formular
Som jeg allerede skrev i min tidligere kommentar, burde det være nok at afslutte din kode med Me.Requery, umiddelbart efter din update. Det er i hvert fald rigtigt, hvis din kode ligger i samme form som din Gem knap. Hvis dine knapper ligger på en anden form end din liste, skal du i stedet skrive Forms!formNavn.Requery hvor formNavn er navnet på den form, hvor din tabel/forespørgsel bliver listet. Jeg håber det hjælper dig... :-)
Det var da vist noget sludder jeg fik skrevet. "Det er i hvert fald rigtigt, hvis din kode ligger i samme form som din Gem knap." skulle have været: Det er i hvert fald rigtigt, hvis din kode/Gem knap ligger i samme form som den form der viser dine rækker. Håber det giver mere mening... :-)
Hey kjulius Det virker bare som det skal .. takker mange gange :-) Smid et svar og du får points.
Okay, det kommer her... :-)
Kurser inden for grundlæggende programmering