如何用button控制datasheetview的增删改?

[kingwind0726]

主form代码:

Option Compare Database


Private Sub cmdAdd_Click()
Me.subfamilyInfo.Form.AllowAdditions = True
'Me.subfamilyInfo.Form.
End Sub

Private Sub cmdBack_Click()
DoCmd.Close
End Sub

Private Sub cmdModify_Click()
Me.subfamilyInfo.Form.AllowEdits = True

End Sub

Private Sub Form_Load()

If ExcSubSelect = False Then
DoCmd.Close
Else
'MsgBox ("ok")
End If
End Sub

Private Function ExcSubSelect() As Boolean
Dim strSql As String
Dim rs As New ADODB.Recordset

ExcSubSelect = True
strSql = "select * from familyInfo where Id= '" & IdSelected & "'"
Set rs = GetRS(strSql)
If rs.EOF Then
DoCmd.Beep
MsgBox ("没有这个用户的信息!")
ExcSubSelect = False
Exit Function
Else

Set Me.subfamilyInfo.Form.Recordset = rs
With Me.subfamilyInfo.Form '设置值
.ID.ControlSource = "Id"
.famName.ControlSource = "Name"
.Age.ControlSource = "Age"
.Relationship.ControlSource = "Relationship"
.Occupation.ControlSource = "Occupation"
.NameOfCompany.ControlSource = "NameOfCompany"
.Telephone.ControlSource = "Telephone"
End With
' Me.subfamilyInfo.Form.AllowDeletions = False
' Me.subfamilyInfo.Form.AllowAdditions = False
' Me.subfamilyInfo.Form.AllowEdits = False

'Me.Requery

End If
End Function


子form代码:
Private Sub Form_Load()
Me.AllowDeletions = True
Me.AllowAdditions = True
Me.AllowEdits = True
End Sub

我没把控件绑定,把控件congtrol source属性留空了,因为我想做成点击某个按钮后才可以修改,修改后点确定按钮才更新
增加 删除 如何做?

[liuyann]

刚堆完雪人
键盘都敲不动

[liuyann]

我试了下
Set Me.subfamilyInfo.Form.Recordset = rs 后ACCESS就不允许编辑了
换个方法
直接改RecordSource

Private Function ExcSubSelect() As Boolean 
    
    ExcSubSelect = True 
    strSql = "select * from familyInfo where Id= '" & IdSelected & "'" 
    me.subfamilyInfo.Form.RecordSource=strSql
    me.subfamilyInfo.Form.Requery
    
    
    If me.subfamilyInfo.Form.Recordset.EOF Then 
      DoCmd.Beep 
      MsgBox ("没有这个用户的信息!") 
      ExcSubSelect = False 
      Exit Function 
    Else 

    With Me.subfamilyInfo.Form   '设置值 
      .ID.ControlSource = "Id" 
      .famName.ControlSource = "Name" 
      .Age.ControlSource = "Age" 
      .Relationship.ControlSource = "Relationship" 
      .Occupation.ControlSource = "Occupation" 
      .NameOfCompany.ControlSource = "NameOfCompany" 
      .Telephone.ControlSource = "Telephone" 
    End With 

End Function 

[kingwind0726]

非常 感谢,这个虽然没有用rs,但是效果还不错!

[liuyann]

实现同一功能的方法很多

[kingwind0726]

偶是对access和vba不太懂,手边还没有资料.
感谢你的解答!

[kingwind0726]

liuyann 请进来啊