Question

我对VBA来说还比较陌生，已经迷路了，几乎可以实现我打算生产的系统。

我现在已经到达一堵砖墙，并且一直朝着它砸了一段时间，非常感谢我的范例（我只能确定是托姆）的帮助！

因此，我能够搜索记录并从中填充用户表格，我想做的是，单击该用户表格上的更新按钮时，通过相同的表格更新找到的记录。

Private Sub btsearch_Click()
Dim totrows As Long
totrows = Worksheets("Report").Range("A1").CurrentRegion.Rows.Count
If Txtforename.Text = "" Then
MsgBox "Please enter guest name!!"
End If

For i = 2 To totrows
If Trim(Report.Cells(i, 1)) <> Trim(Txtforename.Text) And i = totrows Then
MsgBox "Guest Not Found"
End If
If Trim(Report.Cells(i, 1)) = Trim(Txtforename.Text) Then
Txtforename.Text = Report.Cells(i, 1)
Txtsurename.Text = Report.Cells(i, 2)
Cboidtype.Text = Report.Cells(i, 3)
txtidnumber.Text = Report.Cells(i, 4)
Cboroomno.Text = Report.Cells(i, 5)
txtcheckin.Text = Report.Cells(i, 6)
txtcheckout.Text = Report.Cells(i, 7)
Cbopaymenttype.Text = Report.Cells(i, 9)
Txttotalpayment.Text = Report.Cells(i, 10)
cmbouser.Text = Report.Cells(i, 11)
Exit For
End If
Next i

End Sub

Private Sub btnupdate_Click()

answer = MsgBox("Would you like to update guest details?", vbYesNo + 
vbQuestion, "Update Record")
If answer = vbYes Then
Cells(currentrow, 1) = Txtforename.Text
Cells(currentrow, 2) = Txtsurename.Text
Cells(currentrow, 3) = Cboidtype.Text
Cells(currentrow, 4) = txtidnumber.Text
Cells(currentrow, 5) = Cboroomno.Text
Cells(currentrow, 6) = txtcheckin.Text
Cells(currentrow, 7) = txtcheckout.Text
Cells(currentrow, 9) = Cbopaymenttype.Text
Cells(currentrow, 10) = Txttotalpayment.Text
Cells(currentrow, 11) = cmbouser.Text
End If
End Sub

Answer 1

类似的事情应该起作用（未经测试）。匹配的行存储在全局变量中，因此您可以在完成编辑后对其进行更新

Dim CurrentRow As Range 'to store the matched row

Private Sub btsearch_Click()
    Dim totrows As Long, i As Long, fName

    fName = Trim(Txtforename.Text)
    If Len(fName) = 0 Then
        MsgBox "Please enter guest name!!"
        Exit Sub
    End If

    totrows = Report.Range("A1").CurrentRegion.Rows.Count
    Set CurrentRow = Nothing 'clear any previous row

    For i = 2 To totrows
        If Trim(Report.Cells(i, 1)) = fName Then
            Set CurrentRow = Report.Rows(i)
            LoadRow CurrentRow '<< save the matched row
            Exit For
        End If
    Next i

    If CurrentRow Is Nothing Then
        MsgBox "not found!"
    End If

End Sub

Private Sub btnupdate_Click()

    If MsgBox("Would you like to update guest details?", _
               vbYesNo + vbQuestion, "Update Record") = vbYes Then

        SaveRow CurrentRow

    End If
End Sub

'load a row of data into the userform
Sub LoadRow(rw As Range)
    With rw
        Txtforename.Text = .Cells(1).Value
        Txtsurename.Text = .Cells(2).Value
        Cboidtype.Text = .Cells(3).Value
        'etc etc
    End With
End Sub

'save the userform data back to the sheet
Sub SaveRow(rw As Range)
    With rw
        .Cells(1).Value = Txtforename.Text
        .Cells(2).Value = Txtsurename.Text
        .Cells(3).Value = Cboidtype.Text
        'etc etc
    End With
End Sub

Answer 2

我要检查的第一件事是MsgBox的结果值。 MsgBox始终返回整数，而answer是一个变体。
其次，我将answer声明为整数。一起可能会变成这样：

. . .
    Dim answer As Integer
    answer = Msgbox("Would you ... ecord")
    Debug.Print "' answer := " & answer ' display result in immediate-window
    MsgBox "' answer := " & answer ' or display the result with a msgbox
    If answer = vbYes Then
        Debug.Print "' then"
        ' while you are busy debugging, display this value too
        Debug.Print "' currentrow := " & currentrow
        . . . 
    Else
        Debug.Print "' else"
    End If
. . .

使用用户表单搜索和编辑记录

2 个答案: