title image


Smiley Er sollte uns schon sagen, ob er den Designer hat....
ansosnten sieht das Script im Queryopen so aus:



Set uidoc = Source

Set doc = Source.document

If uidoc.isNewDoc Then

'don' t do anything, as this is a new document

Else

RR = doc.GetItemValue("ReturnReceipt")

If RR(0) = "1" Then

boxType& = MB_YESNO

answer% = Messagebox (" Empfangsbestätigung ?" + Chr(13) + " >>>> So nicht, nicht mit uns !!!", boxType&, "Empfangsbestätigung versenden?")

If answer% = 7 Then

doc.ReturnReceipt="0"

Call doc.Save(True, False)

End If

End If

End If



Die ersten beiden Zeilen des oben geposteten Scripts sind standardmäßig Bestandteile des Queryopen. Auch die Reiehnfolge ist wichtig. Erst das Script und dann die Standardzeilen.



Gruß

FPN60

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: