Compile Error..

[Nielinki]

Hi there (VBA beginner)
This happens when I try to run the Enter Payment button..
What am I doing wrong please?

Option Explicit

Sub Order_EnterPayment()
Dim PayType As String
Dim PmntType As String

If PmntType = "Cash" Then 'Cash
    PmntFrm.PayType.Value = "Cash"
    PmntFrm.Cash.BackColor = RGB(100, 43, 75) 
    PmntFrm.Card.BackColor = RGB(0, 0, 0)
Else 'Credit Card
    PmntFrm.PayType.Value = "Card"
    PmntFrm.Cash.BackColor = RGB(0, 0, 0) 
    PmntFrm.Card.BackColor = RGB(100, 43, 75)
End If

PmntFrm.PmntAmnt.Value = POS.Range("B13").Value
PmntFrm.Show
End Sub

Option Explicit
Dim BtnNumb As Long
Private Sub Button0_Click()
BtnNumb = 0
UpdatePmntAmnt BtnNumb
End Sub

Private Sub Button1_Click()
BtnNumb = 1
UpdatePmntAmnt BtnNumb
End Sub

Private Sub Button2_Click()
BtnNumb = 2
UpdatePmntAmnt BtnNumb
End Sub

Private Sub Button3_Click()
BtnNumb = 3
UpdatePmntAmnt BtnNumb
End Sub

Private Sub Button4_Click()
BtnNumb = 4
UpdatePmntAmnt BtnNumb
End Sub

Private Sub Button5_Click()
BtnNumb = 5
UpdatePmntAmnt BtnNumb
End Sub

Private Sub Button6_Click()
BtnNumb = 6
UpdatePmntAmnt BtnNumb
End Sub

Private Sub Button7_Click()
BtnNumb = 7
UpdatePmntAmnt BtnNumb
End Sub

Private Sub Button8_Click()
BtnNumb = 8
UpdatePmntAmnt BtnNumb
End Sub

Private Sub Button9_Click()
BtnNumb = 9
UpdatePmntAmnt BtnNumb
End Sub

Private Sub CancelBtn_Click()
Unload Me
End Sub

Private Sub Clear_Click()
Me.PmntAmnt.Value = "" 'Clear Payment
End Sub

Private Sub DecPoint_Click()
If InStr(Me.PmntAmnt.Value, ".") = 0 Then Me.PmntAmnt.Value = Me.PmntAmnt.Value & "."
End Sub

Sub UpdatePmntAmnt(BtnNumb As Long)
PmntFrm.PmntAmnt.Value = PmntFrm.PmntAmnt.Value & BtnNumb
End Sub

Public Sub Enter_Payment()
Dim PmntType As String
    PmntFrm.PmntAmnt.Value = POS.Range("B13").Value
    PmntFrm.Show
End Sub


Public Sub Card_Click()
Dim PayType As String
    PmntFrm.PayType.Value = "Card"
    PmntFrm.Cash.BackColor = RGB(0, 0, 0)
    PmntFrm.Card.BackColor = RGB(100, 43, 75)
End Sub

Public Sub Cash_Click()
Dim PayType As String
    PmntFrm.PayType.Value = "Cash"
    PmntFrm.Cash.BackColor = RGB(100, 43, 75)
    PmntFrm.Card.BackColor = RGB(0, 0, 0)
End Sub

Sub EnterPmntBtn_Click()
With PmntFrm
    If IsNumeric(.PmntAmnt.Value) = False Then
        MsgBox "Please make sure to enter a correct Payment Amount"
        .PmntAmnt.Value = ""
        .PmntAmnt.SetFocus
        Exit Sub
    End If
    If .PmntAmnt.Value < POS.Range("V27").Value Then
        If MsgBox("The Payment Amount is less than the total bill of " & POS.Range("V27").Value & vbCrLf & "Are you sure you want to proceed", vbYesNo, "Payment Amount Issue") = vbNo Then Exit Sub
    End If
    POS.Range("B12").Value = .PayType.Value 'Hidden Field on form
    POS.Range("B13").Value = .PmntAmnt.Value 'Set Payment Amount
    POS.Range("V28").Value = .PmntAmnt.Value 'Set TotalRange Payment Amount
    Unload PmntFrm
End With
End Sub

 

[MikeVol]

Hello @Nielinki.
This means that you don't have a textbox field named PayType on your form (PmntFRM). Add a textbox field named PayType to the form and set Visible = False in the properties of this object (PayType).

And you'll be happy.

 

[Nielinki]

Hello @Nielinki.
This means that you don't have a textbox field named PayType on your form (PmntFRM). Add a textbox field named PayType to the form and set Visible = False in the properties of this object (PayType).
View attachment 123044View attachment 123045
And you'll be happy.

Thank you for your reply
It shows Compile Error again but on the .Value part now?

 

[MikeVol]

You changed the code, return that code and it will work correctly. You added something again that was not in the original code!

 

[MARK858]

You can't have a Value of a String

Dim PayType As String

 

[MikeVol]

Option Explicit
Dim BtnNumb         As Long

Private Sub Button0_Click()
    BtnNumb = 0
    UpdatePmntAmnt BtnNumb
End Sub

Private Sub Button1_Click()
    BtnNumb = 1
    UpdatePmntAmnt BtnNumb
End Sub

Private Sub Button2_Click()
    BtnNumb = 2
    UpdatePmntAmnt BtnNumb
End Sub

Private Sub Button3_Click()
    BtnNumb = 3
    UpdatePmntAmnt BtnNumb
End Sub

Private Sub Button4_Click()
    BtnNumb = 4
    UpdatePmntAmnt BtnNumb
End Sub

Private Sub Button5_Click()
    BtnNumb = 5
    UpdatePmntAmnt BtnNumb
End Sub

Private Sub Button6_Click()
    BtnNumb = 6
    UpdatePmntAmnt BtnNumb
End Sub

Private Sub Button7_Click()
    BtnNumb = 7
    UpdatePmntAmnt BtnNumb
End Sub

Private Sub Button8_Click()
    BtnNumb = 8
    UpdatePmntAmnt BtnNumb
End Sub

Private Sub Button9_Click()
    BtnNumb = 9
    UpdatePmntAmnt BtnNumb
End Sub

Private Sub CancelBtn_Click()
    Unload Me
End Sub

' Clear Payment
Private Sub Clear_Click()
    Me.PmntAmnt.Value = ""
End Sub

Private Sub DecPoint_Click()
    Dim decSep      As String
    decSep = Application.DecimalSeparator

    If InStr(Me.PmntAmnt.Value, decSep) = 0 Then
        Me.PmntAmnt.Value = Me.PmntAmnt.Value & decSep
    End If

End Sub

Sub UpdatePmntAmnt(BtnNumb As Long)
    PmntFRM.PmntAmnt.Value = PmntFRM.PmntAmnt.Value & BtnNumb
End Sub

Public Sub Enter_Payment()
    Dim PmntType    As String
    PmntFRM.PmntAmnt.Value = POS.Range("B13").Value
    PmntFRM.Show
End Sub

Public Sub Card_Click()
    Dim PayType     As String
    PmntFRM.PayType.Value = "Card"
    PmntFRM.Cash.BackColor = RGB(0, 0, 0)
    PmntFRM.Card.BackColor = RGB(100, 43, 75)
End Sub

Public Sub Cash_Click()
    Dim PayType     As String
    PmntFRM.PayType.Value = "Cash"
    PmntFRM.Cash.BackColor = RGB(100, 43, 75)
    PmntFRM.Card.BackColor = RGB(0, 0, 0)
End Sub

Sub EnterPmntBtn_Click()
    Dim paymentAmount As Double

    Dim decSep      As String
    decSep = Application.DecimalSeparator

    With PmntFRM

        Dim inputValue As String
        inputValue = Replace(.PmntAmnt.Value, IIf(decSep = ",", ".", ","), decSep)

        If Not IsNumeric(inputValue) Then
            MsgBox "Please make sure to enter a correct Payment Amount", vbExclamation, "Invalid Input"
            .PmntAmnt.Value = ""
            .PmntAmnt.SetFocus
            Exit Sub
        End If

        paymentAmount = CDbl(inputValue)

        If paymentAmount < POS.Range("V27").Value Then

            If MsgBox("The Payment Amount is less than the total bill of " & POS.Range("V27").Value & vbCrLf & "Are you sure you want to proceed?", vbYesNo, "Payment Amount Issue") = vbNo Then
                Exit Sub
            End If

        End If

        POS.Range("B12").Value = .PayType.Value     ' Hidden Field on form
        POS.Range("B13").Value = paymentAmount      ' Set Payment Amount
        POS.Range("V28").Value = paymentAmount      ' Set TotalRange Payment Amount
        Unload PmntFRM
    End With

End Sub

And

Option Explicit

Sub Order_EnterPayment()
    Dim PayType     As String
    Dim PmntType    As String

    ' Cash
    If PmntType = "Cash" Then
        PmntFRM.PayType.Value = "Cash"
        PmntFRM.Cash.BackColor = RGB(100, 43, 75)
        PmntFRM.Card.BackColor = RGB(0, 0, 0)

        ' Credit Card
    Else
        PmntFRM.PayType.Value = "Card"
        PmntFRM.Cash.BackColor = RGB(0, 0, 0)
        PmntFRM.Card.BackColor = RGB(100, 43, 75)
    End If

    PmntFRM.PmntAmnt.Value = POS.Range("B13").Value
    PmntFRM.Show
End Sub

This code works for me without a single error. Yes, I made some minor changes, but still.

 

[MikeVol]

I am attaching a link to an example file.

 

[MARK858]

You can't have a Value of a String

Perhaps I should have said more accurately the value of a string is the string