Solved Display Current Record No & Bold this line or Numbers (1 Viewer)

[smtazulislam]

Hi once again,
In my database worked before display current record numbers. But today my daughter do something that now dont display.
Have attached demo database, Please check where have mistake ?
And also need bold this second line OR Current Record Numbers only.
If any color much better.

Thank you so much.

 

[moke123]

Assuming your talking about the msgbox, I'm not aware of anyway to bold text without using a custom msgbox.

You left out the arguments for Debug.print eval() thus the compile error.

you have the quotations in the wrong places in your message string.

Edit: I stand corrected. Apparently the MsgBold will do that. I'll have to experiment a bit before I can answer your question.

 

[smtazulislam]

I tried to Debug.Print Eval() but it came Error.

 

[moke123]

I tried to Debug.Print Eval() but it came Error.

I think you need to use eval to get it to work.

 

[smtazulislam]

If message box have some problem, I try second ways. Here showed, But I think I have to add something before .......... vbOKCancel, "Seccessful!")

 

[smtazulislam]

ID no is show now, I get it another ways.

But needs if any help BOLD second line

 

[Gasman]

What did we do before Google?

Bold MsgBox - Microsoft Access / VBA

Bold MsgBox. Microsoft Access / VBA Forums on Bytes.

bytes.com

 

[moke123]

oops forgot to hit post.

'm assuming you got this from this code. I'm not quite sure how this works.

Option Compare Database
Option Explicit

Public Function TestBoldMsgBox()

    Dim MsgBold As String
    Dim MsgNormal As String

    MsgBold = "This is a Bold Message"
    MsgNormal = "This is a  Normal Message"

    Debug.Print Eval("MsgBox ('" & MsgBold & vbNewLine _
    & "@" & MsgNormal & "@@', " & vbOKOnly & ", 'Testing Bold')")

End Function

 

[moke123]

ID no is show now, I get it another ways.

But needs if any help BOLD second line

according to the post you can only bold the first line.

 

[smtazulislam]

Gasman & Moke thanks for your reply. I try it before, But when I put Debug.Print Eval (...................)
There is my code like that

Private Sub Command4_Click()
    Dim VarID As String
    Dim MsgBold As String
   
    Dim ShipmentData As Integer
    Dim Response As Integer
   
    'ID Numbers value
    VarID = Me.ID.Value
   
   
If IsNull(Me.Date) Then 'Date
    MsgBox "Please enter the shipment date", vbInformation, "Date Required"
    Me.Date.SetFocus
   
Else
    If ShipmentData = 1 Then
    Else
    Debug.Print
   
    'Record Msg
    Response = MsgBox("Your data has been saved successfully." & vbCrLf & _
    "Your current record numbers is " & VarID & "", vbOKCancel, "Seccessful!")
           
        If Response = vbOK Then
           DoCmd.GoToRecord , , acNewRec
           Me.Date.SetFocus
        Else
    End If
    End If
End If

End Sub

If I put Eval(), not work, I dont know why
Can add here BOLD code please

 

[Gasman]

Just discovered this (again via Google) that uses a class. Pretty neat. Albeit in an Excel workbook, but.......
Post #3

Formatting text in messagebox excel Vba

I am new to Excel VBA and have written Vba code to loop through cells and get their values.After that do some processing and if it matches a certain criteria append them to a list with line break. Do

stackoverflow.com

 

[moke123]

Smt,
The procedure your attempting to use is not native to vba and thus the need to use eval for it to function.
I would suggest you google custom msgboxes. There are a number of them out there and they are usually somewhat easy to incorporate into a DB.

 

[isladogs]

Have a look at my article about the FormattedMsgBox function

Formatted Message Box - Mendip Data Systems

Database applications for businesses, schools and individuals

www.mendipdatasystems.co.uk

This uses the above Eval code but makes it much easier to apply in your apps.

Or, if you want to go even further, either create your own custom form or use the EnhancedMsgBox by cypris

MS Access: Enhanced Message Box Replacement – Cypris' lookout

 

[smtazulislam]

This should help:

Thanks for reply. I have many example. But problem this criteria (=) after not work. And I dont know why, check my DB here also Eval () not work.

Response = MsgBox("Your data has been saved successfully." & vbCrLf & _
    "Your current record numbers is " & VarID & "", vbOKCancel, "Seccessful!")

It is work without criteria (=) or normal messaged.

 

[isladogs]

@smtazulislam
Did you look at the two links I provided in post #13? If so, were either of them useful?

 

[smtazulislam]

@smtazulislam
Did you look at the two links I provided in post #13? If so, were either of them useful?

Thanks @isladogs for your reply. I see your two example is nice, but I can't solve my problem what I suffering. I apologies, Normally it's work. When I deploying conditional as "msg no 15" then it is not work. even Eval () also not work. what happened I don't know. I spent 7 hours for this, many ways I tried, but result is zero....

 

[Gasman]

IMHO option in #7 which has been mentioned several times is the simplest.?
Just change the order of the lines so that the required line is the first and bold.? Is it worth all this time being wasted not to do that.?

Alternatively the method in post 11 allows you to produce pretty much anything by the looks of it as shown below.
Then there the other methods?

I can be stubborn at times myself, but even I would realise I am wasting valuable development time over such a small issue?

 

[smtazulislam]

IMHO option in #7 which has been mentioned several times is the simplest.?
Just change the order of the lines so that the required line is the first and bold.? Is it worth all this time being wasted not to do that.?

Alternatively the method in post 11 allows you to produce pretty much anything by the looks of it as shown below.
Then there the other methods?

I can be stubborn at times myself, but even I would realise I am wasting valuable development time over such a small issue?

View attachment 84048

Thanks for take times to reply. Please read again my Post msg 15, I tried it, but it is after "Response = MsgBox(".......................") not work. Please once you try and give me feedback where are my fault/missing. I think I should change this line Response = MsgBox (".........")

Response (variable) = msgBox _
msgbox as follow any method in this thread discuses.

And Debug.Print eval() also not work. All happened with me I dont know why ?
By way, If you have any way know to separate this two line.
1. MsgBox
2. Response (Variable)
I think this ways can possible to solve this issue

 

[Gasman]

I would use the example from post 7, and create your bold message and normal message (same names if need be) and just copy and paste.

TBH I am at a loss as to why you cannot get it to work?

The picture shows my using it in the immediate window?
I have also added a iResponse and debug.print of it after it is populated and the result is in the second picture.

 

[smtazulislam]

I would use the example from post 7, and create your bold message and normal message (same names if need be) and just copy and paste.

TBH I am at a loss as to why you cannot get it to work?

The picture shows my using it in the immediate window?
I have also added a iResponse and debug.print of it after it is populated and the result is in the second picture.

Thank you so much. I appreciate for it. Excellent !
You see I confused about this Response(variable), Now separate and work properly .
Thanks once again.