I have the following codes I want to change the font size of those messages, is this possible? please can you help how to do it, iam using access 2003 thanks I really appreciate for any help Denver Dim response As String Dim Mynote As String 'Prompt SLSA Engineering MessageBox Mynote = "Close MainSwitchBoard?" 'Display Message Box response = MsgBox(Mynote, vbYesNo + vbQuestion, "SLSA Engineering Database") If response = vbNo Then 'Remain Database open. DoCmd.CancelEvent Else 'Engineering Database prompt MessageBox confirmation. response = MsgBox("SLSA Engineering Database will be asking your password after " & _ "closing the MainSwitchBoard if you try to open again." & _ vbCrLf & "You can not view any menu in the Database " & _ "if you click OK", vbOKCancel + vbExclamation, "Engineering Database") If response = vbCancel Then 'Remain Database Open. DoCmd.CancelEvent Else 'Close SwitchBoard DoCmd.Close End If End If
"Denver" wrote: > I have the following codes > I want to change the font size of those messages, is this possible? > please can you help how to do it, iam using access 2003 This is a Word VBA group, not an Access one... In any case, I am no Access expert, but I do believe that if you use the MsgBox function there si nothing you can do regarding the display attributes. It would be easier if you created your own userform from within Access and then call it (through a function) when needed and passing the text you want as a string parameter in the function.
thanks anyway for your time.. "Jean-Guy Marcil" wrote: > "Denver" wrote: > > > I have the following codes > > I want to change the font size of those messages, is this possible? > > please can you help how to do it, iam using access 2003 > > This is a Word VBA group, not an Access one... > > In any case, I am no Access expert, but I do believe that if you use the > MsgBox function there si nothing you can do regarding the display attributes. > > It would be easier if you created your own userform from within Access and > then call it (through a function) when needed and passing the text you want > as a string parameter in the function.
