Threads Replies Last Post 17 Pages: 1  2  3  4  5  6  7  8  9  10  11  12  13  14  15  16  17   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 12.09.2006 07:15:03 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 11.09.2006 17:05:03 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 11.09.2006 02:49:43 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 09.09.2006 16:27:23 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 09.09.2006 08:51:09 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 07.09.2006 20:18:10 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 07.09.2006 15:46:38 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 06.09.2006 23:54:31 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 06.09.2006 16:58:15 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 06.09.2006 12:13:04 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 06.09.2006 09:47:02 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 05.09.2006 19:55:11 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 05.09.2006 07:42:16 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 04.09.2006 12:13:05 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 02.09.2006 06:32:44 Programatically send email How do I use VBA to programmatically compose and send an email? Kan ... 3 01.09.2006 01:27:45 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 31.08.2006 22:51:52 Memory problems with Access Hi everyone, I'm having a really strange problem with Access recently, and I'm hoping someone can maybe point me in the right direction. First, let me say that this is a huge project involving lots of custom-built VB DLL's, the Redemption EMAPI library, Outlook, etc., so Access itself may not directly be the problem. Access/Outlook XP, VB6 SP6, not sure which version of Redemption off-... 8 31.08.2006 22:13:03 Dynamic evaluation of formula stored in table row Hi everyone, wondering if anyone knows of a solution to evaluate a formula stored in a table row, such as this formula which could be stored in a OrderLine type table, which is associated with an Order table, and where the data is shown in master-detail format: ${Parent.[Length]}*[UnitPrice] This formula would then look up the parent row of the row in the subform, get the Length f... 2 30.08.2006 03:39:30 API Calls Anybody know of a URL that lists all the API calls for that can be used in VBA? Kan ... 5 29.08.2006 21:32:45 Looping through a directory What VBA code do I use to loop through each directory of a given path, and find a specific file? Thanks, Kan ... 2 29.08.2006 15:52:37 Picture in a Table I have a database with in a table a field for pictures. how can i load automaticle pictures from a web page in to a table yousing VBA. i now the path from the picture. Koen ... 1 29.08.2006 14:54:02 Run-time error '3045' 1. I'm using the DCount function to access a value in a LINKED TABLE. 2. I have READ ONLY access to the database which the linked table is linked to. 3. If the database that the table is linked to is currently open on another machine, and when the line of code that uses the DCount function executes, I get the following error message: Run-time error '3045': Could not use ... 2 27.08.2006 01:37:53 code descr Could someone briefly describe to me what this code is doing? Public Sub LinkODBCTable(tableName As String) Dim dbs As Database Dim dbsODBC As Database Dim tdfAccess As TableDef Set dbs = CurrentDb Set dbsODBC = OpenDatabase("DBLO02P", dbDriverCompleteRequired, False, "ODBC;DSN=DBLO02P") For Each tdfODBC In dbsODBC.TableDefs If tdfODB... 3 26.08.2006 03:09:58 Set optional value in function, how to? I have function below. I want to set the default value of the second date paramerter to take the current date if second date is not supplied. It doen't work Public Function GetElapeDateInDay(StartDate As Date, Optional EndDate As Date = Date) As Long GetElapeDateInDay = DateDiff("d", StartDate, EndDate) End Function SF ... 5 25.08.2006 22:47:28 17 Pages: 1  2  3  4  5  6  7  8  9  10  11  12  13  14  15  16  17