Avatar billede hnto Nybegynder
04. april 2005 - 12:04 Der er 4 kommentarer og
1 løsning

søg efter dubletter inden oprettelse foretages

Jeg har en tabel i Access hvor der er 3 kolonner
[kundnr], [kundenamn] og [ID].

[kundnr] er indexeret til uden dubletter.
[ID] fungerer som autonummer.
[kundnamn] fungerer kun som infofelt.

formålet er at man i en form skal kunne indtaste et kundnr for efterfølgende at få udtrukket et ID til kundnr.

Dette virker også fint, men jeg mangler en lille feature der sikrer at hvis man indtaster et kontonummer som allerede eksisterer i tabellen får at vide at værdien allerede eksisterer og derfor ikke vil blive oprettet.

Jeg vil derfor gerne have et lille VBA script der efter indtastning tjekker om den indtastede værdi findes i kolonnen inden der udtrækkes et ID.

Den eksisterende kode er her vist på funktionsknappen som anvendes, og som det ses kommer der kun en lille msgbox der angiver at man ikke kan udtrække et ID uden at have udfyldt 2 felter..

Private Sub Command0_Click()
If Me.Kundnr.Value <> "" And Me.Kundnamn.Value <> "" Then
ID.Visible = True
Else
MsgBox "Du skal udfylde alle felter inden nummeret kan genereres"
ID.Visible = False
End If
End Sub


HURTIG HJÆLP ØNSKES....!!!!!!
04. april 2005 - 12:10 #1
Hvad med denne:

If Me.Kundnr.Value <> "" And Me.Kundnamn.Value <> "" Then
    If dcount("*", "tblKunder", "Kundnr = " & Me!Kundnr) > 0 then
        msgbox "Der findes allerede en kunde med nummeret " & Me!Kundnr & "!", vbcritical, "Ugyldigt kundenr")
    else
        ID.Visible = True
    endif
Else
    MsgBox "Du skal udfylde alle felter inden nummeret kan genereres"
    ID.Visible = False
End If
Avatar billede hnto Nybegynder
04. april 2005 - 14:56 #2
Mit felt kundnr er formatteret som tekst idet der er numre der starter med 0
Grundet dette fejler dit lille cript ;-(

Hvordan løses dette ?
04. april 2005 - 14:59 #3
Såre simpelt, min ven :o)

If Me!Kundnr<> "" And Me!Kundnamn<> "" Then
    If dcount("*", "tblKunder", "Kundnr = '" & Me!Kundnr & "'") > 0 then
        msgbox "Der findes allerede en kunde med nummeret " & Me!Kundnr & "!", vbcritical, "Ugyldigt kundenr")
    else
        ID.Visible = True
    endif
Else
    MsgBox "Du skal udfylde alle felter inden nummeret kan genereres"
    ID.Visible = False
End If
Avatar billede hnto Nybegynder
04. april 2005 - 15:04 #4
ja det var da enkelt...

Jeg takker
04. april 2005 - 15:05 #5
Det gør jeg også :)
Avatar billede Ny bruger Nybegynder

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.

Loading billede Opret Preview
Kategori
Dyk ned i databasernes verden på et af vores praksisnære Access-kurser

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester