VB.NET-Quellcode
- Me.txtArtikelnummer = Me.ListBox_Warenkorb.Column(1)
- Dim test As Integer
- If DCount("*", "[dbo_ArtikelZubehoer]", "[Zubehoernummer] = [Formulare]![FRM_Bestellwesen]![txtArtikelnummer]") > 0 Then
- DoCmd.OpenForm "FRM_BestellwesenPreisänderung"
- Else
- End If
- test = DCount("[ZubehoerID]", "dbo_ArtikelZubehoer", "[Zubehoernummer]=[Formulare]![FRM_Bestellwesen]![txtArtikelnummer]")
- If Not IsNull(test) Then
- MsgBox "geht"
- Else
- MsgBox "nicht"
- End If
- End Sub
Ich bekomme immer den Wert 0 zurück, egal was ich mache.