26. oktober 2001 - 18:12Der er
7 kommentarer og 1 løsning
Kontrol af om et varenummer allerede er oprettet
Følgende kode andvendes til at kontrollere at et varenummer ikke er oprettet i forevejen
Private Sub Nr_BeforeUpdate(Cancel As Integer) If DCount(\"*\", \"produkter\", \"varenummer = \'\" & Me!Nr & \"\'\" & \" AND Produktnr <> \" & Me!Pronr) > 0 Then MsgBox \"Posten findes i forvejen!\", vbCritical DoCmd.CancelEvent Exit Sub End If End Sub
Det kontrolleres at der ikke findes en post i tabellen \"produkter\" med samme varenummer som det der oprettes i feltet \"nr\" i formularen. \"produktnr\" er index i tabellen, svarende til et felt i formularen (Pronr). sikre at det er en ny post og ikke en gammel som rettes.
Mit problem er nu at jeg har ændret i tabelle, så varenummer er et numerisk felt i stedet for et tekstfelt. Det betyder at koden ikke længere virker. Hvordan skal den se ud ?
I lang tid har samarbejdsbranchen fokuseret på at forbedre enhedsfunktioner – bedre kameraer, klarere lyd og smartere software. Men den virkelige forvandling handler ikke om funktioner.
Private Sub Nr_BeforeUpdate(Cancel As Integer) If DCount(\"*\", \"produkter\", \"varenummer = \" & Me!Nr & \"\" & \" AND Produktnr <> \" & Me!Pronr) > 0 Then MsgBox \"Posten findes i forvejen!\", vbCritical DoCmd.CancelEvent Exit Sub End If End Sub
Private Sub Nr_BeforeUpdate(Cancel As Integer) If DCount(\"*\", \"produkter\", \"varenummer = \" & Me!Nr & \" AND Produktnr <> \" & Me!Pronr) > 0 Then MsgBox \"Posten findes i forvejen!\", vbCritical DoCmd.CancelEvent Exit Sub End If End Sub
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.
