02. december 2004 - 14:49Der er
6 kommentarer og 1 løsning
Hjaelp til errorhandling
Jeg er ved at lave errorhandling paa input i en formular til min database. Jeg vil gerne kontrollere inputtet i den foerste textbox area_box (primaernoelge i DB) for om det er NULL, " ", eller der er duplikerede data i DB - jeg har kort sagt 3 problemer pt: 1. Til den foerste del har jeg forsoegt med area_box.value/area_box.text = NULL/" "/"" - og Len(area_box.text) = 0, men kan ikke det til at virke. 2. Med det andet skal jeg vel have sat en string = mit SELECT SQL udstryk eller lignende, men kan ikke helt hitte ud af syntaxen. 3. Naar jeg vil nulstille textboxen efter at have indsat data i DB, saa den er klar til nye input, er de eneste loesning jeg har fundet der virker:
area_box.SetFocus area_box.value = " " SendKeys "{BS}", 1 '(ellers starter naeste input jo med mellemrum)
osv. med de resterende bokse.
....men er der ikke en mere elegant metode - denne metode giver ogsaa problemer naar man har givet nogle af felterne on enter/change properties.
For at kontrollere om der er dublerede poster i et felt, kan du f.eks benytte DCount:
Dim VARa As Long If Me.NewRecord Then VARa = Me.FELTNAVN If DCount("*", "TABELNAVN", "[FELTNAVN] =" & VARa) > 0 Then MsgBox "Der er allerede poster med denne værdi." Me.Undo Exit Sub End If End If
Når det drejer sig om alfanumeriske felter, skal du have '' omkring. Hvis du lægger din e-mail, kan jeg sende dig en lille db der omhandler funktionen DCount.
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.