Stuart McLachlan
stuart at lexacorp.com.pg
Wed Feb 25 05:01:47 CST 2009
Oops - add one line to this function "glngLanguage = Language" On 25 Feb 2009 at 20:55, Stuart McLachlan wrote: > Function SetLanguage(Language As Long) > Dim frm As Form > CurrentDb.Execute "Update uSysDefault Set Language = " & Language > 'update all open forms > For Each frm In Application.Forms > SetCaptions frm > Next > End Function > > -- > AccessD mailing list > AccessD at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/accessd > Website: http://www.databaseadvisors.com