title image


Smiley Ereignis: after update Was KLEMMT hier ?
Hallo!



Komme mal wieder nicht drauf, wo das nachträgliche "Osterei" vergraben ist.



Beispiel 1 - funktioniert.



ArtikelNr 1 (Bonbons rot) kosten 1,20 € wird vom ungebundenen Kombifeld

Artikel an das Feld nebenan im Formular Einzelpreis korrekt after update

weitergegeben.



Private Sub ArtikelNr_AfterUpdate()

On Error GoTo Err_ArtikelNr_AfterUpdate



Dim strFilter As String



' Filter auswerten, bevor er an die Funktion "DLookup" weitergegeben wird.

strFilter = "[ArtikelNr] = " & Me!ArtikelNr



' Einzelpreis des Artikels nachschlagen und dem Steuerelement

' "Einzelpreis" zuweisen.

Me!Einzelpreis = DLookup("Einzelpreis", "TAB_Artikelstamm", strFilter)



Exit_ArtikelNr_AfterUpdate:

Exit Sub



Err_ArtikelNr_AfterUpdate:

MsgBox Err.Description

Resume Exit_ArtikelNr_AfterUpdate





End Sub



***********************



Hier bei Beispiel 2 klappt das nicht !! ???

Die Zeile mit dem * davor ist gelb.



Private Sub Artikelsuchen_AfterUpdate()



Dim strFilter As String



' Filter auswerten, bevor er an die Funktion "DLookup" weitergegeben wird.

strFilter = "[ART_ID] = " & Me!ART_ID



' Einzelpreis des Artikels nachschlagen und dem Steuerelement

' "Einzelpreis" zuweisen.

* Me!ART_Verkaufspreis_W = DLookup("ART_Verkaufspreis_W", "TAB_Artikelstamm", strFilter)



Exit_ArtikelNr_AfterUpdate:

Exit Sub



Err_ArtikelNr_AfterUpdate:

MsgBox Err.Description

Resume Exit_ArtikelNr_AfterUpdate





End Sub



**************************



Frage, welche Felder, Feldnamen usw. muß wo genau passen (FRM, ABF)

Irgendwas an der Benamsung gefällt ihm nicht.



Besten Dank !



Grüße



P.B.

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: