02. november 2011 - 19:24Der er
11 kommentarer og 1 løsning
formular hjælp
Der er lykkes mig at lave en formular hvor man vælger afdeling vælger fejl type og skriver antal fejl
Hvordan laver man beskyttelse af at man skal trykke på næste post før man kan skrive igen, så man ikke kommer til at overskrive efter man har trykket på gem post.
Jeg har en fejl type det hedder andet nå man vælger den så er der en felt det hedder bemærkning, hvordan kan man lave sådan at nå man har valgt type andet så skal man skrive i felt bemærkning.
Sidste ting Nå jeg opretter rapport så skal den spørge efter hvilke afdelinger jeg vil have med i rapporten, kan man det?
Mange tak på forhånd, giver lidt ekstra point for den her da der er 3 spørgesmål.
det er ikke nødvendigt at rykke på "Gem" for at lagre posten. Når du går til ny post, scroller mellem posterne eller lukker formularen er dine indtastninger gemt i tabellen. når du har valgt fejltype "andet", kan du lave en msgbox der meddeler, at der skal skrives en bemærkning, og derefter sende markøren til feltet bemærkning i stil med dette:
MsgBox "Der skal skrives i feltet bemærkning" DoCmd.GoToControl "bemærkning"
Åbn formularen i designvisning. Højreklik på feltet fejltype > egenskaber > fanen hændelser > sæt markøren på linien VedUdgang (Exit) > tryk på de 3 små ... i højre side, så er du inde i VBA-editoren. Past min kode ind hvor markøren står og blinker.
Koden hedder If me.Type = "Andet" Then MsgBox "Der skal skrives i feltet bemærkning" DoCmd.GoToControl "bemærkning" End If
den kommer ikke med boksen nu, hmm, mystisk. Har lige også fundet en alvorligt fejl. Nå jeg vælger samme afdeling og samme fejl og skriver antal så lægger den ikke antal samme fejl sammen, men kommer bare ned af hvis jeg så trykker at entydigeværdier ja så fjerner den ens indtastninger, hmm, så er den helt galt, den skal lægge samme slags fejl sammen, ej der er sgu avanceret det her.
Private Sub Kombinationsboks11_Exit(Cancel As Integer) If Me.Type = "Andet" Then MsgBox "Der skal skrives i feltet bemærkning" DoCmd.GoToControl "bemærkning" End If End Sub
Virkede før, den kommer ikke med nogen fejl men kommer heller ikke med boxen.
Jeg har 3 tabeller en med afdelinger, en med fejl, en til indberetning, så har jeg 3 forespørgelser som så får i stedet for at vise ID så viser den navne på afdelinger og fejl typer og er formular med 2 rullelister 2 felter en til at indberette antal fejl en til at indberette bemærkninger. Tilføje post knap, forrige post knap og slet post knap.
Men den ligger sgu ikke antalet af fejl sammen hvis de er i den samme afdeling og samme type det skal den
Private Sub type_Exit(Cancel As Integer) If Me.type = "Andet" Then MsgBox "Der skal skrives i feltet bemærkning" DoCmd.GoToControl "bemærkning" End If End Sub
Og den fungerer. Jeg kan ikke se nogen forskel, så den eneste fejlkilde der kan være er, at boksen slet ikke hedder Kombinationsboks11. Er du sikker på, at koden er indsat i boks11?
M.h.t. sammentællingen synes jeg, vi skal vente med det, til dette problem er løst.
meget mystisk men det vil den sgu ikke, kan kun vælge uden IF funktionen som du har vist første gang, har nu afprøvet mange måder at ændre på koden uden held. Ved ikke om det har noget og sige at der er en liste, syns der er mystisk at den ikke vil tage koden med IF kriterrie "Andet",
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.