「StartDate」をGetすれば良いのでは? -------------------------------------------------------------- Sub Querysave(Source As Notesuidocument, Continue As Variant) sdate = Source.FieldGetText("StartDate") Call Source.FieldSetText("wdate", Cstr(sdate)) End Sub --------------------------------------------------------------