Hi,
I Have a form with 1x combo box, 10 test fields and a button. Combo box is used to search for the data in the table and the data is displayed on the text boxes. Once I edit the data, i should be able to click on the button to update the record in the database. The issue i have is every time i click the run button , it keeps on defaulting to updating a single row while other rows in the table can't be update. Can you advice where i went wrong? Below is my query.. Any assistance will be much appreciated
Private Sub cmdEdit_click()
Dim db As Database
Dim rec As Recordset
Dim strMessage As String
Set db = CurrentDb
Set rec = db.OpenRecordset("SELECT * From ChurchMembers")
If rec.RecordCount > 0 Then
rec.Edit
rec("Last_Name") = Forms("frmMembersMaintenance").LastName
rec("Gender") = Forms("frmMembersMaintenance").Gender
rec!DOB = Forms("frmMembersMaintenance").DOB
rec("BAPDate") = Forms("frmMembersMaintenance").BAPDate
rec("Employment_status") = Forms("frmMembersMaintenance").Employment
rec("Position") = Forms("frmMembersMaintenance").Position
rec("Status") = Forms("frmMembersMaintenance").Status
rec("HomeProvince") = Forms("frmMembersMaintenance").HomeProvince
rec("HomeDistrict") = Forms("frmMembersMaintenance").HomeDistrict
rec("HomeLLG") = Forms("frmMembersMaintenance").HomeLLG
rec("HomeVillage") = Forms("frmMembersMaintenance").HomeVillage
rec("ResProvince") = Forms("frmMembersMaintenance").ResProvince
rec("ResDistrict") = Forms("frmMembersMaintenance").ResDistrict
rec("ResLLG") = Forms("frmMembersMaintenance").ResLLG
rec("ResVillage/Surbub") = Forms("frmMembersMaintenance").ResVill
rec("ChurchID") = Forms("frmMembersMaintenance").ChurchID
rec.Update
rec.Close
End If
End Sub
Private Sub cmbFirstname_AfterUpdate()
End Sub
Private Sub cmbFirstname_Click()
Me.LastName = Me![cmbFirstname].Column(2)
Me.Gender = Me![cmbFirstname].Column(3)
Me.DOB = Me![cmbFirstname].Column(4)
Me.BAPDate = Me![cmbFirstname].Column(5)
Me.Employment = Me![cmbFirstname].Column(6)
Me.Position = Me![cmbFirstname].Column(7)
Me.Status = Me![cmbFirstname].Column(8)
Me.HomeProvince = Me![cmbFirstname].Column(9)
Me.HomeDistrict = Me![cmbFirstname].Column(10)
Me.HomeLLG = Me![cmbFirstname].Column(11)
Me.HomeVillage = Me![cmbFirstname].Column(12)
Me.ResProvince = Me![cmbFirstname].Column(13)
Me.ResDistrict = Me![cmbFirstname].Column(14)
Me.ResLLG = Me![cmbFirstname].Column(15)
Me.ResVill = Me![cmbFirstname].Column(16)
Me.ChurchID = Me![cmbFirstname].Column(17)
End Sub