29. november 2004 - 12:12Der er
9 kommentarer og 1 løsning
INSERT INTO sammen med INPUTBOX
Jeg vil ved hjælp af et tryk på en formularknap føje poster til en tabel som fortæller hvilket brev der er blevet sendt til hvem og hvornår. Tabellen hedder tblDato og indeholder felterne IDKunde, Dato (med standardværdien Date()), og feltet Case Jeg har denne kode:
INSERT INTO tblDato (IDKunde) SELECT tblHovedtabel.ID FROM tblHovedtabel WHERE Udskrives=true
Dette virker fint, men jeg mangler at putte tekst ind i feltet Case, og det vil jeg gøre med en inputboks, der kommer op når man trykker på knappen, teksten er den samme for alle posterne.
Desuden skal den kun tilføje poster hvis der ikke allerede er en post med samme Case og IDKunde.
For at chekke at der ikke allerede er sent en post kan du bruge
if DCount("IDKunde","tblDato", "IDKunde = " & me.IDKunde & " AND Case = " & me.case )>0 then msgbox "brevet er allerede sendt" else Koden fra jensen363 end if
Super! Nu mangler jeg bare at få den til at chekke om posten allerede findes, for din kode virker ikke, overchord. Den kender ikke Me.IDKunde og Me.Case og det er jo klart nok, da felterne findes i tabellen tblDato og ikke på den formular knappen er på.
Jeg har løst problemet ved at lave en UPDATE på Udskrives-feltet efter INSERT sætningen:
DoCmd.RunSQL "UPDATE tblHovedtabel Set Udskrives = False Where tblHovedtabel.Udskrives = True"
Kan man ikke forhindre inputboksen i at komme op hvis alle Udskrives-felter = False? Som det er nu kommer boksen op, selv om der ikke er nogen poster at tilføje.
Tak for point ... fik ikke lige tid til at give en 100 % løsning ... sorry
Synes godt om
Ny brugerNybegynder
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.