Add vbyes no code

[hkbhansali]

Hi,
I have a following code in my workbook
i want to add vbyesno code with

If rngFound Is Nothing Then
MsgBox "ID not Found, Want to Create?" vbyesno

Private Sub cmdfndnext_Click() 
    Dim strPrefix As String, strSuffix As String, strID As String 
    Dim rngFound As Range, rngstart As Range 
    Dim i As Long 
     
    strID = Trim(txtid.Text) 
     
    If cmdfndnext.Tag = "Next" Then 
        Rem incriment ID number 
        For i = Len(strID) To 1 Step -1 
            If Mid(strID, i, 1) Like "[!0-9]" Then 
                strPrefix = Left(strID, i) 
                strSuffix = Mid(strID, i + 1) 
                If i < Len(strID) Then 
                    strSuffix = Format(Val(strSuffix) + 1, String(Len(strSuffix), "0")) 
                End If 
               Exit For 
            End If 
        Next i 
        strID = strPrefix & strSuffix 
        txtid.Text = strID 
         
    End If 
     
    With Sheets("Life Member").Range("A:A") 
        On Error Resume Next 
        Set rngFound = .Find(txtid.Text, After:=.Cells(Rows.Count, 1), Lookat:=xlWhole, LookIn:=xlValues, MatchCase:=True) 
        On Error GoTo 0 
    End With 
     
    If rngFound Is Nothing Then 
        MsgBox "ID not Found" 
         
    Else 
        With rngFound.EntireRow 
                         
            txtname.Text = .Cells(1, 2).Text 
            txtremark.Text = .Cells(1, 3).Text 
            txtstatus.Text = .Cells(1, 4).Text 
            txtreceipt.Text = .Cells(1, 5).Text 
            txtyear.Text = .Cells(1, 6).Text 
             
 
        End With 
    End If 
     
    cmdfndnext.Tag = "Next" 
End Sub  

[6StringJazzer]

There is no point in adding vbYesNo unless you also capture the user's response.

Please Login or Register  to view this content.

Now you need to specify what you want to do if the user answers Yes, and what if they answer No.

Response will have the value vbYes or vbNo.

[hkbhansali]

Hi, 6StringJazzer,

I dont know how to coding your code.
can u do this
my answer is :

if rngFound Is Nothing Then
MsgBox "ID not Found, Want to create?" - vb yes

and vb no
Else
With rngFound.EntireRow

txtname.Text = .Cells(1, 2).Text
txtremark.Text = .Cells(1, 3).Text
txtstatus.Text = .Cells(1, 4).Text
txtreceipt.Text = .Cells(1, 5).Text
txtyear.Text = .Cells(1, 6).Text

[6StringJazzer]

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE]Please [url=https://www.excelforum.com/login.php]Login or Register [/url] to view this content.[/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here



(This thread should receive no further responses until this moderation request is fulfilled, as per Forum Rule 7)

[hkbhansali]

SORRY FOR BROKEN FOURM RULES..

here i submit new post:

Private Sub cmdfndnext_Click()
    Dim strPrefix As String, strSuffix As String, strID As String
    Dim rngFound As Range, rngstart As Range
    Dim i As Long
    
    strID = Trim(txtid.Text)
    
    If cmdfndnext.Tag = "Next" Then
        Rem incriment ID number
        For i = Len(strID) To 1 Step -1
            If Mid(strID, i, 1) Like "[!0-9]" Then
                strPrefix = Left(strID, i)
                strSuffix = Mid(strID, i + 1)
                If i < Len(strID) Then
                    strSuffix = Format(Val(strSuffix) + 1, String(Len(strSuffix), "0"))
                End If
               Exit For
            End If
        Next i
        strID = strPrefix & strSuffix
        txtid.Text = strID
        
    End If
    
    With Sheets("Life Member").Range("A:A")
        On Error Resume Next
        Set rngFound = .Find(txtid.Text, After:=.Cells(Rows.Count, 1), Lookat:=xlWhole, LookIn:=xlValues, MatchCase:=True)
        On Error GoTo 0
    End With
    
    If rngFound Is Nothing Then
        
    
    '"my Answer- vb yes"

        MsgBox "ID not Found!!, Want to CReate?"
        

        txtname.Enabled = True
        txtstatus.Enabled = True
        txtreceipt.Enabled = True
        txtyear.Enabled = True

    Else

    
    '"my answer- vb no" & exit sub


        With rngFound.EntireRow
            
            
            txtname.Text = .Cells(1, 2).Text
            txtstatus.Text = .Cells(1, 4).Text
            txtreceipt.Text = .Cells(1, 5).Text
            txtyear.Text = .Cells(1, 6).Text
            

        End With
    End If
    
    cmdfndnext.Tag = "Next"
End Sub  

[6StringJazzer]

In the future, please keep in mind that the correct way to address this is not to submit a new post but to edit the post that needs code tags.

Also I suggest you use CODE tags instead of PHP tags.

Your code does not use the example I posted. Is there something that is not clear about the example? The point is that you assign the result of the MsgBox function to a variable, then test that variable using your If statement to determine how the user answered.

[Richard Buttrey]

Unless I'm misunderstanding this you already have the an IF Then Else End If code bloc which the macro can process without any further input, so I'm not sure why you want a Message Box. What does this bring to the party?