usando la funcion eval , la llamada ira a travas del expression service que hace de interfaz con access y jet para ejecutar la funcion msgbox , y hara la llamada a la version de access en lugar de la version vba. asia que puedes a?adir la siguiente a tu base de datos access y llamarla en lugar de la version vba del msgbox para tener la funcionalidad ofrecida en office 97: function formattedmsgbox( _ prompt as string, _ optional buttons as vbmsgboxstyle = vbokonly, _ optional title as string = vbnullstring, _ optional helpfile as variant, _ optional context as variant) _ as vbmsgboxresult if ismissing(helpfile) or ismissing(context) then formattedmsgbox = eval( msgbox( & prompt & _ |
