Dao

[Ricky1]

Ok i have a combo box that is suppose to fill in the other fields.
I have got this code to fill the combobox but how do i male it fill in the other fields ????

Private Sub Form_Load()
    Data3.Refresh
    With Data3.Recordset
        .MoveFirst
        Do Until .EOF
            cboMembershipNo.AddItem (.Fields("MembershipNumber"))
            .MoveNext
        Loop
    End With
End Sub

that works fine, i just need to know how to make it fill in the relevant information.

[dee-u]

What do you mean, fill the cboMembershipNo with all the fields from Data3.recordset?

[Ricky1]

i have resolved my first problem but i have come accoress another one.

Private Sub cmdDelete_Click()
 
    On Error GoTo DataError
 
    With Data3.Recordset
        Data3.Recordset.Delete
        Data3.Recordset.Fields("MembershipNumber") = cboMembershipNo.Text
        Data3.Recordset.Fields("FullName") = txtName.Text
        Data3.Recordset.Fields("Address") = txtAddress.Text
        Data3.Recordset.Fields("DateOfBirth") = txtDateOfBirth.Text
        Data3.Recordset.Fields("TelephoneNumber") = txtTelephone.Text
        Data3.Recordset.Fields("OtherInfo") = txtAddInfo.Text
        Data3.Refresh
    End With
    
    Exit Sub
 
DataError:
    MsgBox Err.Description
    
End Sub

it doens't delete the record until i close the application completly any ideas how i get around this ??????

[dee-u]

Try....

Private Sub cmdDelete_Click()
 
    On Error GoTo DataError
 
    With Data3.Recordset
        Data3.Recordset.Delete
        [B]Data3.Refresh[/B]
        Data3.Recordset.Fields("MembershipNumber") = cboMembershipNo.Text
        Data3.Recordset.Fields("FullName") = txtName.Text
        Data3.Recordset.Fields("Address") = txtAddress.Text
        Data3.Recordset.Fields("DateOfBirth") = txtDateOfBirth.Text
        Data3.Recordset.Fields("TelephoneNumber") = txtTelephone.Text
        Data3.Recordset.Fields("OtherInfo") = txtAddInfo.Text
        Data3.Refresh
    End With
    
    Exit Sub
 
DataError:
    MsgBox Err.Description
    
End Sub

[Ricky1]

it gave me this error.

Update or CancelUpdate without AddNew or Edit

[dee-u]

On what line did the error occured?

[Ecniv]

i have resolved my first problem but i have come accoress another one.

Private Sub cmdDelete_Click()
 
    On Error GoTo DataError
 
    With Data3.Recordset
        Data3.Recordset.Delete
[color=green]
'---- delete may work
'---- but you haven't opened the bit below for editting or adding a new record..
'---- try the next line
        Data3.Recordset.AddNew
[/color]
        Data3.Recordset.Fields("MembershipNumber") = cboMembershipNo.Text
        Data3.Recordset.Fields("FullName") = txtName.Text
        Data3.Recordset.Fields("Address") = txtAddress.Text
        Data3.Recordset.Fields("DateOfBirth") = txtDateOfBirth.Text
        Data3.Recordset.Fields("TelephoneNumber") = txtTelephone.Text
        Data3.Recordset.Fields("OtherInfo") = txtAddInfo.Text
[color=green]
'---- Not sure if this line would be needed
        Data3.Recordset.Update
[/color]
        Data3.Refresh
    End With
    
    Exit Sub
 
DataError:
    MsgBox Err.Description
    
End Sub

it doens't delete the record until i close the application completly any ideas how i get around this ??????

See highlighted bits above.