I'm having an application which is developed in access. It's running quite well, some times when I made changes to forms or reports it hangs for a while and exits without saving, it happens sometimes not always... what could be the problem? how can I rectify this..
View RepliesI am facing a recent problem in my access 2002 and access 2010 on my computer. I am not able to run new queries even simple ones because when I try to execute it , it starts to hangs and access stop responding.
View 1 Replies View Relatedhello..
I have this problem that when I update the value in one of my tables, MS Access hangs up. I don't know why. I dont know if it's because of the updating or because of something else.. Any help would be greatly appreciated.. Thanks in advance! ;)
here the code that's executed when the approve button is clicked..
Private Sub Command43_Click()
Answer = MsgBox("Are you sure you want to approve this timesheet? Note that only projects approved by respective project managers will be approved.", vbYesNo)
'if cancelled
If Answer = vbNo Then
Else
Dim rs As Object
Dim x As Integer 'will be used as a flag for do while loop
x = 1 'initialize flag
Set rs = Me.Recordset.Clone
rs.FindFirst "[weekending] = #" & Format(Me![weekending], "mm/dd/yyyy") & "#"
'finding the first record wich matches the weekending doesn't give the right record
'right away. it may give a record with the right weekending but different eno. that is
'not supposed to happen. so once a weekending match is found, check if the eno also
'matches. this do..while loop will do the trick =)
Do While x < 18
If rs!eno = Forms!TimesheetDetailsFrm!eno And rs!statusPM = "approved" Then
rs.Edit
rs!status = "approved"
rs.Update
x = x + 1
End If
rs.FindNext "[weekending] = #" & Format(Me![weekending], "mm/dd/yyyy") & "#"
Loop
'close this form and refresh the 'timesheets for approval' form
Answer = MsgBox("You have successfully approved the timesheet. Close this window to continue viewing other submitted timesheets.")
Forms!SupervisorFrm.Requery
End If
End Sub
Thanks again..
ps. How do I mark a post as 'resolved'? Coz I have a previous post which has already been solved.. Thanks to all of you guys. ;)
I have hyperlinks from within Access forms that link to Adobe PDF documents; these are the new PDF Package documents created with Acrobat 8 - and give the message "Multiple files are bound together in this PDF Package."
The problem I am having is that when ever I click on the hyperlink the computer hangs (from the task manager, I believe that it is Acrobat Reader that is hanging). This problem only occurs with multi-file PDF packages and does not occur with regular PDF's. It also only occur with MS Access, as linking to theses files from MS Word encounters no problems.
Is anyone aware of a fix for this?
My Access app hangs when running the following code on Form_Load:
VB Code: Original - VB Code Private Sub Form_Load()On Error GoTo listbox_errorDim strSQL As String, strList As StringDim listrs As New ADODB.RecordsetSet listrs = New ADODB.RecordsetstrSQL = "SELECT * FROM sections"listrs.LockType = adLockPessimistic With listrs .ActiveConnection = open_conn() .Open (strSQL) End WithDo Until listrs.EOFstrList = strList & listrs("id").Value & ";" & listrs("section").Value & ";"LoopstrList = Left(strList, Len(strList) - 1)Me.cmbSection.RowSource = strListMe.cmbSection.RowSourceType = "Value List"listrs.CloseSet listrs = Nothinglistbox_error:MsgBox Err.DescriptionExit SubEnd Sub Private Sub Form_Load()On Error GoTo listbox_errorDim strSQL As String, strList As StringDim listrs As New ADODB.RecordsetSet listrs = New ADODB.RecordsetstrSQL = "SELECT * FROM sections"listrs.LockType = adLockPessimistic With listrs .ActiveConnection = open_conn() .Open (strSQL) End WithDo Until listrs.EOFstrList = strList & listrs("id").Value & ";" & listrs("section").Value & ";"LoopstrList = Left(strList, Len(strList) - 1)Me.cmbSection.RowSource = strListMe.cmbSection.RowSourceType = "Value List"listrs.CloseSet listrs = Nothinglistbox_error:MsgBox Err.DescriptionExit SubEnd Sub
The connection is in a module named publicfunction:
VB Code: Original - VB Code Public Function open_conn() As ADODB.Connection 'Opens connections to database Dim sPath As String sPath = CurrentProject.Path & "endjftocbe.mdb" Set open_conn = New ADODB.Connection With open_conn .Provider = "Microsoft.Jet.OLEDB.4.0" .ConnectionString = "Data Source=" & sPath & "; Jet OLEDB:Database Password=*****" .Open End WithEnd Function Public Function open_conn() As ADODB.Connection 'Opens connections to database Dim sPath As String sPath = CurrentProject.Path & "endjftocbe.mdb" Set open_conn = New ADODB.Connection With open_conn .Provider = "Microsoft.Jet.OLEDB.4.0" .ConnectionString = "Data Source=" & sPath & "; Jet OLEDB:Database Password=*****" .Open End WithEnd Function
Any ideas why it is hanging? The conn to the database is successful when I use it for the login procedure, but after that, I can't seem to get back in.
thanks
Some of my users do not have access to all of our servers. In trying to automate I've hit one user whose system hangs up when Access tries to write to a server folder she does not have write (or even read) permissions for (Error 52, Bad file name or number). See the "Me.CitationType > 500" line below.
Code:
Private Sub comboStatus_AfterUpdate()
Dim hDate As String
Dim sFile As String
[Code]....
It gets as far as "If Len(Dir(hDate, vbDirectory)) = 0" and then hangs with Error 52. Testing for Dir() sooner doesn't work either.
how to either test for read-write permissions or trap Error 52. "On Error GoTo ErrorHandler" never fires to even test for 52, unless I'm missing something.
Access 2007 has hung up while I scrolled from left to right through the columns in a linked ODBC table in datasheet view. I understand why it "hangs" while scrolling through rows, but I've never heard of it doing this for columns and I am talking about a complete freeze up here.
View 3 Replies View RelatedWhen converting the Front End of my database to an MDE, Access just hangs and says (Not Responding). I've left it our an hour and there's no sign of stirring.The Back End converts in just a second or so.
View 5 Replies View RelatedOK, sorted out that last problem I had.... Heres a new one.
This query runs fine:
SELECT [Piping Models by Area].AREA_NAME, [Piping Models by Area].MODEL_NO, [All Pipes].LINE_ID, [All Pipes].PIPING_MATER_CLASS, [All Pipes].PIPE_LENGTH
FROM [Piping Models by Area] LEFT JOIN [All Pipes] ON [Piping Models by Area].PARTITION_NO = [All Pipes].PARTITION_NO
WHERE [Piping Models by Area].AREA_NAME like "545*"
ORDER BY [Piping Models by Area].AREA_NAME, [Piping Models by Area].MODEL_NO, [All Pipes].LINE_ID, [All Pipes].PIPING_MATER_CLASS;
Add one WHERE criteria, and it no longer runs, under Access or TOAD for Oracle, or SQL*Plus, or anything:
SELECT [Piping Models by Area].AREA_NAME, [Piping Models by Area].MODEL_NO, [All Pipes].LINE_ID, [All Pipes].PIPING_MATER_CLASS, [All Pipes].PIPE_LENGTH
FROM [Piping Models by Area] LEFT JOIN [All Pipes] ON [Piping Models by Area].PARTITION_NO = [All Pipes].PARTITION_NO
WHERE [Piping Models by Area].AREA_NAME like "545*" and [All Pipes].PIPING_MATER_CLASS = "F13B"
ORDER BY [Piping Models by Area].AREA_NAME, [Piping Models by Area].MODEL_NO, [All Pipes].LINE_ID, [All Pipes].PIPING_MATER_CLASS;
It works fine, and is nice and fast, until I add the second "WHERE" criteria.
[Piping Models by Area] and [All Pipes] are both queries and run fine on their own. This query also runs fine without the WHERE clause.
Any ideas? Is there some small syntactical error causing some kind of infinite loop or something?
Edit: formatted for easier viewing
And yes I now that's the title of a Knowledge base article, I stole it because it put into words what I can only say in expletives right now.
Basically, well it's all a bit odd.
I got users on the network who, until yesterday, could access some networked databases. Other files from the same source are ok, just Access files.
Today the moment they click (and I mean a single-click) on the icon to open the database...explorer hangs.
You can't open the database from within MS Access either, that hangs too. But you CAN open them up and use them if you can get them copied locally.
Oh yeah, some people (in the same room, on the same VLAN) can access the database, but can't perform any tasks within it.
Databases are a mix of 97 and 2000.
And to make matters worse, it's happening on another server.
I know you're gonna shout virus, but that looks to be a non-starter since I know of no such virus which would affect ONLY Access files and do it on a single click, and secondly The systems check out fine with both Sophos (and our good luck charm AVG) run against them.
Holy Moley! Has anyone ever come accross such a palarva?
Hi there
Strange problem, i'm using XP Pro and Access from Office 2003 (both real full versions from work) - and in general use, when the mouse hovers over the 'print' icon (at the top left, undernear file, edit, view, insert, near 'save', 'new', etc), then access will hang for about 20 seconds then snap back into action.
Now, i don't even want to print anything! But every now and again i accidentally hover over it and it's bugging the hell out of me. Everything is updated (but i will check again now).
Anyone know how to make this stop? I tried a quick search but didn't get far.
Cheers!
Edd
Does anyone know the code to exit from THE whole ACCESS program.
That is when I click the close button on the switchoboard, I want the system to close the whole of access program.
If my user uses the MS Access 'X' button (upper right hand of screen) to Exit the application does anyone know what methods are triggered that may let me perform some task before the application actually ends?
Thanks
I've created a new database using the standard Switchboard function. However, when I use the Exit Application command the database closes but MS Access stays open. It's a minor problem but infuriating, especially as I've never encountered this problem before and everything I try won't fix it. Any ideas?
View 5 Replies View RelatedHiya,
I have a database which on exit runs calls the following module and backs up the database to anther folder
Public Function BackupCopy()
'This function will allow you to copy a db that is open,
'You must set a reference to the 'Microsoft Scripting Runtime' for the CopyFile piece to work!
Dim fso As FileSystemObject
Dim sSourcePath As String
Dim sSourceFile As String
Dim sBackupPath As String
Dim sBackupFile As String
sSourcePath = "C:Database"
sSourceFile = "MyDB.mdb"
sBackupPath = "C:DatabaseBackups"
sBackupFile = "BackupDB_" & Format(Date, "mmddyyyy") & "_" & Format(Time, "hhmmss") & ".mdb"
Set fso = New FileSystemObject
fso.CopyFile sSourcePath & sSourceFile, sBackupPath & sBackupFile, True
Set fso = Nothing
Beep
MsgBox "Backup was successful and saved @ " & Chr(13) & Chr(13) & sBackupPath & Chr(13) & Chr(13) & "The backup file name is " & Chr(13) & Chr(13) & sBackupFile, vbInformation, "Backup Completed"
End Function
but after backing up correctly it brings me the following error
"Run-time errror '424':
Object required
any ideas what might be going wrong
Cheers
Hi all,
How would i close access via vba after a function runs?
I know how to close a form, but id like to close the entire thing.
Thanks in advance
I have a form that automatically is shown when a user enters the database. I want to disable all exits of this form so that the user cannot exit the form before he/she exits the whole database. How do I do this?
View 2 Replies View RelatedI have a form with 4 tab pages. on the 2 tab page I have a subform that adds records to a table via 2 combo boxes.
I have been able to stop user from leaving a combo control blank or skipping to the next combo control, but if user clicks the Exit command button on the main form, from the 2nd combo control, it prompts that value has to be selected but the gives error:
"You cannot add or change record because a related record is required"
How can I stop this so form will close and undo the 1st combo selection and not give error?
What are the pro's and con's and setting the database to compress on Exit?
View 5 Replies View RelatedMy main form has 2 “Continuous Forms” sub forms.
The cycle of the sub forms is set to “All Records”
Is there a way to exit the first sub form and move the focus to the second sub form utilizing only the keyboard? (Like shift + tab, or any custom buttons)
I’m trying to avoid using the mouse
Thank you
I have a form that has a command button on it. When the user clicks the command button I want the form that was up to be exited. I cannot find the correct syntax for this. Please help.
View 5 Replies View RelatedObviously doing something stupid here :-)
I use a form for data entry. When I hit the next arrow in the navigation button section (the default navigation buttons supplied by access), by data is saved into the relevant table.
When the I press the X on the form my data is also saved. However I'm not given the opportunity to say if I want to quit the form or save the data.
What do I need to set to get this functionality?
Thanks
Hi,
In MS Access, Form
I want to set up that if there is missing value of the fields, then we cannot go to next record or exit the form when we click to do next action.
I tried to add the code in the After update event, or Exit event,
Example Code:
if (isnull([Zip]) or len([zip]) = 0) then
msgbox "missing"
[zip].setforce
end if
when I click to go to next record, or exit the form,
it give out message "missing", it work fines,
but, it still go to next record, or exit the form after the message.
How do I fix it? Thanks.
I am working on adding the function of adding a date to a field on a form On Exit from another field. If the field I am exiting has a value of "No" i want to add the current date and if it is "Yes" I want to make sure the other field is null. I can't seem to find how to do this effectively. Can someone help me here?
View 2 Replies View RelatedHi all, I have a textbox with an input mask for an id number, so if I begin adding numbers I get an error message if they're not in correct format- this is fine- but I want the user to be able to cancel the entry and exit the form, but when I click the cancel button I get an error message about the id format- anyone know how I can allow cancel to override this?
thanx
I'm trying to figure out how to validate a field to make sure the users are not entering any blank spaces into the field. I've tried setting the mask up as "aaaaaa" but it still lets the user enter a blank space.
I've also tried building an event procedure to run on exit that reads:
Private Sub Barcode_Exit(Cancel As Integer)
Dim LPos As Integer
Dim LChar As String
Dim LValid_Values As String
'Start at first character in Barcode
LPos = 1
'Set up values that are considered to be alphanumeric
LValid_Values = " abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWX YZ+-.0123456789"
'Test each character in Barcode
While LPos <= Len(pValue)
'Single character in Barcode
LChar = Mid(pValue, LPos, 1)
'If character is not alphanumeric, return FALSE
If InStr(LValid_Values, LChar) = 0 Then
AlphaNumeric = False
Exit Function
End If
'Increment counter
LPos = LPos + 1
Wend
'Value is alphanumeric, return TRUE
AlphaNumeric = True
If AlphaNumberic = False Then
MsgBox "Barcode cannot contain blank spaces, only letters and numbers.", vbExclamation, "Barcode Field Value"
Else
End Sub
****
However the message box does not come up and the form will not then let you get out of that field.
Any ideas? I've been checking on this field by running a query and then manually correcting the errors but I would rather that the DB check and force correction at the time the data is entered.
Any and all help will be greatly appreciated.
Charis