Excel Vba：循环用户窗体控件以计数和识别空文本框

Question

I might not express the problem as I should but pls bare with me, here it goes

I'm trying to create a user data entry form to capture services per patient and save entry to my spreadsheet (database)

The patient details gets populated automatically without user entry (prior to a pre-entry form, created in the app)

In the database, There's a single column to capture every service entered

So I decided that when a user enters multiple services and clicks on save

The spreadsheet (database) will capture the patient details per every service

That is, on one row .... there will be patient detail and then a single service

On the second row... the details will repeat but the service will be changed based on the second service provided by the user

And so on

Problem

(I don't know how to loop through the empty textboxes to identify the number of rows patient details will be repeated when user clicks save.

If I get that, then I'll work my way to populate the services by each count of rows)

Here's the code:

Ps: returned an error on "for each ccont In Me.Controls"

Private Sub Save_Click()



Dim zh As Worksheet

Dim LaastRow As Long

Dim x As Integer

Dim ccont As Controls

Dim y As Long



Set zh = ThisWorkbook.Sheets("PublicDatabase")

LaastRow = [Counta(PublicDatabase!A:A)] + 1



For Each ccont In Me.Controls

If Me.txt_QtyAccomodation.Value = "" Or _

Me.txt_QtyConsultation.Value = "" Or _

Me.txt_QtyHaematology.Value = "" Or _

Me.txt_QtyAccomodation.Value = "" Or _

Me.txt_QtyHistopathology.Value = "" Or _

Me.txt_QtyNursingcare.Value = "" Or _

Me.txt_QtyOthers1.Value = "" Or _

Me.txt_QtyOthers2.Value = "" Or _

Me.txt_QtyMicrobiology.Value = "" Or _

Me.txt_QtyReviews.Value = "" Then

Exit For



Else



y = y + 1



End If



For x = 1 To LaastRow + y



With zh

.Cells(LaastRow, 1) = LaastRow - 1

.Cells(LaastRow, 2) = "DEFENCE HEALTH MAINTENANCE LTD (PUBLIC)"

.Cells(LaastRow, 3) = PubDefense.Txt_NameOfpDEFENSE.Value

.Cells(LaastRow, 4) = "Nil"

.Cells(LaastRow, 5) = PubDefense.Txt_RefferrinProviderDefense.Value

.Cells(LaastRow, 6) = PubDefense.Txt_NHISNoDefense.Value

.Cells(LaastRow, 7) = PubDefense.Txt_AuthorizCodeDefense.Value

.Cells(LaastRow, 8) = PubDefense.txt_HmoCodeDefense.Value

.Cells(LaastRow, 9) = PubDefense.Txt_DateOftreatmentDefense.Value

.Cells(LaastRow, 10) = PubDefense.Txt_DateOFadmDefense.Value

.Cells(LaastRow, 11) = PubDefense.Txt_DateOFdisDefense.Value

.Cells(LaastRow, 12) = "Nil"

.Cells(LaastRow, 13) = "Nil"

.Cells(LaastRow, 14) = "Nil"

.Cells(LaastRow, 15) = "Nil"

.Cells(LaastRow, 16) = "Nil"

.Cells(LaastRow, 17) = PubDefense.Txt_DiagnosisDefense.Value

.Cells(LaastRow, 18) = PubDefense.Txt_PatAddressDEfense.Value



End With



Next x

Next ccont



MsgBox "entered"



End Sub

Answer 1

Loop through an array of the text box names checking values that are not empty.

Private Sub CommandButton1_Click()

    Dim dept
    Dim zh As Worksheet, LastRow As Long, i As Long
    
    Set zh = ThisWorkbook.Sheets("PublicDatabase")
    LastRow = zh.Cells(Rows.Count, "A").End(xlUp).Row + 1
    
    dept = Array("Accomodation", "Consultation", "Haematology", _
        "Histopathology", "Nursingcare", "Others1", _
        "Others2", "Microbiology", "Reviews")
        
    Dim ccont As Control
    For i = 0 To UBound(dept)
        Set ccont = Me.Controls("Txt_Qty" & dept(i))
        If ccont.Value <> "" Then
            zh.Cells(LastRow, 1).Resize(, 18) = PatientDetails(LastRow)
            LastRow = LastRow + 1
        End If
    Next
    MsgBox "Entered", vbInformation
End Sub

Private Function PatientDetails(n As Long) As Variant
    Dim ar(1 To 1, 1 To 18)
    'With PubDefense
        ar(1, 1) = n - 1
        ar(1, 2) = "DEFENCE HEALTH MAINTENANCE LTD (PUBLIC)"
        ar(1, 3) = ".Txt_NameOfpDEFENSE.Value
        ar(1, 4) = "Nil"
        ar(1, 5) = .Txt_RefferrinProviderDefense.Value
        ar(1, 6) = .Txt_NHISNoDefense.Value
        ar(1, 7) = .Txt_AuthorizCodeDefense.Value
        ar(1, 8) = .Txt_HmoCodeDefense.Value
        ar(1, 9) = .Txt_DateOftreatmentDefense.Value
        ar(1, 10) = .Txt_DateOFadmDefense.Value
        ar(1, 11) = .Txt_DateOFdisDefense.Value
        ar(1, 12) = "Nil"
        ar(1, 13) = "Nil"
        ar(1, 14) = "Nil"
        ar(1, 15) = "Nil"
        ar(1, 16) = "Nil"
        ar(1, 17) = .Txt_DiagnosisDefense.Value
        ar(1, 18) = .Txt_PatAddressDEfense.Value
    End With
    PatientDetails = ar
End Function