Forms :: OLE Server Error From List Box Update
Jun 2, 2014
I have a form which uses a list box to select which record to display. The code is all generated by Access during form design. It is a method I have used numerous times inthe past in various database without problem (even in the current database I am developing).But for some reason on this one form I get the following error;-
"The expression After Update you entered as the property setting produced the ollowing error; A problem occurred while database was communication with OLE Server or Active X Control".
View Replies
ADVERTISEMENT
May 12, 2013
I want to make a bar chart in form with X-axis: [WEEK], Y-axis: [TTL NO] and each bar separated by [FINAL CHECK] liked below which [WEEK] linked to filter in form to choose required period.However, error occurrs and 2 error message boxes as below.
1. The Microsoft Jet database engine does not recognize '[Forms].[Menu].[FM_WK]' as a valid field name or express.
2. An error occurred while sending data to the OLE server (the application used to create the object).
View 1 Replies
View Related
Sep 9, 2013
I am trying to populate a list box with an event after update in a combo box. I can get the formula to work using 2 criteria, the problem is i nee to add a third criteria. When I try to add it I get the run-time 13 error.
Here is the code I am trying to use:
Private Sub cboStatusRFQ_AfterUpdate()
Me.cboSupplier.RowSource = "SELECT DISTINCT [Consolidated_Master_Req_Pool.RFQ Contact] " & _
"FROM Consolidated_Master_Req_Pool " & _
"WHERE consolidated_master_req_pool.Complete = FALSE AND [Consolidated_Master_Req_Pool.RFQ Supplier] = '" & Nz(cboStatusRFQ.Value) & "'" And "[cosolidated_master_req_pool.Status] = '" & "[SUPPLIER_RFQ FOLLOW-UP]" & "'" & _
"ORDER BY [Consolidated_Master_Req_Pool.RFQ Contact];"
Me.cboSupplier = Null
End Sub
View 2 Replies
View Related
Apr 8, 2014
I'm building a customer form using a list box of summary customer info on the left side of the form (CustId and Names) and customer details on the right hand side. I want the details shown on the right to be those for the customer selected in the list box on the left. I'm having problems getting the details to update when a different record in the list box is selected or clicked.
I originally set the data source for the detail records to the base customer table but couldn't work out how to update them when the list box was clicked!
I then tried creating a query with the select clause conditional on the list box (CustId = Me.qryContactDetails) and set the data control source for the detail record to the query (=[qryContactDetails]![FirstName]). The query works as expected but the field in the form just shows '#Name?'.
I tried adding a field requery on the List31_Click() event using Me.[FieldName].ReQuery but that didn't seem to change anything
View 5 Replies
View Related
Mar 8, 2013
I have a table with a list of Students. While the academic year is in progress those students are in an "Active" status. Once the year is finished those students are moved into (hopefully) a "Passed" status or some other status that is not considered "Active".
Throughout the rest of the database I have many forms that refer to the Student Listing. As an example we have a Test so we select the Student performing the test using a Drop Down List and go from there.
I have set search criteria to the Drop Down List via the Combo Box's Query to only display active students and it works fine during the Academic Year. However if I have to review a test from a previous year then the Student Drop Down List no longer displays the name but their ID# (Primary Key) because the Student's status has now changed and no longer meets the query criteria.
Is there a way to use the Filter/Search Criteria to chose from a listing of Active Students but once selected it will display the Student name regardless of their status?
View 2 Replies
View Related
Sep 14, 2013
How it works: You search for a User, and then you search for a Serial.Now, what if I want to edit the table? (inside the subform, the results). I added an openRecordSet, and Parameters, but I still get the error saying that Recordset cannot be updated.Why? I opened and sent parameters but still fails.
View 2 Replies
View Related
Aug 24, 2014
Quote:
Private Sub Save_Click()
If IsNull(cboEmpName) Then
MsgBox "Please Select Employee Name"
Me.cboEmpName.SetFocus
End If
If Me.txtNoofDaysWorked.Value = "0" Then
MsgBox "Please Enter No of Worked Days"
[code].....
View 1 Replies
View Related
Jan 25, 2005
Good morning,
We keep having this error message when a group of our users try to open a MS Access 2000 application resides on a Netware server.
"The Microsoft Jet database engine could not find the object 'MSysDb'. Make sure the object exists and that you spell its name and the path name correctly." Have any one seen this error before? How to solve it please! Please advice.
Thank you very much,
T.
View 4 Replies
View Related
Jul 13, 2006
I have the strangest error.
I have used a OLE Bound Object, so I could create a link to some .PDF files. Everything works great, and I was ready to roll it out to the users (boy will they be excited), when I noticed a silly error I could not get rid of.
After closing the .PDF file (which opened correctly) I get an error that reads:
---------------------------------------------
The operationon on the Acrobat Document object failed.
The OLE server may not be registered
To Register the OLE server, reinstall it.
---------------------------------------------
I have searched the internet, this message board and the Microsoft website, and have come up with little. I believe it might be a .dll error, but the only thing close I could find regarded MS Access 95/98. This is an MS Access 200 DB. I get the error on both a Microsoft 2000 machine AND a Microsoft XP machine.
I tried to use "On Error Resume Next" but to no luck.
If anyone has any ideas, I would appreciate the help/suggestions.
Thank you,
TJ Bernard
View 5 Replies
View Related
Nov 18, 2006
I just installed Office 2007 and I get this error whenever I start MS Access 2007.
"A problem occured while Microsoft Office Access was communicating with the OLE server or ActiveX Control"
What could it be? I don't have any antivirus appz or such that could interfere, and my Windows XP+SP2 is updated daily.
View 12 Replies
View Related
Nov 6, 2007
I have a problem with my query which works fine prior to upsizing to SQL Server. Now I have an Access Front-end with SQL Server (2005) back-end client/server setup. This problem has bugged me for over one full day and I can't find anything that seems to solve it.
The error that comes up is this:
Run-time error '3146':
ODBC--call failed.
[Microsoft][ODBC SQL Server Driver][SQL Server]Incorrect syntax near '='. (#102)
The line that's producing the error is a DoCmd.RunSQL "SELECT tblPBC..." The full statement is below. I can't seem to see anything wrong w/ my syntax below....
View 5 Replies
View Related
Sep 9, 2004
Hello
If the web server is windows 2000 server.there no problem.
If I am changing it to Windows xp professtional.I am
Getting the following error
Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Microsoft Access Driver]General error Unable to open registry key 'Temporary (volatile) Jet DSN for process 0xa34 Thread 0xeb0 DBC 0x1052ed4 Jet'.
While opening a connection to access data base.
How to solve it?
Thanks in advance
View 3 Replies
View Related
Jun 5, 2014
Im using ms access 2010 and this program compatible with previously ms access.the error show is type mismatch (error 13) on
Code:
Set rbs = CurrentDb.OpenRecordset("SELECT MSysObjects.Name" _
& " FROM MSysObjects WHERE MSysObjects.Type= 1 And MSysObjects.Flags=0" _
& " and MSysObjects.Name='" & n_tb & "'")
View 2 Replies
View Related
Nov 4, 2013
I am trying to upsize the access database to sql server ,i have an odbc connection and when I try to move the tables,all the data is moving except one table "tblproductinfo" . I have attached the table data and error.
View 1 Replies
View Related
Jul 26, 2007
I wrote the following statements to update a SQL server database:
Dim MyDb As Database
Dim MyRs As Recordset
Set MyDb = DBEngine.Workspaces(0).OpenDatabase("AMD", dbDriverPrompt, False, "ODBC;DATABASE=AMD;DSN=Remote")
Set MyRs = MyDb.OpenRecordset("SELECT AllAttendanceEvents.* FROM AllAttendanceEvents ORDER BY AllAttendanceEvents.EntryTime DESC")
MyRs.MoveFirst
While Not MyRs.EOF
MyVal = MyRs!EntryTime
Debug.Print MyVal
MyRs.Edit
MyRs!Ix = 50099
MyRs.Update
MyRs.MoveNext
Wend
When it execute the red line statement, it generates the error:Cannot update. Database or object is read-only.
This error is generated isnpite that I already checked the boxes: SELECT, INSERT, UPDATE, DELETE in the Permissions page of the tables?
Please advise.
View 3 Replies
View Related
Feb 22, 2005
Hello,
I have a very strange problem:
I have a table linked to an SQL Server table in my MS Access 2000 Application containing 5 text-fields (SQL Server Type, in Access seen as MEMO-fields) and several other fields (in total about 140 fields). Updating any field works fine except for some records. In those records I can only edit the non-text-fields in my application. When I try to edit one of the text-fields I get a error message telling me that another user has edited the record and i have to discard my changes.
The strange thing is that this problem only crops up for some records. (1 in a 100 or so) All other records work fine.
Does anyone know what happens here? And how this can be fixed?
Thanks.
Kaine
View 3 Replies
View Related
Apr 25, 2014
I need to update data in a bunch of tables of a sql server database. The database has 300 tables which I have linked via odbc. I'm hoping there is a simple way, using vba, to loop through my linked sql server tables and determine which of them are views as opposed to tables.
View 1 Replies
View Related
Jun 26, 2014
Connecting Access FE to SQL SERVER BE Connection is fine. I can open and close it and other queries work fine. I have only one problem with the SQL in one query
Code:
With rstRPT
If FirstRecord = True Then
.Open "SELECT Min([" & SourceTbl & "].[3Order ID]) AS MinOf3OrderID " & _
[Code].....
why it wants to see the variable as a column name?
View 1 Replies
View Related
Jun 17, 2013
I have created a code below to test whether I can run a query and retrieve a data from an SQL server table. And so far I can return the result using a messagebox. but somehow I just don't know how to use this connection to update the table inside this access file. Basically I want to use this as a front end file. then when the form is open it will automatically update the table inside this access file and load the data to the combo box as a list.
Code:
Option Compare Database
Sub LocalServerConn_Test()
Set conn = New adodb.Connection
Set rst = New adodb.Recordset
[code]....
View 4 Replies
View Related
Oct 31, 2005
Hi
I am creating an input form to assign an engineer to a project for x days.
The form consists of two Text Boxes for the Engineer Code and Project Name. I also have a Multi Select List Box which is linked to a table. The Table contains two fields ID-Autonumber and Date-ShortDate. This table contains all dates for the next three years.
I ideally want the user to select the Engineer Code and Project and the desired dates the engineer is to be assigned and add these to another table.
I have tried the following code but while the two Text Boxes update fine and the number of selected dates are added the dates themselves are not.
Can anyone see where I am going wrong and guide me in the right direction
Private Sub Command4_Click()
On Error GoTo Err_Command4_Click
Dim db As ADODB.Connection
Dim r As ADODB.Recordset
Set db = CurrentProject.Connection
Set r = New ADODB.Recordset
Dim var As Variant
r.Open "tblIM", db, adOpenStatic, adLockPessimistic
For Each var In Me.List0.ItemsSelected
r.MoveLast
r.AddNew
r.Fields("Date") = Me.List0.Value
r.Fields("EngineerCode") = Me.EngineerCode.Value
r.Fields("Project") = Me.Project.Value
r.Update
Next var
Exit_Command4_Click:
Exit Sub
Err_Command4_Click:
MsgBox Err.Number & " - " & Err.Description
Resume Exit_Command4_Click
End Sub
Thanks
JC
View 4 Replies
View Related
Feb 9, 2005
hello, I am using a list box to select different time from. when the time is selected in the list box it appears in another text box with other information. when all information is inputed, I click ok and the info is saved. the main form is a calendar that is created from a query. when i click on the day to see the event the time is not saved. if i type in the time then it saves. this is the code im using in the after update event:
Forms!frmNewSample!txtAppointmentTime = Me.List22.Value
I also tried the control source for the text box that i am sending the value to, still the times do not save.
I think it would be better if someone could see what i am trying to do. the program is 3 mb, so i can not attatch it. Any help would be very much appriciated.
View 1 Replies
View Related
Jan 5, 2006
Morning Folks,
The code below pulls up a list of PDF files from a shared drive on a server. For some reason it all of a sudden has stopped pulling all the PDF files.
Error # 1The following error as occurred: The setting for this property is too long
Private Sub Form_Load()
Const strPath As String = "\a70nbcbs2data2smrt_dskGroup TrackingHotDocs Changes"
Dim fs, folder, file, folderCollection
Dim strValueList As String
Dim strFileName As String
On Error GoTo Handle_Error
Set fs = CreateObject("Scripting.FileSystemObject")
Set folder = fs.GetFolder(strPath)
Set folderCollection = folder.Files
For Each file In folderCollection
strValueList = strValueList & Left(file.Name, Len(file.Name) - 4) & ";"
Next
Me.lstPDFFiles.RowSourceType = "Value List"
Me.lstPDFFiles.RowSource = strValueList
Exit Sub
Handle_Error:
MsgBox "The following error has occurred: " & Err.Description
Exit Sub
End Sub
The numbers before PDF file is the date. For some odd reason it has stopped pulling everything past 02/24/2005. The code below is the list that is populated in to the list box.
Is there a maximum to a list box? Is that what is going on? If so what do you suggest we do?
20040110Maternity;20041202PhantomB;20041202Phantom BEmail;20041206PharmacyCC;20041206PharmacyCCEmail; 20041207BlueCard;20041207BlueCardEmail;20041208Fir stPlace;20041209AnniversaryDate;20041209Anniversar yDateEmail;20041210Reimbursement;20041210Reimburse mentEmail;20041210SecondaryClaims;20041216Drug;200 41216DrugEmail;20041216GynExam;20041216GynExamEmai l;20041216NonStandard;20041216NonStandardEmail;200 41217InpatientRehab;20041217InpatientRehabEmail;20 0502022TierDrugEmail;20050202ASO2TierDrug;20050202 ASOCataract;20050202ASOCataractEmail;20050202ASOPr eauth;20050210DentalAmendments;20050210DentalAmend mentsEmail;20050214DigitalMammography;20050214Digi talMammographyEmail;20050218DentalAmendments;20050 218DentalAmendmentsEmail;20050224DigitalMammograph y;20050224DigitalMammographyEmail;
View 14 Replies
View Related
Nov 6, 2006
I have the following cod to add a staff numberif this is not present in a combo box,all works perfectly when a staff number is not present, it opens me the form to add the staff list but once I have added the staff num and goback to my main form and try to type the staff number just added it keep opening the not in list event, I then have to close the form and then reopen it.
I know it is something to do with the requery function, but can somebody tell me were I shoul put it and the correct VB instruction
Thanks
Private Sub StaffNumber_NotInList(NewData As String, Response As Integer)
On Error GoTo Err_StaffNumber_NotInList
If MsgBox(" STAFF NUM NOT IN LIST " & vbCrLf & " Do you want to edit staff list? ", vbYesNo) = vbYes Then
Response = acDataErrContinue
Me.StaffNumber.Undo
DoCmd.OpenForm "frmstafflist", , , , acFormAdd
Forms!frmstafflist.StaffNumber = NewData
Else
Response = acDataErrContinue
Me.StaffNumber.Undo
End If
Exit_StaffNumber_NotInList:
Exit Sub
Err_StaffNumber_NotInList:
MsgBox Err.Description, , " db1"
Resume Exit_StaffNumber_NotInList
End Sub
View 6 Replies
View Related
Aug 19, 2005
Hi,
I have a list box which is bound to a field in a table - however, when I select a value (which comes from a lookup query) it is not writing the value to the table, which is basically making my database useless!
I've also tried using an update query using the following code (before trying this I made the list box unbound):
UPDATE tblgroup SET tblgroup.Price = [Forms]![frmMain].[lstPrice].[value]
WHERE (((tblgroup.Group)=[forms]![frmMain].[txtGroup].[value]));
Any help would be greatly appreciated, cheers.
View 9 Replies
View Related
Mar 28, 2006
I have a private sub on a subform called txtsearchstring_change.
The txtsearchstring box is = to the client_id on the main form.
Basically when the user clicks on the next record button (which is on the main form) it should update the txtsearchstring_change on the subform and then display the new results in the list box.
Im not to sure how to do this. I understand im calling a sub from another form, so i did try a public not a private sub. And i have added on the next and previous button - txtsearchstring_change.
Thanks for any help.
View 2 Replies
View Related
Jun 7, 2006
I will try and describe my issues as best I can.
I have a NotOnList Event on a Combo box.
Dim strSQL As String
Dim i As Integer
Dim Msg As String
'Exit this sub if the combo box is cleared
If NewData = "" Then Exit Sub
Msg = "'" & NewData & "' is not currently in the list." & vbCr & vbCr
Msg = Msg & "Do you want to add it?"
i = MsgBox(Msg, vbQuestion + vbYesNo, "Unknown Problem...")
If i = vbYes Then
strSQL = "Insert Into TroubleShootingGuideTBL([Problem]) values ('" & NewData & "')"
CurrentDb.Execute strSQL, dbFailOnError
Response = acDataErrAdded
Else
Response = acDataErrContinue
End If
This worked just fine until I added an AfterUpdate Event used for Cascading Combo Boxes.
On Error Resume Next
Problem.RowSource = "SELECT DISTINCT TroubleShootingGuideTBL.Problem " & _
"FROM TroubleShootingGuideTBL " & _
"WHERE TroubleShootingGuideTBL.SystemGroup = '" & SystemGroup.Value & "' " & _
"ORDER BY TroubleShootingGuideTBL.Problem;"
When I add something that is not current in the recordsource for the combo I still get the msg box:
"is not on the list, Do you want to add it? click yes or no.
I click yes and then I now get this error:
"The text you entered isn't an item in the list. Select an item from the list or enter text that matches one of the listed items"
As I said earlier the NotOnListEvent worked just great until I added the AfterUpdate Event. Any suggestions for me? Thanks in advance
The Source Table is updating but the Table the Form populates is not updating.
Please help. This is driving me crazy. and thanks!
View 2 Replies
View Related
