Tjek specifik kolonne i flere tabeller for værdi

For et alfanumerisk felt kan du bruge flg.:

Dim a As String
a = Me.Felt1
If DCount("*", "Tabel1", "[Felt1] = 'a'") > 0 Then
MsgBox "Der er allerede poster med denne værdi."
Else
MsgBox "Der er ingen poster med denne værdi."
End If

Du er noed til at lave en separat DCount for hver tabel

overchord -> Enig, men det kan jo skrives sammen i een MsgBox, eller hvordan resultatet nu skal anvendes:

Dim a As Byte, b, c, d
a = Me.Felt2
b = DCount("*", "Tabel1", "[Felt2] =" & a)
c = DCount("*", "Tabel2", "[Felt2] =" & a)
d = DCount("*", "Tabel3", "[Felt2] =" & a)
MsgBox "Værdien " & a & "Forekommer i:" & vbNewLine & "Tabel1: " & b & vbNewLine & "Tabel2: " & c & vbNewLine & "Tabel3 :" & d

Make a query

SELECT *
FROM T1, T2, T3
WHERE T1.Fld1 = T2.Fld1 and T1.Fld1 = T3.Fld1;


Then you can use Dcount only once

If DCount("*", "YourQuery", " Fld1 = " & 'SomeValue') > 0 Then
msgbox "in all tables"

end if

Jeg brugte lidt en blanding af både dit mugs og terry's.
Så i får begge nogle point.

I skal have super mange tak for hjælpen, i har sparet mig en masse tid og hovedbrud.

I er simpelthen for fede, i er der altid til at hjælpe tosser som mig.

Super fedt....!!!