I've tried your code and i get an error.
Compile error: Variable not defined
and the WarningsOff is highlighted in the line
DoCmd.SetWarnings (WarningsOff)
any ideas y that happens?
This is what my current delete button has:
Private Sub DelRec_Click()
On Error GoTo Err_DelRec_Click
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
Exit_DelRec_Click:
Exit Sub
Just noticed sumthing,
my combobox which worked perfectly before now causes problems
when scrolling through the records.
I get a runtime error saying "the value you entered isnt valid for this field"
Whats gone wrong?
Great thanx,
That worked.
Is there a way to change the confirmation message to one of my own because the one which pops up when deleting a record can be confusing for users?
Tried to enforce referential integrity but i get the error msg:
Data in the table 'BoilerDet' violates referential integrity rules.
BoilerDet being the table used for the subdatasheet
hello all,
I've come across another little problem in my database.
I have a subdatasheet in my form - this holds the boiler details for clients.
ie. clients form has within it details subdatasheet containg boiler details for that client.
I can add/edit boiler details without any problems but...
WOW, :D
you're amazing - IT WORKED!!!
Thanx for ur help
I really appreciate it :)
PS, if u dont mind can you plz help me with my other thread
Thanx again
Im gonna look really stupid now (if i didnt already) but i dont know how to do this :(
I want the combobox value to be custname (ie customer name) how would i do this.
PS, im glad you know what im talking about now :)
hey
that code was i posted was compiled by access - i didnt change it but i will do if u think it will help.
Im stil stuck though and Im at my wits end with this.
I want the user to be able to choose within the same form how they want to navigate through the records.
if they know who they r...
Hi,
At the moment this is whats in the afterUpdate event of my combobox:
Private Sub Combo38_AfterUpdate()
' Find the record that matches the control.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[CustName] = '" & Me![Combo38] & "'"
Me.Bookmark = rs.Bookmark...