- Code : Tout sélectionner
Sub deleteField(wDoc As NotesDocument, wChamp As String, wnbSave As Integer)
On Erreur Goto ErreurHandle
If wDoc Is Nothing Then
Error 9999,"wDoc is nothing"
Exit Sub
End If
If Trim(wChamp) = "" Then
Error 9999,"wChamp is empty"
Exit Sub
End If
If wDoc.HasItem(Trim(wChamp)) = True Then
Call wDoc.RemoveItem(Trim(wChamp))
If wnbSave = True Then
Call wDoc.Save(True,False)
End If
End If
Exit Sub
ErreurHandle:
Msgbox "("+Cstr(Getthreadinfo (1))+" Call by "+Cstr(Getthreadinfo(10))+")"+Chr(10)+"Erreur N° " + Str(Err) + " : "+Chr(10) + Cstr(Error)+". "+Chr(10)+"Ligne N° "+Cstr(Erl),16," ERREUR !"
Exit Sub
End Sub
en @formule ça donne ça
- Code : Tout sélectionner
field MonChamp := @DeleteField