Access Vba Error 438
Contents |
Posters Today's Posts Search Community Links Social Groups Pictures & Albums Members List Calendar Search Forums Show Threads Show Posts Tag Search Advanced
Vba Error 438 Object Doesn't Support
Search Find All Thanked Posts Go to Page... Thread Tools excel vba error 438 object doesn't support Rating: Display Modes 09-24-2008, 07:13 AM #1 Glowackattack Registered User Join Date: Feb 2008 Posts: 126 Thanks: vba runtime error 438 0 Thanked 0 Times in 0 Posts Run Time error 438 - Object doesnt support this property or method Hi, I am having problems with an access database i created a
Vba Runtime Error 438 Object Doesn't Support This Property Or Method
couple months ago, and i should probably start by saying i recently got a new computer and this is my first time using the database since(i am running access 03 on the new one too). Here is a breif overview of my setup, I have a form, and within it is a subform, and within the subform is another subform, i guess an
Run-time Error 438 Vba
easy way to describe is like this we have a case(main form info), which breaks down into policies(first subform), which breaks down into payment information for each policy (2nd subform). I have fields on the first subform that sums payment information for each policy, when i update information on the 2nd subform, i have the following code. Code: Private Sub Premium_Amount_AfterUpdate() '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Dim record As Integer Dim ParentRecord As Integer record = Me.CurrentRecord ParentRecord = Me.Parent.CurrentRecord Forms![Frm_CaseOverview]![Frm_PolicyOverview_subform].Form.Requery Forms![Frm_CaseOverview]![Frm_PolicyOverview_subform].SetFocus DoCmd.GoToRecord , , acGoTo, (ParentRecord) [Frm_PolicyBreakdown_subform].Form.Requery Forms![Frm_CaseOverview]![Frm_PolicyOverview_subform]![Frm_PolicyBreakdown_subform].SetFocus DoCmd.GoToRecord , , acGoTo, (record + 1) [Type of Premium].SetFocus Everything worked fine in the past, and the field i wanted (type of premium) had focus after the update, now when i run this i get the error, if i comment out the last line, the premium amount field of the next record gets focus, not the "Type of Premium" field which i want....but at least i dont get an error and everything else updates like i want, i just want the Type of premium field to have focus for ease of data entry. Please let me know if i can
resources Windows Server 2012 resources Programs MSDN subscriptions Overview Benefits Administrators Students Microsoft Imagine Microsoft Student Partners ISV Startups TechRewards Events Community Magazine Forums Blogs Channel 9 Documentation APIs and reference Dev centers error 438 object doesn't support this property or method Retired content Samples We’re sorry. The content you requested has been removed.
438 Object Doesn't Support This Property Or Method Vba
You’ll be auto redirected in 1 second. Reference Trappable Errors Core Visual Basic Language Errors Core Visual Basic Language microsoft visual basic runtime error 438 excel Errors 438 Object doesn't support this property or method 438 Object doesn't support this property or method 438 Object doesn't support this property or method 3 Return without GoSub 5 Invalid procedure http://www.access-programmers.co.uk/forums/showthread.php?t=157503 call or argument 6 Overflow 7 Out of memory 9 Subscript out of range 10 This array is fixed or temporarily locked 11 Division by zero 13 Type mismatch 14 Out of string space 16 Expression too complex 17 Can't perform requested operation 18 User interrupt occurred 20 Resume without error 28 Out of stack space 35 Sub, Function, or Property not defined 47 https://msdn.microsoft.com/en-us/library/aa264511(v=vs.60).aspx Too many DLL application clients 48 Error in loading DLL 49 Bad DLL calling convention 51 Internal error 52 Bad file name or number 53 Can't find specified file 54 Bad file mode 55 File already open 57 Device I\O error 58 File already exists 59 Bad record length 61 Disk full 62 Input past end of file 63 Bad record number 67 Too many files 68 Device unavailable 70 Permission denied 71 Disk not ready 74 Can't rename with different drive 75 Path\File access error 76 Path not found 91 Object variable or With block variable not set 92 For loop not initialized 93 Invalid pattern string 94 Invalid use of Null 96 Can't sink this object's events because it's already firing events... 97 Can't call Friend procedure on an object that isn't an instance of... 98 A property or method call cannot include a reference to a private ... 321 Invalid file format 322 Can't create necessary temporary file 400 Form already displayed; can't show modally 422 Property not found 429 ActiveX component can't create object or return reference to this... 430 Class doesn't support Automation 43
Help Receive Real-Time Help Create a Freelance Project Hire for a Full Time Job Ways to Get Help Ask a Question Ask for Help Receive Real-Time Help Create a Freelance Project Hire https://www.experts-exchange.com/questions/27895946/How-to-resolve-the-error-Run-time-error-438-Object-doesn't-support-this-property-or-method-in-Access-2010-under-Windows-7.html for a Full Time Job Ways to Get Help Expand Search Submit Close http://stackoverflow.com/questions/20556859/programmatically-setting-textbox-value-but-returning-run-time-error-438 Search Login Join Today Products BackProducts Gigs Live Careers Vendor Services Groups Website Testing Store Headlines Experts Exchange > Questions > How to resolve the error "Run time error 438. Object doesn't support this property or method" in Access 2010 under Windows 7? Want to Advertise Here? Solved How to error 438 resolve the error "Run time error 438. Object doesn't support this property or method" in Access 2010 under Windows 7? Posted on 2012-10-10 MS Access 1 Verified Solution 2 Comments 6,675 Views Last Modified: 2012-10-11 I am developing an Access application with Access 2003. I upgraded the application to Access 2010. When I run the application in Windows 7, when the compiler 438 object doesn't reaches the line commonDlg.Filter = "All Files (*.*)|*.*" shown below, I get the compiler error: Run time error 438. Object doesn't support this property or method. Private Sub cmdBrowse_Click() filenm = "" commonDlg.Filter = "All Files (*.*)|*.*" 0 Question by:zimmer9 Facebook Twitter LinkedIn Google LVL 119 Active today Best Solution byRey Obrero try this first ADD Microsoft Office 14.0 Object Library to your References Tools > References (CODE) Go to Solution 2 Comments LVL 75 Overall: Level 75 MS Access 75 Message Active today Expert Comment by:DatabaseMX (Joe Anderson - Access MVP)2012-10-10 How about using the newer method .. Code commented out are just other examples. Public Function msoFileFolderBrowse() As Boolean ' With Application.FileDialog(4) ' .InitialFileName = "P:\invoices" ' start in this folder ' .AllowMultiSelect = False ' .Show ' ' If .SelectedItems.Count > 0 Then ' MsgBox .SelectedItems(1) ' End If ' ' End With ' ' With Application.FileDialog(3) ' 3=msoFileDialogFilePicker ' If .Show Then Debug.Print .SelectedItems(1)
here for a quick overview of the site Help Center Detailed answers to any questions you might have Meta Discuss the workings and policies of this site About Us Learn more about Stack Overflow the company Business Learn more about hiring developers or posting ads with us Stack Overflow Questions Jobs Documentation Tags Users Badges Ask Question x Dismiss Join the Stack Overflow Community Stack Overflow is a community of 4.7 million programmers, just like you, helping each other. Join them; it only takes a minute: Sign up Programmatically setting textbox value but returning run-time error 438 up vote 1 down vote favorite I am trying to set the value of a text box based on the value I select in a combo box and a pre-existing value in another text box. Both the controls are in a continuous subform within a form. When I select a value in the combo box, I get the following: Run-time error '438': Object doesn't support this property or method My code looks like this: Private Sub Combo1_Dirty(Cancel As Integer) Dim con As ADODB.Connection Set con = Application.CurrentProject.Connection Dim rs As ADODB.Recordset Set rs = New ADODB.Recordset ssql = "(SELECT TABLE1.DESCRIPTION As d1 " & _ "FROM TABLE1 " & _ "INNER JOIN TABLE2 ON " & _ "(TABLE1.CATEGORY = TABLE2.CATEGORY) " & _ "AND (TABLE1.LEVEL = TABLE2.LEVEL) " & _ "WHERE " & _ "(((TABLE1.LEVEL)= " & [Forms]![MainForm].[Subform].[Combo1] & ") " & _ "AND ((TABLE2.CATEGORY)= '" & [Forms]![MainForm].[Subform].[CATEGORY] & "'));)" rs.Open ssql, con Do Until rs.EOF = True [Forms]![MainForm].[Subform].TextBox1.SetFocus [Forms]![MainForm].[Subform].TextBox1.Text = rs.Fields!d1 rs.MoveNext Loop End Sub I've searched quite a bit online, and can't quite figure out what I'm doing wrong. Any help is greatly appreciated. Thanks! vba ms-access share|improve this question asked Dec 13 '13 at 0:13 tysonwright 104 add a comment| 1 Answer 1 active oldest votes up vote 0 down vote accepted Try referring instead to [Forms]![MainForm].[Subform].Form.TextBox1 [Subform] refers to the object on Mainform. You need to qualify it with Form to refer to objects within it. share|improve this