Private Sub Command2_Click()
rs.MoveNext
If rs.EOF = False Then
    ShowDatas
  Else
    MsgBox "記錄指標已經到達最後一筆記錄!"
    rs.MoveLast
  End If
End Sub
Private Sub Form_Load()
Set rs = Adodc1.Recordset
If (rs.RecordCount >= 1) Then
ShowDatas
Else
MsgBox "沒有資料"
End If
End Sub
Private Sub ShowDatas()
Text1.Text = IIf(IsNull(rs("廠商名稱")), "", rs("廠商名稱"))
   msg.Refresh
End Sub
Private Sub Text1_Change()
rs("廠商名稱") = Trim(Text1.Text)
End Sub
---------------------------------------------------
在還沒加上以下程式碼往下移到最後一筆時會顯示記錄指標已經到達最後一筆記錄,加上了之後卻出現執行階段錯誤3021
Private Sub msg_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
ShowDatas
End Sub
請幫幫我....指引方向
arrow
arrow
    全站熱搜

    vbqa 發表在 痞客邦 留言(2) 人氣()