<?xml version="1.0" encoding="UTF-8" ?>
<?xml-stylesheet type="text/xsl" href="http://forums.blackbaud.com/utility/FeedStylesheets/rss.xsl" media="screen"?><rss version="2.0" xmlns:dc="http://purl.org/dc/elements/1.1/" xmlns:slash="http://purl.org/rss/1.0/modules/slash/" xmlns:wfw="http://wellformedweb.org/CommentAPI/"><channel><title>VBA/API</title><link>http://forums.blackbaud.com/forums/20.aspx</link><description /><dc:language>en</dc:language><generator>CommunityServer 2007 SP2 (Debug Build: 20611.960)</generator><item><title>Re: Sample code for Edit and Save</title><link>http://forums.blackbaud.com/forums/thread/39646.aspx</link><pubDate>Fri, 20 Feb 2009 12:02:11 GMT</pubDate><guid isPermaLink="false">f90a95a0-00e2-4810-8af8-0bbdde08f853:39646</guid><dc:creator>Garrett Keating</dc:creator><slash:comments>0</slash:comments><comments>http://forums.blackbaud.com/forums/thread/39646.aspx</comments><wfw:commentRss>http://forums.blackbaud.com/forums/commentrss.aspx?SectionID=20&amp;PostID=39646</wfw:commentRss><description>this is for an ADD
you&amp;#39;ll be able to use something like rec.load(id, false) to load up and then make your changes and then save


 Dim Rec As New CRecord
            Rec.Init(RE7.SessionContext)
            Rec.Fields(ERECORDSFields.RECORDS_fld_FIRST_NAME) = firstName
            Rec.Fields(ERECORDSFields.RECORDS_fld_LAST_NAME) = lastName
            Rec.Fields(ERECORDSFields.RECORDS_fld_GENDER) = &amp;quot;Unknown&amp;quot;
            Rec.Fields(ERECORDSFields.RECORDS_fld_KEY_INDICATOR) = &amp;quot;I&amp;quot;
            Try
                Rec.Save()
                Return Rec.Fields(ERECORDSFields.RECORDS_fld_CONSTITUENT_ID)
            Catch ex As Exception
                SendError(&amp;quot;ERROR: webservice: addIndividual &amp;quot; &amp;amp; Now(), errorEmail, ex.ToString, True)
            Finally
                &amp;#39; Always clean up even after a failed save
                Rec.CloseDown()
                &amp;#39; The deterministic way to clean up a COM object (Like setting = Nothing in VB6)
                System.Runtime.InteropServices.Marshal.ReleaseComObject(Rec)
                System.Runtime.InteropServices.Marshal.ReleaseComObject(RE7)
            End Try</description></item><item><title>Sample code for Edit and Save</title><link>http://forums.blackbaud.com/forums/thread/39645.aspx</link><pubDate>Fri, 20 Feb 2009 11:19:34 GMT</pubDate><guid isPermaLink="false">f90a95a0-00e2-4810-8af8-0bbdde08f853:39645</guid><dc:creator>Mark Whiting</dc:creator><slash:comments>0</slash:comments><comments>http://forums.blackbaud.com/forums/thread/39645.aspx</comments><wfw:commentRss>http://forums.blackbaud.com/forums/commentrss.aspx?SectionID=20&amp;PostID=39645</wfw:commentRss><description>&lt;p&gt;Hi,&lt;/p&gt;
&lt;p&gt;Can anyone provide me sample API code for editing&amp;nbsp;and saving a&amp;nbsp;Constituent record, please?&lt;/p&gt;
&lt;p&gt;Thanks in advance&lt;/p&gt;
&lt;p&gt;V&amp;nbsp;&lt;/p&gt;
&lt;p&gt;&amp;nbsp;&lt;/p&gt;
&lt;p&gt;&amp;nbsp;&lt;/p&gt;</description></item></channel></rss>