Threads Replies Last Post 26 Pages: 1  2  3  4  5  6  7  8  9  10  11  12  13  14  15  16  17  18  19  20  21  22  23  24  25  26   Error6 - overflow Hello All I have a complex module which runs fine 95% of the time. The other 5% I get "Error6 - overflow" - then the module 'seems' to proceed OK. I tried putting a breakpoint in the module (with F9), then doing F8 to proceed one row at a time. I thought this would point me to the place where the overflow occurs. I found that the module entered a loop and seemingly could not get out - no m... 14 9/15/2006 3:16:01 PM Action: TransferSpreadsheet, Transfer Type: Import I have a Module which uses TransferSpreadsheet to imports an Excel file and it works fine, however I want to import multiple xls files which are all the same just with different data. What I would like to do is to use a Module that imports all xls files in a directory, this way I don't have to import one file at a time and then I can save the file to another directory for reference. The... 7 9/14/2006 11:16:43 PM Time out on message box? Hi. I have developed an Access application which gives quite a few "Ok" messages after the user have completed different tasks. My users are kind of "click" tired, and I wonder if it's possible to show an MsgBox only for a second before it disappears automatically? Any hints appreciated Kind regards Mr. Smith ... 4 9/14/2006 7:10:42 PM access97 to 2003 Hi all. I am in the process of updating an access 97 database to access 2003. Unitaddr is a linked foxpro table. I am looking for the city based on the field unit in that table(this is the numeric representation of a location). The following function worked fine in 97, but will not compile in 2003 on the rs.city line. Function fnCity(RUnit) On Error Resume Next Dim DB As Database Dim... 6 9/14/2006 1:32:00 PM RECALC in a subform shut's down the application without raizing any error messeg in some computers command RECALC in a subform shut's down the application without raizing any error messeg. what is missing? thanks ... 1 9/13/2006 8:11:12 PM helpfile in msgbox (A conclusion) In the folowing code I noticed something wierd happened. First. The myfile.hlp is it is in Greek letters prompts for help location only once. When You entered the location and you don't change it then never again prompts. Second. If the file location is in network drive for example \\myserver\myfile.hlp etc then even if you use Latin letters not Greek leters it prompts for new location. ... 1 9/13/2006 4:17:13 PM helpfile in msgbox I have a code where I define where exactly the help file is (by default in current directory where the database is). In the forms in the help file field there is no problem Event when I change the location of the database. On the contrary on msgboxs the help file can't be located. Once I redefine the location then it's Ok. MsgBox("Show message", vbCritical + vbYesNo + vbDefaultButton2 ... 3 9/12/2006 9:38:37 PM Exporting Text in BLOB field to tab-delim text? [Access newbie] I'm trying to export legacy data from an Access 2000 database to tab-delim (en route to cleaning it in Excel). I've problems as some text won't export as it was stored in BLOB fields. Why I don't know - it's only small amounts of plain text - 3-4 paragraphs at max. I'm wondering if I could add a new memo field to the table in question and then iterate the table using ... 21 9/12/2006 4:10:08 PM Error handler Hello All I am having a problem trying to capture the error that results from attempting to open a report with code when there is no data for the report and the OnNoData event is Cancel=True. Where there is a button to open the report, I am used to adding the line If Err = 2501 Then Err.Clear to the error handler, and 'remming out' the 'MsgBox Err.Description' line. I now have a sub sHa... 3 9/12/2006 7:15:03 AM Validating Date Format in an Input Box I want to be sure the user is using the correct Date format when completing an Input Box. How can I test the Date Format? Code: EMISCurDate = InputBox("Enter Date for New EMIS Records " & Chr(10) & Chr(13) & _ "Use MM/DD/YYYY format", "Enter EMIS Date", dtEMISDate) ' Check for the Proper Date Format If EMISCurDate = Format(EMISCurDate, "\#mm\/dd\/yyyy\#") Then ... 9 9/11/2006 5:05:03 PM Access and VB Ok I an new to this and need a little help.... I have customised the following code but I dont know how to implement in to the access form, do I put the code behind a command button? Any help is much appreciated. Function OnHand(vProductID As Variant, Optional vAsOfDate As Variant) As Long 'Purpose: Return the quantity-on-hand for a product. 'Arguments: vProductID = the pro... 27 9/11/2006 2:49:43 AM Ms Access HElp Reposted Allen, Thank you for you help I have managed to get it up and working!! Can I ask you another questiong re your AppInventory? I was to create a report based on the stock tootals created what is the best way of doing this as the code which you provide requires for you to enter the prouct code in order to get a total. Any advice is much appreciated! Thanks again "Allen Browne" &l... 1 9/9/2006 4:27:23 PM build criterium programatic. with query builder Hi everybody, is there any way with VBA to open query buider (of access 2k) and then get the SQL Result, or criterium? What I mean, is the same way as when we click on Special filter, Acces open query builder window, then ... But I want to have the result String. Thanks Nhan ... 7 9/9/2006 8:51:09 AM Double Metaphone Hello All, I need to verify that a client name has not been already entered into our database. Since spelling can be creative at best I was told that the Double Metaphone method of comparison works reasonably well. Does anyone have a VBA example of this that they would be willing to share? Thanks in advance. Brian... 2 9/7/2006 8:18:10 PM Decimal Places in subform I have a form with two subforms, the first for Reciepts and the second for Issues. The unit of the Inventory Items can be Ea, when I want to display with no decimal places or Kg, when I want three decimal places. I have tried changing form_name.subform_name.Controls(control_name).DecimalPlaces and when I display the settings it is correct, but has no effect on the displayed form. Am I... 3 9/7/2006 3:46:38 PM VBA You entered an expression which has no value I have setup a form and created a text box called ItemCode I have set the control source to be =OnHand([ProductID]) When I load the page with the following code I get the above error VBA You entered an expression which has no value. Can anyone help me out hear I nearly have no hair left!!! Function Onhand(VProductID As Variant, Optional vAsOfDate As Variant) As Long 'Purpose:... 10 9/6/2006 11:54:31 PM Struggling to print current record, please help! I'm trying to understand the mechanics of printing the current record in a form. I created a macro that works, then did a Save As and saved it as a module. This is what I get, and it works. ++++++++++++++++++++ DoCmd.Save , "" DoCmd.OpenReport "rpt_PurchaseOrderReport", acViewNormal, "", "[PurchaseOrderID]=[Forms]![frm_PurchaseOrder]![PurchaseOrderID]", acNormal ++++++++++++++++++++ ... 2 9/6/2006 4:58:15 PM Compile error I have a database which until today worked properly if not perfectly. Today I have made fairly small changes in one form and another form which is opened by the first one. As soon as I try to compile the vba, I get a "do you wnt to send this error to Microsoft" screen, which is not too helpful. I have put the called form in a separate database and it works OK. The first form works OK ... 4 9/6/2006 12:13:04 PM Help with code I have the following code to select a file. The code works fine except that I want to retain the last folder that I have opened. Could someonw advice? Private Sub cmdBrowse_Click() Dim strFilter As String Dim lngFlags As Long strFilter = ahtAddFilterItem(strFilter, "Word Files (*.doc, *.dot)", _ "*.DOC;*.DOT") strFilter = ahtAddFilterItem(strFilter, "... 2 9/6/2006 9:47:02 AM Domain aggregate function to count unique values? If I were using the UI, I would create a Totals query to find the number of unique values in a field, but I want to put that number into a variable in my code. Is there any way to do that using a Domain Aggregate function, or do I have to create a recordset based on a Totals query, and open the recordset and read the first record? Thank you. ... 3 9/5/2006 7:55:11 PM Access help! Ok, I have looked at this and customised it I think correctly, do I put the code under the click event of a command button? Sorry new to this and getting to know the ins and outs. Thanks "ruralguy via AccessMonster.com" <u12102@uwe> wrote in message news:65cb79e35d4ab@uwe... > MVP Allen Browne covers this pretty well. > http://allenbrowne.com/AppInventory.html > &g... 3 9/5/2006 7:42:16 AM Add field to linked table I have recently split my database into front and backend. However, I used to occasionally add a new field to a table using vba code (the code worked fine) Set tdfAllPrices = db.TableDefs("tblAllPrices") 'Add the new field to tblAllPrices Set fldShare = tdfAllPrices.CreateField(strNewShareID, dbCurrency) tdfAllPrices.Fields.Append fldShare Set prpCaption = fldSha... 12 9/4/2006 12:13:05 PM Security-Is there a better way? Does anyone know of a better way to secure an Access database than Microsoft's built-in security system? Although the Microsoft Access Database Security system works, it is cumbersome. If one is trying to open a secure database and is not set up for the right ‘mdw’, then all he/she gets is a message saying that he can’t open the file. If he sets the mdw to the one for the secur... 7 9/2/2006 6:32:44 AM Programatically send email How do I use VBA to programmatically compose and send an email? Kan ... 3 9/1/2006 1:27:45 AM I need help "BAD" I am trying to automate this process of sending e-mails to all of the our Sales Managers. but i keep getting an error when i try. what am I doing wrong? here is the code... --------------------------------------------------------- Option Compare Database Option Explicit Sub CreateSnapShots() Dim db As Database Set db = CurrentDb Dim rc As Recordset Dim strDSM As ... 3 8/31/2006 10:51:52 PM 26 Pages: 1  2  3  4  5  6  7  8  9  10  11  12  13  14  15  16  17  18  19  20  21  22  23  24  25  26