title image


Smiley Re: Bereits probiert...
Grundsätzlich:

Private Sub Vergleich_Click()

If Me!Behandlungsteam.Form![cboTherapeut] Me!Leistung.Form![cboTherapeut] then

MsgBox ("Nicht gleicher Inhalt!")

End If

End Sub



Ein Problem könnte sein, daß in einer der beiden (oder in beiden) Komboboxen nix drinsteht, dh. ihr Wert NULL ist. Dann funktioniert ein Vergleich nicht und man müßte sowas machen:

Private Sub Vergleich_Click()

if isNull(Me!Behandlungsteam.Form![cboTherapeut]) then

Msgbox "Wert des Kombo im Subform Behandlungsteam ist nicht definiert"

else

if isNull(Me!Leistung.Form![cboTherapeut]) then

Msgbox "Wert des Kombo im Subform Leistung ist nicht definiert"

else

If Me!Behandlungsteam.Form![cboTherapeut] Me!Leistung.Form![cboTherapeut] then

MsgBox ("Nicht gleicher Inhalt!")

End If

End if

End if

End Sub



Gruß

Robert







geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: