lachesis
here is an option
dim dbs as database
dim rst as recordset
set dbs = currentdb()
set rst = dbs.OpenRecordset("SELECT * FROM YourTable WHERE FieldName = '" & me.UnboundTextBox & "'")
'test if it a new record if the recordset is EOF then ADD else UPDATE
if rst.eof...
I seen this before to fix it you require service pack 2 for office 97
you should be able to download it for microsoft site if you have not got service pack 1 you will need to install this first.
Cheers
Shrek
Joshua
I think your problem is your trying to save the form. Is this line of code for saving your record you have updated
if so all you need to do is move the recordset to save a record not the form
DoCmd.GoToRecord , , acNext
DoCmd.Save acForm, "Transfer NCR"
rokerij
I have seen this before it happens when the file is not closed properly like a machine crash or CTL+ALT+DEL. If you shut down the machine that has the file located on it should reset the file
let me know if this doesnt help
Shrek
mommom
what you need to do is refernce the other form here some sample code
Private Sub Form_Open(Cancel As Integer)
Dim Frm As OLDFORM
Set Frm = OLDFORM
Me.EndingBalance = frm.EndingBalance
End Sub
OLDFORM is the form you are coming from
Me.EndingBalance is the the textbox name on the new...
Amadea,
Have you tryed a repair & compact on the database
If the code has been working fine i would be looking at the database itself.
let me know if this helps
Shrek
Ron
If you can't understand the code goto the help file in access and look for "MSGBOX" then click on example click on the example "MsgBox Function Example" this should explain how the code works
Shrek
Ryan
This is how you do it you need to turn them back on after you delete the sheet or you won't get any alerts
Sub DeleteMacro2
Sheets("Macro (2)").Select
Application.DisplayAlerts = False
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = true
End...
smiley
what you have to do is refernce the sub form
here some sample code for you this should be in the detail form
Private Sub Form_Open(Cancel As Integer)
Dim Frm As Form_address_subform
Set Frm = Form_address_subform
DoCmd.ApplyFilter , "Name = '" & Frm.Name1 & "'"
End...
You can also do it this way
delete all the records in the table
open the table in design view
delete the autonumber field
save the table
open the table in design view again
add the autonumber field back in
save the table
Your autonumber will be set back to 1
I have a formatted spreadsheet on my computer in a print preview everything fit on the page. when i open the same spreadsheet on someone else computer on the network it doesn't fit all the columns on the page. We can use the fit to page command as when i do that it comes out to small to fax...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.