User form for customer entry

[kamranyd]

I have these codes which work fine for copying customer info to database, but i need it copy only customer name to database nothing else.

Private Sub SaveBtn_Click()
Dim CustomerFld As Control
Dim CustRow As Long, CustCol As Long
If Me.Field1.Value = Empty Then
    MsgBox "Please make sure to save a Customer Name before saving", vbCritical
    Exit Sub
End If
With Customers
    If Invoice.Range("B1").Value = Empty Then 'New Customer
        CustRow = .Range("A99999").End(xlUp).Row + 1 'First avail Row
    Else
        CustRow = Invoice.Range("B3").Value
    End If
    For CustCol = 2 To 8
        Set CustomerFld = Me.Controls("Field" & CustCol - 1)
            .Cells(CustRow, CustCol).Value = CustomerFld.Value
    Next CustCol
    AddCustForm.Hide
    Invoice.Range("B1").Value = Field1.Value 'Set Customer Name
End With
End Sub

 

[Artik]

Probably

Private Sub SaveBtn_Click()
    Dim CustRow As Long
    
    If Me.Field1.Value = Empty Then
        MsgBox "Please make sure to save a Customer Name before saving", vbCritical
        Exit Sub
    End If
    
    With Customers
        If IsEmpty(Invoice.Range("B1").Value) Then    'New Customer
            CustRow = .Cells(.Rows.Count, "A").End(xlUp).Row + 1   'First avail Row
        Else
            CustRow = Invoice.Range("B3").Value
        End If
        
        .Cells(CustRow, "B").Value = Me.Field1.Value
    End With
        
        AddCustForm.Hide
        Invoice.Range("B1").Value = Field1.Value    'Set Customer Name
End Sub

Artik

 

[kamranyd]

Probably

Private Sub SaveBtn_Click()
    Dim CustRow As Long
   
    If Me.Field1.Value = Empty Then
        MsgBox "Please make sure to save a Customer Name before saving", vbCritical
        Exit Sub
    End If
   
    With Customers
        If IsEmpty(Invoice.Range("B1").Value) Then    'New Customer
            CustRow = .Cells(.Rows.Count, "A").End(xlUp).Row + 1   'First avail Row
        Else
            CustRow = Invoice.Range("B3").Value
        End If
       
        .Cells(CustRow, "B").Value = Me.Field1.Value
    End With
       
        AddCustForm.Hide
        Invoice.Range("B1").Value = Field1.Value    'Set Customer Name
End Sub

Artik

thnx artik, now i merge my cell B1 with C1 now it give me error like run time error 424 "object required". may be because i merge cell is there any solution to that other unmerge cell