title image


Smiley Re: Zugriff auf ein Unterformular
Hallo Lisa,



Sorry hatte gerade Besuch



hier Dein Code:



Private Sub artikel_Click()





If Forms![kasse]![UF]![artikelnrn] > 4 Then



MsgBox "Bitte Eingabe Überprüfen"



Else

'Dein Druckaufruf



MsgBox "Drucken"



End If



End Sub





Besser wäre bei Vor Aktualisierung im Textfeld "Artikelnrn" diese ein zu tragen:

(Vorteil man kann in kein anderes Feld wechseln ehe die Falsche eingabe

berichtigt wurde)





Private Sub Artikelnrn_BeforeUpdate(Cancel As Integer)



If Forms![kasse]![UF]![Artikelnrn] > 4 Then

'Dein Druckaufruf

MsgBox "Bitte Eingabe Überprüfen"



Cancel = True



Else



MsgBox "Drucken"



End If

End Sub

















Grüß aus Unterfranken
Dieter

Hilfreiche Links:
DONKARL
KNOWHOW.mdb
PS: Brauche meine Access, W2K-Server e-books (Kompendium usw.) nicht mehr bei Interesse Bitte per mail melden.



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: