I really just want to get the recordcount of the recordset to display on my form.
Code:
Public Sub CallSP()
Dim cnn As ADODB.Connection
Dim rsSQL As ADODB.Recordset
Dim CmdSQL As ADODB.Command
Dim rsACCESS As ADODB.Recordset
[code]....
I get the message "The expression On Click you entered as the event property setting produced the following error: Class does not support Automation or does not support expected interface"
I receive the message on a PC running Windows 7 Professional using the Access 2013 Runtime. This pc does not have Access 2013 installed.On my pc, I do not get the error. I have Access 2013 installed and run Windows 7 Professional SP1. The "code" which gives the error is as follows and is invoked by clicking a button on a form
Code:
MsgBox "1"
Dim rst As ADODB.Recordset
MsgBox "2"
Set rst = New ADODB.Recordset
MsgBox "3"
[code]....
The error takes place after Msgbox "2" and before Msgbox "3".The strange thing is that I can run without a problem a sophisticated software package on the pc which gives the error, using Access 2013 Runtime. This package I converted from Access 2003.
I have this below which some people cant run and some people can. All are using 2010 runtime version. Apart from the one guy who can run the macro who has full 2010 version. I have 2010 runtime installed and i can also run the macro fine.
Private Sub Option12_Click()
On Error GoTo Option12_Click_err
Dim CntlPay As String
Dim Lable As String
CntlPay = "D"
[code]....
I have wrote a database in access 2010 and the database works fine for me (I am the db admin with full control).I gave the database to a group in which most of them also have no issue with the file. They are able to use the database with no issues..One of those members gets an error message when completing the initial step in the database: (select a drop down item from a combo box)
Code:
The expression After Update you entered as the event propoerty setting produced the following error: Object or class does not support the set of events
Something I cant seem to understand is why is this happoening on 5 machines but not on the 6th, they all have the same PC set up so there should be no error on one particular machine.
I am trying to format an excel spreadsheet through access, specifically trying to convert a column from text to dates (I receive the data in text format and need to translate it to dates).
Code:
Dim excelApp As Object
Set excelApp = CreateObject("Excel.Application")
excelApp.screenupdating = False
excelApp.Visible = False
Set excelWB = excelApp.workbooks.Open("Z:DataBasicSMData.xlsx")
[Code] ....
I'm no longer getting an error, but it isn't actually modifying the spreadsheet...
I have list box of reports in a form and when selected i want to write the reports description propterty to a textbox.
I modified an example i found posted someplace (can't recall where) and it worked great - just like this (see below).
Then I put it into another database (exact same tables, form and and queries) and if there is a description in the query property it will always give me the error "Type mismatch".
Why?
The only difference I can see is that the working example db had the following References selected:
Visual Basic For Applications
Microsoft Access 9.0 Object Library
Microsoft DAO 3.6 Oject Library
... in that order.
My database where it is not working has selected:
Visual Basic For Applications
Microsoft Access 9.0 Object Library
OLE Automation
Microsoft ActiveX Data Objects 2.1 Library
Microsoft DAO 3.6 Object Library
Is there a better way to fetch this property?
Or is there a setting I need to change - keeping in mind that changing these settings may cause the rest of my db to fail now...
Thanks A lot for any help you can give.
Function ReportDescription(ReportName As Variant) As String
On Error GoTo Err_ReportDescription
Dim db As Database
Dim con As Container
Dim doc As Document
Dim prp As Property
Set db = CurrentDb()
Set con = db.Containers("Reports")
Set doc = con.Documents(ReportName)
Set prp = doc.Properties("description")
ReportDescription = prp.Value
Exit_ReportDescription:
Exit Function
Err_ReportDescription:
If Err.Number = 3270 Then
ReportDescription = "There is no description for this Report"
Resume Exit_ReportDescription
Else
MsgBox Err.Description
Resume Exit_ReportDescription
End If
End Function
Private Sub lstReports_Click()
Me!txtReportDesc = ReportDescription("rpt" & Me!lstReports)
'Me!txtReportDesc = ReportDescription(Me!lstReports)
End Sub
In the scheme below, I want to fetch all the info in Table3 for all the Tiers that has the AppID in Table2. There could be more than 1 Tier using the AppID. I don't know if I'm clear though.
Code:
Table1 Table2 Table3
AppID (PK) _ AutoNb (PK) AutoNB
Name Tier (FK) ---_ Name
- AppID (FK) \_ Tier (PK)
Here's my failing attempt...
Code:
SELECT Table3.*
FROM Table3
WHERE Table3.Tier = (SELECT AppID
FROM Table1
WHERE Table1.AppID = 2002);
I have an Access Database setup that sorts archery scores. I want to export a query to a specific sheet in an Excel file that is setup for playoff bracketing which has formulas that automatically advances the winner of a match to the next round.
Now my question is, am I looking at this backwards? Would it be easier to import the excel file into access? Or should I stick to exporting data to excel? I want this to be automated as much as possible to the user has to do as little as possible (ideally, hit a button and the bracketing pops up...)
If anyone has any ideas (or possibly some VBA code....;) ) please let me know.
Thanks
Steve
Hi.
For years several agencies have used a database written and maintained in Access 97.
One adminstartor has both 97 and 200 on his computer and no problem. Until now, that is.
When I try copying a revised front end, and opening it, I get 'unrecogized database format' message.
My hunch i sthat said administartor accidentally opned the basck end with 2000 and converted it.
So, can the back end be unconveted/reverted back to 97?
Any other suggestions?
Russ
I have a continuous form based on a query.
The query is derived from three tables each in a 1 to
many relation to the next. (tables A, B, C)
So when I open this form (with filter A = 1) I expect to get this order:
A B C
---------
1 - 1 - 1
1 - 1 - 2
1 - 1 - 3
1 - 2 - 1
1 - 2 - 2
1 - 3 - 1
1 - 3 - 3
What I am getting is the records listed in the opposite order!
(1-3-3 on top, 1-1-1 on bottom)
Can anybody tell me why?
Thanks.
I used the code in the link below to get the login id returned on a form but I am having trouble now that I rolled out the database the code gives an error if the user has older than 2010 and even on a new machine that has access 2013 what is the best code to use? to return the log in id to a form?? without worrying about what version of access they have it wont be older than 2003. URL...
View 3 Replies View RelatedI would like to create a query that displays a date like this "20130315". Can this be done?
View 4 Replies View RelatedI have a form that launches a query. The results are displayed in a continuous form called ParentForm. On the ParentForm is a combobox which selects a singleform called a ChildForm that displays the details of the selected record. I placed a command button on the ChildForm. This button simulates a circular triple state toggle switch. By clicking this switch the form goes from ReadOnly to Edit to Add modes. The form properties AllowEdits , Allow Additions and DataEntry are adjusted accordingly. These properties when they are changed seem to initiate requery of the underlying data source. Here is the code. I am looking for a way to avoid requery of the data when the mod is changed.
Code:
Private Sub ModeBt_Click()
'-------------------------------------------------------------------------------
' Circular toggle button to change display mode of the form
' ReadOnly - Edit - Add
'-------------------------------------------------------------------------------
Select Case Me.Mode
Case "Edit Mode"
Me.AllowEdits = False
[code]....
Hi,
I'm doing a report on the features that Microsoft Access provides for supporting multimedia data. I'm having trouble finding any resources on the web.
Does anyone know of any and can point me in the right direction?
Thanks in advance for your help.
k
What type text format that MS ACcess support?
I had copy/paste from MS Word, FileMaker Pro and DOS into MS Access Memo field. They act very strange. Is it t a way to copy these text out to some othher format to script them to MS Access supported format and paste them back into MS Access?
Hi!
I want to create a database using MS Access that can be accessible by 80 users for information search purpose. At the same time at least 20 users out of 80 can make modifications. Need suggestion will that be possible in access.
The database will store in shared drive. Also want to know how to lock a record let say if user1 has access certain record for modifications than the second user can access database but not allow to modifying the record which is already under modification phase.
Appreciate any help on it.
Regards,
Nick
I am thinking about creating a DB using Access for a business. However, my wife mentioned to me that her company is looking at software for database work and has some Access DB's they are trying to convert because, according to a technical support person, Microsoft intends on getting rid of Access as a DB! I am posting here to ask anyone, professional or otherwise, if anyone has heard that Microsoft intends to stop supporting or implementing Access. Is Access 2003 the last version? I haven't been able to find out anything along this line. I thought, maybe Microsoft is thinking about supplanting Access with SQL Server. Before I go to the toil of building a DB system in Access, I want to know I am not wasting my time doing it. If anyone on this forum has heard a thing about Microsoft dumping Access, please let me know. Thank you. :o
View 8 Replies View RelatedAnyone know if Access supports triggers?
You know - "CREATE TRIGGER ..." etc in standard SQL
(nb. without ODBC connecting to another DBMS that does support it)
I find no mention of it in the manuals or options but Access seems to have most things.
Thanks in advance,
ScubaJoe
Hi,
I have a database which contains fields with information in many different languages. I seem to lose my japanese content from time to time.
I cut and paste the information from a Word document and paste it into an Access field. It seem to work and I get the japanese text pasted. But I have lost it and now I just have all text replaced by small squares. How can I retrieve my japanese text?? What should I be looking for if I want to maintain a database in MS Access using Japanese, Chinese and other foreign language text in it?
Bjorn
Hi,
I want to disable a button right after click it. Because I could not disable a control that has got the focus, i tried to shift the focus to another control; however, all controls that I tried to shift the focus to don't support the method (SetFocus = true).
I want to do this on a subform's control, but I keep getting this error:
Object does not support this property or method.
Any susggestions will be very much appreciated.
B:)
I have an access database that I developed while working for tech support at earthlink a while ago. If anyone is interested, I'd be happy to clean it up and post it in the examples. Some of it's features include: Tabbed Browsing Posting and manipulating web forms HTML Scraping Injecting information into other programs via APIA screenshot of it is below
View 3 Replies View Relatedi'm getting this message when i try and change a record in a table via a recordset... but i am using CursorType = adLockOptimistic which i thought let you make changes to the table
here is my code so far
Dim rst As ADODB.Recordset
Set rst = New ADODB.Recordset
rst.CursorLocation = adUseServer
rst.CursorType = adLockOptimistic
rst.Open "TBL_TmpSubmission", CurrentProject.Connection
If rst.RecordCount > 0 Then
Do While Not rst.EOF
MsgBox rst!PropertyType, vbOKOnly, "debug"
If DCount("[PropertyType]", "[TBL_PropertyType]", "PropertyType = '" & rst!PropertyType & "'") <> 1 Then
rst!PropertyType = DLookup("[PropertyType]", "[TBL_PropertyType]", "IDPropertyType = " & rst!PropertyType)
MsgBox "property changed", vbOKOnly, "debug"
Else
MsgBox "good property", vbOKOnly, "debug"
End If
rst.MoveNext
Loop
End If
rst.Close
am i using the wrong combination or cursor and lock type here? reading the help it seems i should be able to make changes to the table.
Hi everyone,
I am writing a query that is master-detail in principal. But need other data from other 2 tables. I wonder if I can construct the query so that it contains the result set of more than one SQL statement. Thank you for your kindly help.
Gary AU
This error appears when a preview or print button is used. The form has been opened with this.....
DoCmd.OpenForm stDocName, , , , acFormAdd, acWindowNormal
But when I try to preview it gets the error.......
"Object doesnt support this property........."
Same error occurs when the form is opened with.....
DoCmd.OpenForm stDocName, , , , acFormReadOnly, acWindowNormal, stLinkCriteria
The preview button is this.........
Private Sub cmdPreviewRptWO_Click()
On Error GoTo Err_cmdPreviewRptWO_Click
Dim stDocName As String
stDocName = "rptWorkOrderCurrent"
DoCmd.RunCommand acCmdSaveRecord
DoCmd.OpenReport stDocName, acPreview
Exit_cmdPreviewRptWO_Click:
Exit Sub
The really strange thing is I have 2 forms both coding the same..... One doesnt give the error!!
I think the error occurs when it is trying to save before previewing...But it has to save to view the report.
Anyone have the answer?? :confused:
So I finished my database :) ... then it was time to make it look as if it wasn't an Access DB. I read all the very helpful threads on converting to MDE, hiding access window, starting up my form, placing an icon in my main form title bar so I'm almost set but before I go ahead here is my concern:
So, basically I will make the application look like a stand-alone product and prevent the user from doing anything but using my forms. However, lets say in a month time the user wants to add some feature. Yes, I can keep the original DB and add the feaure on my version but what about all the records that were created in the meantime? How will I be able to import them then, especially if all the tables have autonumbers (which I don't know how to reset to blank in my original) and serve as the linking field for many records? All the relationships between the records would be messed up.
(I'll also have to deal with the security and set it up since one of the tables will store credit card numbers.)
Does anybody know whether the forms created in MS Access can support multiple languages? Like... captions can be loaded from a resource file.
If it does can you please share me how it can be achieved.