I have a program running with VBA coding, whereby the user enter a password which then sets the field attributes to enable the user to change them.
This is working on my laptop, on the client's LAN, it also worked through REMOTE DESKTOP, but the Head Office installed new PCs and now the REMOTE DESKTOP cause a problem.
message "cannot find the object "." ". I have looked in the VBA for the Report I am working with and the form that has the underlying data and cannot find the rouge period! I am creating a label for payment envelopes that is gets its data from the form that indicates payments made
Basically I have a form where a user has selected a couple values from a dropdown element, and entered a few other text values into the form. I am then trying to grab the values and append them to a table.
Code: Private Sub btnSubmitInputVendorPerformanceForm_Click() 'Button Is part of frmInputVendorPerformance Dim ValueCheck As Integer 'Increments to make sure no errors in entry Dim ErrorShow As String Dim YesorNoAnswerToMessageBox As String Dim QuestionToMessageBox As String Dim DeliveryRate As String
I am trying to create a txt file to import into our accounting software. I get the file (its blank), but it fails on the WriteLine and i get the run time error. I have a command button on a form that the user will click to export the file.
Private Sub cmdExport_Click() Dim cnn As New ADODB.Connection Dim rst As New ADODB.Recordset Dim strPath As String Dim strPathGB As String
I have a strange behaviour on a module which reference to Microsoft Outlook Object Library 14.0. The below code got an error 461 on the folderoutlook.display code,i.e. the method is not found. The funny thing is that the same code gives no problem in another accdb file, exactly same code with same reference on same machine.
Set appOutlook = GetObject(, "Outlook.Application") Set appOutlook = New Outlook.Application Set namespaceOutlook = appOutlook.GetNamespace("MAPI") Dim folderOutlook As Folder Set folderOutlook = namespaceOutlook.GetDefaultFolder(olFolderInbox) FolderOutlook.Display
I've got a form that takes the members from my members table and allows me to take attendance. I have it set up with toggle buttons in the footer (so we can see what class we're currently looking at) and I want to apply two filters when we click on a button. The two filters are "SS_Roll = Yes (or True)" and "SS_Class = AD1 (or whatever the class is)". I did some research and found one code for it, but now that I'm getting the missing object error and upon further research, I'm starting to think the code I found was only an excerpt. Below is the code I currently have. It highlights the first line when I hit debug.
Code:
Private Sub OptAD1_Click() Table![MembersTable].FilterOn = True Table![MembersTable].Filter = "[SS_Roll] = " & True And "[SS_Class] = " & AD1 End Sub
I have used the following script to export a subform to excel but it isn't working for a report.
The report name is spelled correctly etc... but the error message keeps saying error 2465 or if I enable the error handler it says application defined or object defined error.
I don't want to have to export the data to a table first, but if I have to then I guess I will have to.
Code: Sub fFunctionNameExportExcel(ctrl As IRibbonControl) 'print to excel Dim rst As DAO.Recordset Dim ApXL As Object Dim xlWBk As Object Dim xlWSh As Object Dim fld As DAO.Field Const xlCenter As Long = -4108
I have some code that will run if I am populating an empty table(no duplication's possible) but now I am trying to create a Sub to check for existence of a record and handling it going forward.
Anyways the big picture is looping through a text file and placing data where it needs to go. The code follows including some comments point to the issue.
Code: Sub PutinNewTag(TableIn As String, Tagtype As String, textline As String) Dim strSQL As String Dim NameIn As String Dim TagName As String Dim Db As DAO.Database Dim rstin As DAO.Recordset
I'm having an issue with the database being read only and a type mismatch due to OpenRecordset. I know this database use to work when it when it was just
CurrentSerNum = RecSet(0) +1 was doing the incrementing.
I need the database to increment in a different way now.
Q=manufacture location 1st number is new=0 or used=1 2nd and third number =82 4th is single digit year aka 2015 = 5 6 and 7th are work week aka 25 for this week 8,9,10 are incremental numbers for the units made that workweek, so 001,002,003. Then week 26 starts the increment starts back at 001.
Code: Private Sub MakeThoseProducts_Click() On Error GoTo Err_MakeThoseProducts_Click Dim NumericSerial As Double Dim WorkWeek As String Dim WorkYear As String Dim WorkWeekNumber As Integer Dim WorkYearNumber As Integer Dim Location As String
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 an unbound form: frm_ReceiptSearch with some fields that, when something is input, will search a datasheet viewed form on a subform on the main form (subform name is sf_frm_Receipts). Currently, on the txt_CheckNo field's after update event, I have the following code:
Private Sub txt_CheckNo_AfterUpdate() Dim SrchVar As String SrchVar = Me.txt_CheckNo Me!sf_frm_Receipts!REFNO.SetFocus DoCmd.FindRecord SrchVar, acEntire, , acSearchAll, , acCurrent, True End Sub
i have the following code and i have the below error:
can't find the project or library in red part
Code: Option Compare Database Option Explicit Function DatumUmwandeln(Datumstring As Variant) As String Dim Monat, Tag, Jahr As String If Datumstring <> "" Then Tag = Format$(Datumstring, "dd")
I have an intermittent error occurring on an Access 2k form giving the error message "cant find the macro '.'" although there are no macros on the form. After much trawling around I believe this may be due to a space being mis-keyed into one of the event properties of one of the form’s controls but I have looked at each to no avail. My question is therefore two fold:
1. If this is due to a space being keyed how do I, in code, step through each control and it's events looking for it?, or, 2. If it's not a space what else could it be.
The form opens and works Ok most of the time, the db compacts and repairs and compiles to an MDE and the error appears to not be linked to any one control or event but seems to be triggered more often than not if move from the tab order through use of the mouse.
Ideally I don’t want to redo the form or copy the database objects into a new db as there are too many.
Any help gratefully received.
NB This query was originally posted to the vba section without much success apart from a rebuild suggestion gratefully received from WayneRyan. I thought this was a vba error but may be a macro issue, a form error or could be a general problem so apologies if this is not the correct forum, if incorrectly placed Moderators please feel free to move it
Error 91 - Object variable or With block variable not set
I am getting this error telling me that an object variable is not set.
I know which variable it is but when I step through the debugger it sets the variable and all is fine? Issue is that public variable of a class is not getting set when the VBA Editor is not open?
I am creating an form in a database and whenever one of my procedure's run it creates this error message:
The expression ON Load you entered as the event property setting produced the following error: Member already exists in an object module from which this object module derives.
*The expression may not result in the name of a macro, the name of a user-defined function, or [event Procedure]. *There may have been an error evaluating the function, event, or macro.
I am wondering if there is a quick way to find a database object (table, query, form, report) other than having to scroll through them in the database window.
E.g. I have many many queries and when I need to find one to make changes to it, it often takes me a while to find it when scrolling thru the queries in the database window.
Has anyone ever programmed anything whereby you can type in the object type and name and then it will be highlighted in the database window?
I have an App that runs a few action queries using:
Code: CurrentDb.Execute "[My Query Name]"
At some point I get this Error: The Microsoft Access database engine cannot find the input table or query <name>. Make sure it exists and that its name is spelled correctly. (Error 3078).The query is there, I can run it from the DB objects window.Queries run using CurrentDb.Execute earlier in the code.
SELECT [tbl_AccountsInCurrentOutline].[CurrentAccounts] FROM tbl_AccountsInCurrentOutline WHERE tbl_AccountsInCurrentOutline.CurrentAccounts NOT in (Select * from tbl_CoAAccounts.CoaAccounts) AND tbl_AccountsInCurrentOutline.CurrentAccounts NOT in (Select * from tbl_AccountsWithData) ;
All the tables used in the query are fine and all the field names are fine yet I get the error:
"Could not find file 'C:Documents and SettingsmjineshMyDocuments bl_CoAAccounts.mdb"
Why is Access think that the table tbl_CoAAccounts (used in the query) is an mdb file? If I remove the first condition form the WHERE clause..the query works...I guess itwould be something really silly but its just not clicking !!
I was wondering if anyone can help with this code. I am sure it is something simple. It works fine until the last line the (x1down) line. I am not sure what I am missing there. I got that code by recording a macro in excel. It simulates the shift/end/down keystroke which will select all fields that are in the same condition (blank or containing data) as the cell you start at.
The error I get is runtime error '424' - object required
Anyway...hope you can help. Thanks.
Dim opensheet As Object
Set opensheet = GetObject("\Netstore rainingdocsRobDataopen.xls")
Hello, i develope with ACCESS2003, i used the printer object : dim xxxx as printer, it works fine but when i install my program on my client PC which doesn't have ACCESS2003 but only ACCESS RUNTIME2003 i have an error (error c++ ... run-time terminates abnormaly), this PC have ACCESS2000 and when i run my base through ACCESS2000 to debug it i have an error (undefined object) on the dim instruction. I was thinking all aplication developed with A2003 was running with run-time2003, apparently no, is something missing ? Thanks in advance for any help. VINCENT
I am Embedding OLE objects (PDF files) into a table and am having errors that state
"A problem occoured while Microsoft Office Access was communicating with the OLE server or ActiveX Control."
From what I can see there is not a problem with The OLE server, so the only thing I can think of is that I have hit my limit of OLE objects. I have only got 81 records but will need more like 400 - 1000.