To comment on the following update, log in, then open the issue:
http://www.openoffice.org/issues/show_bug.cgi?id=51512





------- Additional comments from [EMAIL PROTECTED] Mon Jul  4 04:42:37 -0700 
2005 -------
Please, assign this macro to the "Before record change" as well as to the "After
record change" event of any (insert-enabled) form with a field named "Author"
eg. the builtin "bibliography".
This is a simplified version of a macro, I use for rapid insert of rows with
similar values (eg. receipts sorted by date, category and source).
If you fill all required fields with a macro like this, the row becomes
unwritable because it claims to be not modified unless you change it manually.
------------
REM BASIC
global sAuthor$
sub AUTOINSERT_cursorMoved(oEv)
with oEv.Source
        ' we ignore the call of the form's controller here
        if (.ImplementationName = "com.sun.star.comp.forms.ODatabaseForm") then
                if .IsNew then
                        .getColumns.getByName("Author").Value = sAuthor
                        print "Editing the Author-Column makes me modified? "; 
.IsModified
                        .IsModified = not .IsModified
                        print "Contrary to the API-docs I can change my 
modified-status to: ";
.isModified
                        .IsModified = true
                        print "OK, I'd like to be modified. While running this 
macro I am modified:
"; .IsModified
                else
                        '.ismodified = true 'crash OOo
                        sAuthor = .getColumns.getByName("Author").Value
                end if
        end if
end with
End Sub
-------------

---------------------------------------------------------------------
Please do not reply to this automatically generated notification from
Issue Tracker. Please log onto the website and enter your comments.
http://qa.openoffice.org/issue_handling/project_issues.html#notification

---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]


---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Reply via email to