MSGROUPS.NET | Post Question | Search | About | Groups | Contact | Register | Login



microsoft public excel misc (5666)

microsoft public outlook general (4816)

microsoft public excel programming (4187)

microsoft public word docmanagement (3506)

microsoft public excel worksheet functions (3180)

microsoft public access (3139)

microsoft public windowsxp general (2033)

microsoft public windows vista mail (1618)

microsoft public office misc (1571)

microsoft public windows vista general (1507)

microsoft public windows live mail desktop (1354)

microsoft public access queries (1319)

microsoft public powerpoint (1268)

microsoft public access formscoding (1206)

microsoft public mac office entourage (1193)

microsoft public dotnet languages csharp (1174)

microsoft public access forms (1153)

microsoft public internetexplorer general (1123)

microsoft public access modulesdaovba (1065)

microsoft public windows server sbs (1060)

microsoft public greatplains (1045)

microsoft public mac office word (1018)

microsoft public outlook calendaring (961)

microsoft public excel (928)

microsoft public sqlserver programming (897)

microsoft public project server (874)

microsoft public windowsupdate (812)

microsoft public windowsxp help and support (798)

microsoft public windowsmedia player (781)

microsoft public project (772)

microsoft public mac office excel (759)

microsoft public access reports (758)

microsoft public exchange admin (747)

microsoft public dotnet framework aspnet (736)

microsoft public sqlserver server (700)

microsoft public outlook (697)

microsoft public outlook contacts (678)

microsoft public dataprotectionmanager (659)

microsoft public word vba general (635)

microsoft public windows server general (628)

microsoft public windows server active directory (586)

microsoft public outlook installation (580)

microsoft public word newusers (560)

microsoft public publisher (517)

microsoft public excel newusers (507)

microsoft public excel charting (499)

microsoft public word pagelayout (494)

microsoft public dotnet languages vb (464)

microsoft public vb general discussion (457)

microsoft public development device drivers (444)

microsoft public office setup (430)

microsoft public word application errors (428)

microsoft public sharepoint general (426)

microsoft public windowsce platbuilder (409)

microsoft public access gettingstarted (407)

microsoft public windows powershell (400)

microsoft public frontpage client (391)

microsoft public onenote (391)

microsoft public sqlserver reportingsvcs (382)

microsoft public outlookexpress general (369)

microsoft public access tablesdbdesign (352)

microsoft public pos (352)

microsoft public vc mfc (346)

microsoft public outlook program vba (341)

microsoft public windows live messenger (324)

microsoft public money (309)

microsoft public windowsxp hardware (299)

microsoft public windows 64bit general (295)

microsoft public scripting vbscript (289)

microsoft public windowsxp basics (236)

microsoft public windows mediacenter (230)

microsoft public dotnet general (225)

microsoft public mac office (198)

microsoft public nntp test (195)

microsoft public windows inetexplorer ie6 outlookexpress (191)

microsoft public windows vista music pictures video (153)

microsoft public win98 gen discussion (153)

microsoft public sharepoint setup and administration (139)

microsoft public windows vista hardware devices (130)

microsoft public dotnet framework (104)

microsoft public windows vista performance maintenance (97)

microsoft public visio (89)

microsoft public access 3rdpartyusrgrp (73)

microsoft public dotnet xml (59)

microsoft public access conversion (56)

microsoft public pt windowsxp (36)

microsoft public windows live photogallery (32)

microsoft public access developers toolkitode (31)

microsoft public dotnet faqs (15)

microsoft public dotnet framework aspnet datagridcontrol (10)


microsoft.public.access.modulesdaovba Post New
Items(1063) /11 Next >> Last >|
Subject Posted Replies From
ActiveX Error 429

Hello, I have a problem with the following error message: "Active X component can't create object. Error number is 429." The database is in Access 2003 SP3. The OS is Windows XP SP3. This message is appearing on one computer only. The same database successfully works on three other computers with the following combinations: Windows XP SP3, Office 2007 SP2 Windows XP x64, Office 2003 SP3 Windows 7, Office 2003 SP3 There are no missing References. All the XP computers are up to date in terms of updates and patches. The error message appears after I use the BrowseFolder fu

3/11/2010 7:05:55 AM 0 "biganthony" <u31...@uwe>



Search Form Result to excel - Item not found - Where to start

Hi, I have a search form and have been given the task of getting the searched filtered records to an excel spreadsheet. I am getting "Item Not Found In This Collection" and do not know where to start to find the reason. I have taken the following and adapted from another working similar application. ' this is to send the forms results to an excel spreadsheet Dim dbsCurrent As DAO.Database Dim qryTest As QueryDef Dim SQL As String Dim QueryStringSelect As String Dim QueryStringFrom As String Dim QueryStringWhere As String 'output filtered data if some filtering is in place

3/11/2010 2:38:01 AM 1 =?Utf-8?B?QmlsbHA=?= <Bi...@discussions.microsoft.com>
Acces 2007 performance

After converting an Access 2003 application and data table to Access 2007, queries became extremely slow. This is a split application; front end runs local and tables are in a remote server. A simple query on a data table with 220 records returning two records, took more than 2 minutes to complete. The same query linking the database to an Access 2003 table, running on the same network starting at the same time took just a few seconds to execute. I converted to Access 2007, expecting better performance. Any ideas, any settings I should e aware of, any changes in SQL coding, ...?

3/11/2010 12:57:01 AM 0 =?Utf-8?B?Q2VzYXI=?= <Ce...@discussions.microsoft.com>
Filter number range causing runtime rror in search form

Hi, If I run the following 'Number example. If Not IsNull(Me.txtPCode) Then strWhere = strWhere & "([Address5] >= " & Me.txtPCode & " ) AND " End If 'Number field example. If Not IsNull(Me.txtPCodeEnd) Then 'Less than the next. strWhere = strWhere & "([Address5] <= " & Me.txtPCodeEnd & ") AND " End If I get a runtime "You Cancelled the previous operation. However if I replace with 'Text field example. Use Like to find anywhere in the field. 'If Not IsNull(Me.txtPCode) Then 'strWhere = strWhere & "([Address5] Like ""*" & Me.

3/10/2010 11:53:08 PM 4 =?Utf-8?B?QmlsbHA=?= <Bi...@discussions.microsoft.com>
Open/close Navigation Pane programatically

I'm using the following VBA code to establish a link from a field Access database to a main office Access database: DoCmd.TransferDatabase acLink, "Microsoft Access", "G:\ThePath\Transaction Database.accdb", acTable, "tblInputNDETrans", "tblInputNDETrans" As soon as the line starts to execute, the Navigation Pane pops open (even though I have it turned off in "Access Options") exposing the field database objects to who knows what. I really don't ever want this to happen for obvious security reasons. Is there a way to control the Navigation Panel with VBA or does someone have

3/10/2010 11:20:48 PM 0 =?Utf-8?B?YWNjZXNzd2FuYWJl?= <accesswan...@discussions.microsoft.com>
Old Question

On Novembre 04th 2009, I posted one Question labeld "Error 2001, Access 2007, Subform Bookmark", that had some replays from Jeanette Cunningham. Today I looked for them to review again, but they are not anymore available. I googled them I found that other sites still have them, but you don´t. What I have to do to continue with my request. Regards.

3/10/2010 11:05:01 PM 1 =?Utf-8?B?Sm9zZSBBbnRvbmlvIFZpYWw=?= <JoseAntonioV...@discussions.microsoft.com>
Form-Timer; run multiple macros.

I am attempting to use the below code for a scheduled db; depending on the date/day, it is supposed to run the corresponding macro. Now, the 1st one (weekly) is working/running. But I set up a second scheduled task to handle the monthly macros, and nothing happens. Private Sub Form_Timer() If Weekday(Date) = 2 Then DoCmd.RunMacro "mcrRun_Data-Weekly" If Weekday(Date) = 4 Then DoCmd.RunMacro "mcrRun_Data-Monthly" If Month(Date) = 3 Then DoCmd.RunMacro "mcrRun_Data-Monthly2" If Month(Date) = 9 Then DoCmd.Run

3/10/2010 9:27:04 PM 1 "a0a349 via AccessMonster.com" <u57...@uwe>
Inserting value of an unbound Textbox

hi, i got a form in which a integer value (Number) is being calculated based on the unput the user is giving in the different fields, now i want to insert this data in a field in my table, when the input is saved any bright ideas?

3/10/2010 6:46:07 PM 1 =?Utf-8?B?QWRkeQ==?= <A...@discussions.microsoft.com>
Unlink and Relink

I have Access 2007 on WindowsXP system. I have a main database with several other databases linked to it. Because I am still addressing some issues or adding new features, when I do this type of construction on the main database it locks the other users out from using the linked tables in the other databases. My solution is to programmatically copy the database file to a temporary folder, unlink the linked tables. Once the revisions have been made I want to relink the tables and upload the revised database back to the server and delete from temp folder. I have created a datab

3/10/2010 6:44:01 PM 1 =?Utf-8?B?S2F5a2F5bWU=?= <Kayka...@discussions.microsoft.com>
Writing to Excel header w/A2000 VBA

I need to transfer data from an Access table to an Excel spreadsheet for a customer. This was easy until the customer asked me to put the first data in A1 cell and put some text and barcode above it. That forces me to write to the spreadsheet header and I'm not sure how to do that. Can someone point me to a Help topic for this or give me an example to work with. Thanks.

3/10/2010 5:01:03 PM 4 =?Utf-8?B?UGFzdG9yIERlbA==?= <Pastor...@discussions.microsoft.com>
Getting values from Excel worksheet

In an Access 2007 database I'm trying to retrieve some values from an Excel workbook. My code opens the workbook finds the desired column and row, but when I try to retrieve the value of the target cell I get an Application-defined or Object-defined error message. If anyone can point out where I'm going wrong here, I'd be very appreciative. My code follows. TIA, Ken Public Function fGetPromotionValue(dPromotionWeek As Date, strExcelWorksheet As String, strExcelRange As String) As Variant On Error GoTo PROC_ERROR Dim strFile As String Dim objXL As Object

3/10/2010 1:43:01 PM 4 =?Utf-8?B?S2VuIFdhcnRoZW4=?= <KenWart...@discussions.microsoft.com>
Search Criteria - Yes/No - Allen Browne Form Example

Hi, Not sure if anyone is familiar with this application - wonderful piece of useful that has saved many a problem for searching. Not sure if this question out of left field can be done - here goes, In the example of the yes/no. Say I have series of check boxes that represent Sales people DK SS MM NM TW On one line. And I want to be able to search for the lines that have TW. Is it possible to have the combobox as a drop down that has these initials in it - and once selected it looks at the 5 checkboxes and filters only that which is selected. Its a space problem I hav

3/10/2010 5:18:01 AM 1 =?Utf-8?B?QmlsbHA=?= <Bi...@discussions.microsoft.com>
How do you create a free runing program in Access?

I understand there is a way to create a program in Access that a user does not need Access in order to run. Does anyone know how?

3/10/2010 12:44:01 AM 3 =?Utf-8?B?SFQ=?= <...@discussions.microsoft.com>
list box

I have a list box, upon whose selection determines the contents of another list box. If there is only one value given in the second list box, I would like it to be automatically selected... any advice? Thanks!

3/9/2010 11:59:12 PM 1 =?Utf-8?B?V2F2ZXF1YXRpb24=?= <Wavequat...@discussions.microsoft.com>
"me." doesn't work

I write a lot of VBA. I find it very useful to start lines referring to the object I'm writing with "me." so that I can get the list of properties and methods. In the project I'm currently working on, this has suddenly stopped working. I type "me." and nothing happens. I can't figure out if I've accidentally disabled a feature or something like that. Anyone have any ideas? Thanks much in advance.

3/9/2010 11:24:01 PM 6 =?Utf-8?B?YWNjZXNzd2FuYWJl?= <accesswan...@discussions.microsoft.com>
run a forms control events

I have a control on a form that runs on the "after update" event. I am using code from another form to add a value to the control, but if the control is updated programmatically, the "after update" event code doesn't run. Why doesn't it run automatically, and what can be done to make it run....

3/9/2010 11:17:01 PM 3 =?Utf-8?B?V2F2ZXF1YXRpb24=?= <Wavequat...@discussions.microsoft.com>
Restricting Access database users from seeing Switchboard Reports

I have assigned four AccessLevels to my database. I only want those with Admin - AccessLevelID 4 to be able to view the reports on the Switchboard. I've tried to write the code, with no luck. I've tried different Event Properties etc. On my Switchboard Items fields, Switchboard ID is 4, ItemNumber is 0, ItemText is Reports, Command is 0 and Argument is blank. upload If AccessLevelID = 4 Then Me.[Argument].[4].Visible = True Else Me.[Argument].[4].Visible = False End If

3/9/2010 9:02:01 PM 1 =?Utf-8?B?UGVkdzQyMjA=?= <Pedw4...@discussions.microsoft.com>
iif expression and time format

I have a table with a time field that displays a long form time (12:00:00 AM) by default. Through a query I want to build a work shift field for grouping these records. Below is an expression, but I know the time format is wrong. What format do I use? iif(([AccTime]between 6:01 and 18:00), "Day", "Night") -- TDC

3/9/2010 8:11:01 PM 1 =?Utf-8?B?VERD?= <...@discussions.microsoft.com>
Image Orientation

How can I determine programmatically the orientation of an image -Portrait/landscape- on my hard drive? Thanks

3/9/2010 7:47:01 PM 1 =?Utf-8?B?SmVzcw==?= <J...@discussions.microsoft.com>
IMAGE ORIENTATION

How can I determine programmatically the orientation of an image -Portrait/landscape- on my hard drive? Thanks ---------------- This post is a suggestion for Microsoft, and Microsoft responds to the suggestions with the most votes. To vote for this suggestion, click the "I Agree" button in the message pane. If you do not see the button, follow this link to open the suggestion in the Microsoft Web-based Newsreader and then click "I Agree" in the message pane. http://www.microsoft.com/office/community/en-us/default.mspx?mid=33a7aa71-c5a2-439c-83fc-57fa7c1699dd&dg=microsoft.pu

3/9/2010 7:14:01 PM 0 =?Utf-8?B?SmVzcw==?= <J...@discussions.microsoft.com>
Alternative for MS Excel VLOOKUP function in MS Access 2003

I am converting several MS Excel spreadsheets into a single MS Access 2003 database for a User. The User’s original MS Excel VLOOKUP query is coded as follows: =IF(VLOOKUP(EG2,EH:EI,2,FALSE)=B2,"Good",VLOOKUP(EG2,EH:EI,2,FALSE)) New MS Access Table Name: 0301_ElectricitySupply_FeatureLine-up Field names for MS Excel and MS Access are as follows: MS Excel Cell: MS Access Field: A2 Verify Config “A2” is VLOOKUP function listed above. MS Excel Cell: MS Access Field: B2 Config No Example: B2 / Config No: MTU0301-0010 Note: This number is a

3/9/2010 4:54:01 PM 1 =?Utf-8?B?Q0JlbmRlcg==?= <CBen...@discussions.microsoft.com>
Tool bars

Is there a way to know if a user has certain tool bars enabled? I want to control which tool bars are visible when my application is being used and restore the user's settings when they close my application.

3/9/2010 4:35:01 PM 2 =?Utf-8?B?UGFzdG9yIERlbA==?= <Pastor...@discussions.microsoft.com>
Subforms

If you have a main form and sub form, and if updating the data in the subform causes related data in the main form to change after a macro procedure, how do you get the data in the main form to update? The underlying query has parameters, so I don't want to re-run the query during an update, because that would force the user to re-enter the parameters every time the recordset is updated.

3/9/2010 3:42:06 PM 1 =?Utf-8?B?RFc=?= <...@discussions.microsoft.com>
Constants

Hi All, I have a form called frmWeekly on the VBA window for this form, i have a Sub which sends an email, the code pulls of certain information from the forms such as receipient txtTo, subject txtSubject etc. I have a lot of information such as 'Path' information that i use repeatedly through this code and other subs on this and other forms. I would like to declare the path as a constant, i have opened a new module and added: Public Const strPathReports As String = "Y:\Shared\Tsoi01\TEAMDATA\Onstream Management Information\Reports\Current Year\Weekly\" However when i u

3/9/2010 10:37:01 AM 2 =?Utf-8?B?RW1tYSBIb3Bl?= <EmmaH...@discussions.microsoft.com>
Subforms does not load on all computers via script.

I got a form with a subform(1) on it, that subform also contains a subform(2). On my Subform 1 i got a combo that loads via code a form into subform 2. My problem is that the database is used on multiple computers and the forms selected by the combo does not load on all computers. Thanks in advanced for any suggestions.

3/9/2010 10:19:01 AM 2 =?Utf-8?B?QmlsbHkgVmFuIFJlbnNidXJn?= <BillyVanRensb...@discussions.microsoft.com>
Recognize which form is calling the code

Hi - I have a contacts form that can be used to enter a new contact into the database. I have many forms throughout the system that may call this form at any time. I am writing some code and I want to save the name of the form that originally called the contacts form in a variable so I can pass control back to the original form. Can anyone help me with this? Thanks, Elizabeth

3/9/2010 3:14:01 AM 16 =?Utf-8?B?RWxpemFiZXRo?= <Elizab...@discussions.microsoft.com>
bold font for lotus notes email

I am using the following code in Access 2003 to send an email in Lotus notes. I want to bold some text, does anyone know how I can amend this code to allow for some bold text? Public Sub SendQtrNotesMail(Subject As String, Recipient As String, WL As String, SQA As String, _ DC As String, ADR As String, TDR As String, SafetyNote As String, QualityNote As String, _ ProdNote As String, SaveIt As Boolean) 'Set up the objects required for Automation into lotus notes Dim Maildb As Object 'The mail database Dim UserName As String 'The current users notes name Dim MailDbName

3/9/2010 2:29:09 AM 0 Opal <tmwel...@hotmail.com>
INSERT a Table (32 items) into another Table - Re subform

Hi, I have a form with a subform. The subform is linked parent to child. The subform has a field that has a combo box. From the combo there are two choices. On the after update if the selcetion is equal too "INSERT ALL ITEMS - 32 LINES" the idea is to take the contents of a separate table line by line and insert into the subform / subtable. I Have the following code If Me!cboProject_Notes.Column(0) = "INSERT ALL CHOICES - 32 LINES" Then 'do the input from the table tblProjectNotes_Default Set db = CurrentDb Set rst = db.OpenRecordset("tblProjectNotesDefault_1"

3/8/2010 11:51:01 PM 5 =?Utf-8?B?QmlsbHA=?= <Bi...@discussions.microsoft.com>
Holiday day tracking

I am trying to use the code below in my DB, modified to just check if the date is a holiday or weekend or workday. I am curious as to how the rst.FindFirst action is working, what tells it to goto the next record ? i thought it was findfirst then findnext ? But for my code i just want to check the date against a table of holiday dates. On Error GoTo Err_WorkingDays2 Dim intCount As Integer Dim rst As DAO.Recordset Dim DB As DAO.Database Set DB = CurrentDb Set rst = DB.OpenRecordset("SELECT [HolidayDate] FROM tblHolidays", dbOpenSnapshot) 'StartDate = StartDate + 1 'To c

3/8/2010 11:24:13 PM 2 "trevorC via AccessMonster.com" <u44...@uwe>
Why I can't send email from Access?

I have written some programming codes to email an Access form via Outlook, i.e., DoCmd SendObject acSendForm, "frmInformation", etc. There is a do while loop to send emails out depending on a condition. When the program is executed, the Outlook email interface does pop up. When I click on the Outlook's "Send" button, it pops up an error message, "The operation failed b/c of network or other communication problems. Verify your connections and try again". Can you help me to solve this problem? Thanks!

3/8/2010 10:17:02 PM 1 =?Utf-8?B?VGlt?= <...@discussions.microsoft.com>
Control to browse folders and files

Is there a built-in control in access that lets you browse folders and files? If not, can anybody point me to a free control available from the web? I am mainly looking a sophisticated –smart- control which can perform many tasks. I do not want to reinvent the wheel.

3/8/2010 9:43:01 PM 2 =?Utf-8?B?SmVzcw==?= <J...@discussions.microsoft.com>
How To Convert Access 2003 Application To Access 2007 Version

This office is converting to Office 2007. I have been asked to convert a current Access 2003 Application scheduling volunteers into something compatible with Office 2007. I have been given a virtual machine with the application loaded. I do not have any idea how to look at the VBA I wrote, run diagnostics or step thru the code in Office 2007. Can anyone suggest a book or web site that covers this topic. I am slightly above beginner status, so it will have to be fairly basic and step-by-step. As an example, how do I stop execution at the Current Event for my main page. Some

3/8/2010 9:34:01 PM 2 =?Utf-8?B?RWFybENQaGlsbGlwcw==?= <EarlCPhill...@discussions.microsoft.com>
Open a report in a different mdb

If this is possible, how would I do it using "DoCmd.OpenReport"?

3/8/2010 7:40:43 PM 2 "JimP" <j_pockm...@comcast.net>
Crosstab

How can I create a crosstab query that shows fiscal year from October to September on a report? -- Message posted via AccessMonster.com http://www.accessmonster.com/Uwe/Forums.aspx/access-modules/201003/1

3/8/2010 7:14:46 PM 3 "turks67 via AccessMonster.com" <u48...@uwe>
OpenRecordset notation question

hi I''ve borrowed some code that works fine, but I have a question. What does the '(0)' at the end of the following line mean? I can't find the answer in 'help'. Div = CurrentDb.OpenRecordset(strSQL)(0) Thankyou -- cinnie

3/8/2010 5:54:01 PM 3 =?Utf-8?B?Y2lubmll?= <cin...@discussions.microsoft.com>
VBA query trouble

I think I'm going blind. I have programmed SQL statements many times in the past, and for some reason I simply cannot get anything to work right now... I've reduced my code down to the most basic statement in order to get some kind of error code I can comprehend. My code, at the moment, is: docmd.runsql "Select * from MLS Sales" Can't get much simpler than that. However, when I try to run that command I get an error that says "A RunSQL action requires and argument consisting of an SQL Statement." Originally I did not use the "*" and had all my field identified. When

3/8/2010 5:53:01 PM 4 =?Utf-8?B?ZGF2ZV9i?= <da...@discussions.microsoft.com>
Dynamic Forms

Is there a way to create a dynamic form based on a crosstab query?

3/8/2010 5:32:01 PM 5 =?Utf-8?B?RFc=?= <...@discussions.microsoft.com>
Help to create and Insert New Target Date record in Subform

I am a newbie to programming in MSAccess. (I'm using Access2007). I have a mainform (ContentAreas) and a subform (UpdateDates). I also have a database table (DateSchedule). The Mainform contains a field: UpdateFrequency The Subform contains two fields: TargetDate and ActualDate The DateSchedule table is a list of dates and a "Usable" Yes/No field (to tell me if that date is a valid date for use) What I would like to do is when I update the "ActualDate" in the subform, I would like to calculate the next "TargetDate" by adding the "UpdateFrequency" to the current record's "T

3/8/2010 5:21:02 PM 0 =?Utf-8?B?cmJuZDIwMTA=?= <rbnd2...@discussions.microsoft.com>
Locked VBA causes Access to crash with ACCDE files

Good afternoon everyone, I discovered a problem today with Access when I tried to unlock the VBA project with an ACCDE file. Everytime I enter in the password, Access immediately crashes, and the Windows Error Solver/Report then pops up. This problem has happened consistently, and only with this file format; it does not happen with ACCDB files. I would like to know if this is a known problem, and whether there is a solution to this matter. Thanks in advance, Gene

3/8/2010 3:28:01 PM 1 =?Utf-8?B?Z2VuZWdhbA==?= <gene...@discussions.microsoft.com>
appending unbound combo query data to new record

This may be covered elsewhere, but my understanding of how to phrase the question is limited at best. To set the scene - this is a dB for a weekly running club. I have a table "RunDetails" (holds details of runners in an event) which has a lookup field (the date) bound to table "Runs" (details of the event itself). Form PersData displays the details of runners (name, etc). On this form I have two unbound texboxes (Bib and Distance) and a date combobox (cbo.rowsource is query from table 'Runs') and a button to enter their ID, and the contents of these unbound boxes into tabl

3/8/2010 1:15:01 PM 2 =?Utf-8?B?TWFya3lNYXJr?= <MarkyM...@discussions.microsoft.com>
TransferText XL To Access

I am using the 2007 version. What would be the correct syntax for importing data from an excel file? -- Thanx & Best Regards, Faraz!

3/8/2010 11:01:01 AM 2 =?Utf-8?B?RmFyYXogQWhtZWQgUXVyZXNoaQ==?= <FarazAhmedQure...@discussions.microsoft.com>
Compile Error ??

I used some code from Allen B. and it works fine in Access 2K3. However, it will not compile in 2K7. It fails at .Edit. Member or data object not found. What might I do to change/alter to comply with 2K& standards? Any help appreciated. Function UpdateGroupAlias() On Error GoTo UpdateGroupAlias_Err Dim strErrMsg As String 'For Error Handling Dim strSQL As String Dim intAlias As Integer Dim bytLevel As Byte Dim lngMakeID As Long Dim bytMaxColumns As Byte Dim pbytNumColumns As Byte Dim db As Database Dim rs As Recordset strSQL =

3/8/2010 3:04:01 AM 0 =?Utf-8?B?TkVXRVIgVVNFUg==?= <NEWERU...@discussions.microsoft.com>
Compile Error ??

I used some code from Allen B and it works in Access 2K3. However, it will not compile in 2K7. It fails at .Edit. Method or data member not found. What do I need to change/alter to conform to 2K7 standards? Function UpdateGroupAlias() On Error GoTo UpdateGroupAlias_Err Dim strErrMsg As String 'For Error Handling Dim strSQL As String Dim intAlias As Integer Dim bytLevel As Byte Dim lngMakeID As Long Dim bytMaxColumns As Byte Dim pbytNumColumns As Byte Dim db As Database Dim rs As Recordset strSQL = "Delete * from tblGroupAlias"

3/8/2010 2:59:07 AM 2 =?Utf-8?B?TkVXRVIgVVNFUg==?= <NEWERU...@discussions.microsoft.com>
calculating value in a query

how would i build a function that would calculate value which is basically aggregate summary per group ? Here is an example: Table Demand Item Qty Date aaa 10 03-mar-2010 aaa 7 05-mar-2010 aaa 5 12-mar-2010 ccc 8 06-mar-2010 ccc 12 09-mar-2010 Table On Hand Item Qty aaa 12 bbb 9 ccc 6 the result should be table Net Demand Item Qty Date (how to get column Qty) aaa 0 03-mar-2010 (12-10, left 2) aaa 5 05-mar-20 (7-2, left 0) aaa 5 12-mar

3/8/2010 2:40:01 AM 1 =?Utf-8?B?Y2xhbGM=?= <cl...@discussions.microsoft.com>
Looping through a Large recordset.

I have to loop through 4.2Million records updating as I go. In a Access 2003 .mdb file using DAO. The first 500,000 records process in 20min. as it continues to run it slows to a crawl processing 120,000 records per hour. Does anyone know of any fixes for this? or known issues?

3/8/2010 1:04:01 AM 2 =?Utf-8?B?RGVhbiBX?= <Dean ...@discussions.microsoft.com>
VBA for emailing to all involved poeple

I need to email Access forms that have informaton about a specific student to his teachers (T) and his teachers' superviors (S) of a specific Unit. All of T&S email addresses are in the same table. (T) are grouped into 3 Units 1,2, and 3 controlled by (S). As if it's not complicated enough, the stud infor's form is a form that have its own query. I need to VBA codes to be able to pull out email addresses of T and S of a specific Unit based on that studentID and send the form to his T and his T's S. Any suggestions would be greatly appreciated.

3/7/2010 9:54:01 PM 0 =?Utf-8?B?VGlt?= <...@discussions.microsoft.com>
Calling a form in variable

Hi all, I have some code that I want to share between various forms. My code looks like this in a single form: If Me!txtRef = "" Then Exit Sub End If Where txtRef is a text box value entered by users So I created a public procedure Public Sub TestRef (ByVal FormName as Form) If FormName!txtRef = "" Then Exit Sub End If End sub Then from my form frmTest I created an on click event: Call TestRef(frmTest) I receive a 424 execution error, Object required. What's wrong with this ? Thanks for your help Richard

3/6/2010 4:15:07 PM 2 "Richard" <lafta...@yahoo.fr>
Event Procedure

Hi, I am looking to insert [Event Procedure] for a form's event through VBA. Ideas on how it should be done welcome and appreciated. Thanks. -- Message posted via AccessMonster.com http://www.accessmonster.com/Uwe/Forums.aspx/access-modules/201003/1

3/6/2010 11:27:13 AM 5 "killeronloose via AccessMonster.com" <u58...@uwe>
how to make money

Whats up, wanna make lots of money in this bad economy??? well here is yor chance a recession proof way to make lots of money and spread the wealth... read this and you will know what I am talking about, trust me all you have to do is be honest and follow every step and before you know it you'll start getting money... I started out with $6. Now, I am making thousands. I found this on a bulletin board and decided to try it. A little while back, I was browsing through newsgroups, just like you are now, and came across an article similar to this that said you could make thousands of

3/5/2010 10:56:49 PM 0 "trxnate" <trxn...@aol.com>
Unprotect a Word Template

I posted something similar a few days ago, but it remains unresolved and has run out of steam. I will be more specific this time in the hope that someone can give me a quick and precise answer. How do I unprotect a Word Template (I know the password) from within Access (2003) so I can complete fields, and then re-protect the document so users cannot change anything? This does not need high security - it is simply a means of preventing changes after the data has left the database. The internal users will not dig deeply to bypass the password protection, and a copy of the print

3/5/2010 5:36:10 PM 3 =?Utf-8?B?Sk1DUw==?= <J...@discussions.microsoft.com>
Rowsource of combo box on subform

I'm trying to change a rowsource of an combobox of a subform: I've tried: Name form: FRM_ALLOWANCES Name controle subform: FRM_SUB_ALLOWANCES Controle on subform : CURSISTID Forms!FRM_ALLOWANCES!FRM_SUB_ALLOWANCES.CURSISTID.RecordSource = sSQL2 This gives me de error: Object Doesn't Support This Property or Method. What am I doing wrong? I've seen treads where it was suggested to ues rowsourse but is also nog doing the trick for me. Regards and thanks in advance -- Message posted via AccessMonster.com http://www.accessmonster.com/Uwe/Forums.aspx/access-modules/20100

3/5/2010 3:28:55 PM 4 "janiotjoeawie via AccessMonster.com" <u7...@uwe>
Retrieving Active Directory User Name into Access 2003 table

It seems like there would be an easy VBA call to do this, but I have not found it yet... I am trying to grab the Active Directory User Name (the user name that is used to log into WinXP professional by the user) in order to populate the user name in a transactional database. Is there some simple (or not simple) VBA code that is out there to accomplish this? Perhaps something internal to Access 2003?

3/5/2010 2:15:01 PM 6 =?Utf-8?B?c2hhd2tpbnM4NA==?= <shawkin...@discussions.microsoft.com>
Invoice number

Hello, The code below gives me an invoice number like: 20100301, 20100302, 20100302 etc... I want to add a letter in front of it, like S-20100301, S-20100302, S-20100302 etc... Please can somebody help me out to change the code below? TIA Betha Private Sub Form_BeforeInsert(Cancel As Integer) Dim tNummer As String tNummer = Format(Right(DatePart("yyyy", Date), 4), "0000") & Format(DatePart("m", Date), "00") & "-" If DCount("*", "Orders", "left(Factuurnr,7)= '" & tNummer & "'") = 0 Then Me.Factuurnr = tNummer & "01" Else Me.Factuurnr = tNummer & Format(DMa

3/5/2010 11:52:01 AM 6 =?Utf-8?B?QmV0SGE=?= <Be...@discussions.microsoft.com>
DSN-less Connections

This article discusses two methods by which a DSN-less connection can be made to SQLServer. http://support.microsoft.com/kb/892490 One uses the CreateTableDef the other uses DAO.RegisterDatabase. Any suggestions as to which would be the preferred approach? Any opinions about either? I'm inclined to stay awy from the first since it captures user name and pwd.

3/5/2010 10:20:16 AM 14 "David C. Holley" <David.C.Holley>
CODE 2 ADD RECORD

Could someone pls provide a sample code for BUTTON1 on FORM1 which onclick adds the entries in TEXTBOX1, TEXTBOX2, TEXTBOX3, TEXTBOX4 to TABLE1's FIELD1, FIELD2, FIELD3 & FIELD4? -- Thanx & Best Regards, Faraz!

3/5/2010 6:23:01 AM 1 =?Utf-8?B?RmFyYXogQWhtZWQgUXVyZXNoaQ==?= <FarazAhmedQure...@discussions.microsoft.com>
Link to Outlook folder

access 2002: Is there a way to create a command button to go to a specific email folder in outlook?

3/5/2010 1:08:01 AM 4 =?Utf-8?B?c2xpY2tkb2Nr?= <slickd...@discussions.microsoft.com>
Connecting to a Distant SQLServer Using ODBC

Anyone have any experience connecting to an instance of SQLServer on a server that is rather distant from your local office? (EX: Office in Chicago, Server in Atlanta)

3/5/2010 12:10:37 AM 3 "David C. Holley" <David.C.Holley>
Help with Transactions

Hello: I am trying to add new records from a Quotes table and associated QuoteDetails table to a WorkOrder table and associated WorkOrderDetails table. I thought transactions but, perhaps I am wrong. The WorkOrderDetails table will not allow the addition of records unless there is an associated redord in WorkOrders. So, the transaction fails. If I commit the single record from WorkOrders and there is some error after in the WorkOrderDetails, how would I then recover from this situation? I hope that I have adequately explained the problem and I look forward to some discussio

3/4/2010 9:30:01 PM 4 =?Utf-8?B?QmFycnk=?= <Ba...@discussions.microsoft.com>
Code to set query parameter through command button?

Hi: I have a command button on a form that triggers a print job of a report that references a query with a parameter. I'd like to set that parameter (named [entryid]) off of the id field of the record that I am viewing on the form. Thanks in advance, Aaron

3/4/2010 8:39:01 PM 1 =?Utf-8?B?QWFyb24=?= <Aa...@discussions.microsoft.com>
Form Code HELP ??

I am have been trying to eliminate having to delete and then redefine my query in the code below. Can anyone help or suggest how I would modify? Private Sub Text0_AfterUpdate() On Error GoTo Err_Text0_AfterUpdate Dim stDocName1 As String Dim stDocName2 As String Dim MyQueryDef As QueryDef Dim db As DAO.Database Set db = CurrentDb() If ObjectExists("Queries", "qryUpdateBRSales") = True Then db.QueryDefs.Delete "qryUpdateBRSales" End If If ObjectExists("Queries", "qryUpdateStatus") = True Then db.QueryDefs.Delete "qryUpdateStatus" End If

3/4/2010 6:17:01 PM 4 =?Utf-8?B?TkVXRVIgVVNFUg==?= <NEWERU...@discussions.microsoft.com>
How to login "Oracle ODBC Driver Connect" in the programmatically

Hi, I have MS Access 2007 application with a lot of ODBC linked table to Oracle. When I start it, the code hide any one of linked tables, "Oracle ODBC Driver Connect" dialog box popup and ask for password. I don't want my user see this and type in password. How I can hide it and fill in the password programmatically. I'm using MS Access 2007 and VBA Thank you, Wes

3/4/2010 4:04:06 PM 2 =?Utf-8?B?d2VzYmlyZA==?= <wesb...@discussions.microsoft.com>
Split database into smaller db based on values

I have a database with multiple tables. I need to break the database into smaller files based on states. I've been able to do this one at a time by using the transfer Database function in a Macro but i'd like to set this up to loop through the different state values in my Locations table and save each new database into a different folder. for example: run query for orders where state = CA then transfer the query data into a table in a file of the same name but directory C:/CA/mydata.mdb then OR C:/OR/mydata.mdb. any help would be appreciated

3/4/2010 3:20:06 PM 6 =?Utf-8?B?VkJBTm92aWNl?= <VBANov...@discussions.microsoft.com>
Create Excel Pivot tables from MS Access

How can I create Excel Pivot tables from MS Access ? Thanks a lot in advance.

3/4/2010 3:01:01 PM 1 =?Utf-8?B?Y2hyaXM=?= <ch...@discussions.microsoft.com>
How do I make my 2003 access file to be compactable with access 20

I have written an Access 2003 program which runs fine on. I just installed Access 2007 and database is showing up. How do I make my 2003 access file to be compactable with access 2007? Thanks a lot.

3/4/2010 2:53:01 PM 2 =?Utf-8?B?bWp1?= <...@discussions.microsoft.com>
Another recordset problem!

Hello All I had some help with a recordset problem recently (many thanks Stefan and Daryl!), but now have another. I just get "Error 3135 Syntax error in JOIN operation" with the following: Set rsNIC = CurrentDb.OpenRecordset( _ "SELECT staffs.*, months.*, [NI tables 2010].*" & _ " FROM ((staffs RIGHT JOIN ([NI tables 2010] RIGHT JOIN months" & _ " ON [NI tables 2010].[NI letter] = staffs.[NI code])" & _ " ON [NI tables 2010].niSet = months.nicset)" & _ " WHERE (((months.[month name])='" & [Forms]![frm x main]![month name] & "'));")

3/4/2010 1:22:24 PM 4 "PayeDoc" <enquir...@gppayroll.org.uk>
how to reference a uniqueidentifier

I have an access 2007 based application and I need to be able to open a form based on a uniqueidentifier, the guid is used here as the primary key. I have this now: Dim strcriteria as string strcriteria = "[ID]= '" & Me.ID & "'" DoCmd.OpenForm ("myform"),,, strcriteria When I open the form I get this error: Syntax Error: Converting from a Character String to Uniqueidentifier Does anyone knows what the correct syntax should be in this case?

3/4/2010 1:19:02 PM 2 =?Utf-8?B?RXJpYw==?= <E...@discussions.microsoft.com>
Correct Currency Data Type and Validation Coding

Any suggestions are so greatly appreciated as I am really really stuck Using Access 2003 on XP OS My Access and VBA experience is limited. I have a several fields that I am checking for validation as currency. I have two questions 1) what is the best data type for currency. Currently I am using Table Data Type = Number. (I have tried other types with no luck) Field Size = Single Format=Currency. On the form I am formating to currency. 2) I want to be able to check for whole numbers and for those that are entered with a decimal. Currently I am using the below. Pri

3/4/2010 6:19:01 AM 3 =?Utf-8?B?TGlzYUluQXo=?= <LisaI...@discussions.microsoft.com>
CODE HELP!

The following Sub is working, but I am looking to "Clean it up". I have an unbound form with a list box. I make a selection(s) from the list box which builds the Where string of my query (qryCoverage). From here, I build another query (qryCoverage1). I have to delete the existing qryCoverage1 or I get an error message that it already exists. Is this necessary? I then build a make table query and use that table to open yet another query to display the results. How might I simplify this process? Any help appreciated. Private Sub cmdOK_Click() On Error GoTo Err_cmdOK_Click

3/4/2010 3:26:01 AM 2 =?Utf-8?B?TkVXRVIgVVNFUg==?= <NEWERU...@discussions.microsoft.com>
Using MDE file to connect to SQLServer via ODBC

Anyone have experience connecting an MDE file to an instance of SQLServer via ODBC? (Which should be yes). The scenario that I'm in is that I was going to use a ADP file, but then got word that MS has officially backpeddled indicating that ODBC is the best means of connecting to SQLServer. If the server was going to be in the same city, I wouldn't sweat it, however we're looking at having the server housed in Atlanta in support of several other offices that will be using the app. What issues should I be aware of? What about general performance?

3/4/2010 12:07:55 AM 1 "David C. Holley" <David.C.Holley>
Can Access 2000 be installed on Windows 7

A client has a 2000 Access database that needs to be modifed, and we don't know if they're ready to be pushed into a version upgrade at this time. I know that I can save an Access program in the ver. 2000 format, but I would prefer to have the actual environment so I don't accidentally use a property or command that doesn't exist in the old version. Can Access 2000 be installed on my PC (OS Windows 7) without screwing up Access 2007? If so, can Access 2000 still be downloaded from Microsoft?

3/3/2010 9:44:09 PM 1 =?Utf-8?B?QmV2IEthdWZtYW4=?= <BevKauf...@discussions.microsoft.com>
Docmd.SendObject To: Cc: Bcc: Fields

Where I work at we still use Access 97. Nothing I can do about that. Anyways it appears the To: Cc: and Bcc: Line of the Docmd.SendObject have a max string length. Only 2/3 of my concatenated string transferred into the To: Line. I assume there is nothing I can do about it, but figured I'd ask.

3/3/2010 9:31:03 PM 3 =?Utf-8?B?QXBleHN0YXI=?= <Apexs...@discussions.microsoft.com>
Can you help me make this string shorter?

I get an error message saying that my string is too complex. Can anyone see a way to streamline it?? =IIf(IsNull([costcode]) Or IsNull([costtype]),0,IIf([costcode]="013210" And [costtype]="05320",[txtEstimatedCost]/[txtCraftLabEst],IIf([costcode]="020110" And [costtype]="05320",[txtEstimatedCost]/[txtFirewatchLabEst],IIf([costcode]="064201" And [costtype]="05320",[txtEstimatedCost]/[txtCraftSuprLabEst],IIf([costcode]="061301" And [costtype]="05320",[txtEstimatedCost]/[txtQAQCSuprvLabEst],IIf([costcode]="061101" And [costtype]="05310",[txtEstimatedCost]/[txtSiteTeamLabEs

3/3/2010 7:45:01 PM 2 =?Utf-8?B?QWxiZXJ0YSBSb3Nl?= <AlbertaR...@discussions.microsoft.com>
Using For...Next with Controls

I have got 3 label controls on a form; each label control has it own name (list below) - lbl_div_nbr_1 - lbl_div_name_1 - lbl_div_charge_1 These set of 3 labels are then repeats 3 times on the same form, with the name being the only thing that changes e.g. - lbl_div_nbr_2 - lbl_div_name_2 - lbl_div_charge_2 - lbl_div_nbr_3 - lbl_div_name_3 - lbl_div_charge_3 I would like to use a For….next statement to look through and set the values on these labels and make them visible, rather than having to write out 9 separate statements to do this, but my code below isn’t

3/3/2010 5:45:01 PM 1 =?Utf-8?B?U3VnZ3kxOTgy?= <Suggy1...@discussions.microsoft.com>
Access 2007 link table login

Hi I am migrating my Access 2003 to 2007. There a lot of link tables from Oracle in my mdb file. when my applicaiton running, I have to code to login Oracle: Dim wsp As Workspace Set wsp = DBEngine.CreateWorkspace("xxx", "xxx", "xxx", dbUseODBC) Set dbs = OpenDatabase("", False, True, strConnect) ' connect via regular ODBC 'Close the database. The login is still cached so that it is available for any 'Access object that needs it during the same session. dbs.Close This code works great in 2003 but not in 2007. How I can do it in 2007? Thank you a lot

3/3/2010 4:52:17 PM 0 =?Utf-8?B?d2VzYmlyZA==?= <wesb...@discussions.microsoft.com>
Trying to open the current db in Access 2010 through Access Basic

I haven't programmed in Access Basic in quite a long time. Through Access Basic coding, I use to be able to open the current database and then open a table and walk through each record. Now I can't even open the database. Does anybody have an example of how to do the following: 1) Open Workspace 2) Open Current Database (assume name is unknown during run time 3) Open specific table 4) Step through each record and access the fields

3/3/2010 1:37:02 AM 1 =?Utf-8?B?R2VvcmdlIEMuIERlcmthY3M=?= <George C. Derk...@discussions.microsoft.com>
Manipulating the Access 2007 User Interface

1) How can I programically eliminate, hide or minimize that damned Ribbon? 2) How can I hide the Navigation bar? In short, how can I lock users out from accessing the underlying objects unless I want them to have that access?

3/3/2010 12:06:33 AM 3 "David C. Holley" <David.C.Holley>
Number of users

I am deploying an MDE Access 2002 application. The clients will pay a "per seat" fee. How can I limit their number of users to the number of seats they have purchased?

3/2/2010 7:55:01 PM 10 =?Utf-8?B?c2xpY2tkb2Nr?= <slickd...@discussions.microsoft.com>
Mail Merge using Access then save as PDF

In my organization, we send out letters by the thousands, ususally about 500 at a time, due to the time constraints of the current method. Currently, we process the database, which places the letter contents in a table called Archives. Then we open the Merge Template Word document, and process the mail merge to print each individual letter. Next we have to save each individual letter as a PDF file (Acrobat 8.2 Installed) for record keeping and quality assurance. What we'd like to do is find a way that this can all be done from within Access programmatically. References:

3/2/2010 7:05:01 PM 2 =?Utf-8?B?V2ViTWFzdGVyQg==?= <WebMast...@discussions.microsoft.com>
I know I'm missing something

Thanks for reading this. What I'm trying to do is to create a query though code that will display last names of the text box. For example: Person's last name is James. There may be 5 names with the last name of James. strWhere = "Select [lname]" _ & "From tbl_roster " _ & "Where lname =' " & txtSearch & ' '" Every time I do a msgbox it comes up with the wrong name. I know I've seen the correct way to do it here, but do you think I can find it? NOT. The txtSearch is a textbox to enter the person's last name. Once I can get this working then I think all I have to do to disp

3/2/2010 5:00:41 PM 3 "Afrosheen via AccessMonster.com" <u46...@uwe>
Count the Number of Files in a Folder

I’m sorry if this is a repost, I posted the same question yesterday but it never appeared on the site. Could someone please show me an example or examples of how to return the number of files in a folder? I don’t need anything except the total number of files in the folder. I’d like to use VB but, I’m open to any solution… Thanks in advance, Jim

3/2/2010 2:26:01 PM 3 =?Utf-8?B?Smlt?= <...@discussions.microsoft.com>
DoCmd.TransferDatabase acExport to SQL server 2005

All, I am trying to export a table from an Access 2007 database to a SQL server 2005 database. However I can not get the table to export to the correct schema. it always goes to the dbo schema. Below is the code I am running. When I run the table shows up in SQL as dbo.[schema.SQL_Tableusername] and I need it to be schema.SQL_Tableuser Any help would be helpful Private Sub Command7_Click() Dim db As Database Dim username As String Dim tablename As String Set db = CurrentDb username = Environ("USERNAME") username = Replace(username, ".", "") tablename = "" & "SQL_Table

3/2/2010 2:21:01 PM 2 =?Utf-8?B?VEw=?= <...@discussions.microsoft.com>
kindly, before I crash this computer against the wall..

....does someone know why when I write this declaration: dim idx as Index (or even DAO.Index) it changes into: dim idx as index (or DAO.index) ....and obviously it screams errors if I run the code. References seem fine.

3/2/2010 1:53:01 PM 9 =?Utf-8?B?cm9jY28=?= <ro...@discussions.microsoft.com>
Check if query exists

How can I check, via code, that a query exists or not? I want to delete a temporary query created in the program, using the CreateQueryDef property, but it is not always that it has been created. Thanks in advance, Paulo

3/2/2010 1:52:03 PM 2 =?Utf-8?B?UGF1bG8=?= <Pa...@discussions.microsoft.com>
Application Deployment Question

I have developed an application using Access 2k running on Windows XP that I would like to make available to users by downloading from a web site. After reading about “Inno” in an earlier post, I am intending to use it to install the application. 1)Would my application work with all the versions of Access that users may have on their machines? 1a) If it would not work with versions earlier than 2k, what could I do for these users? 2)Would my application work with Access2007 runtime for users that do not have a version of Access already installed? 2a) If yes, wo

3/2/2010 1:36:01 PM 2 =?Utf-8?B?Qm9iYnlCb2I=?= <Bobby...@discussions.microsoft.com>
rotate a label?

Is there a way to rotate a label (with text) ? I have a quite complex report and I need to rotate some labels on the report. Thanks for any suggestions.

3/2/2010 9:27:01 AM 2 =?Utf-8?B?RXJpYw==?= <E...@discussions.microsoft.com>
Looking for a better way to Parse out data from alphanumeric field

Dear all, I need to parse out the text from a mixed alphanumeric field. I recieve ship-to addresses from a client, which do not always conform to the standard I need. Specifically they occasionally drop the postcode. I need to grab the first series of characters in the address, up to but not including the first numeric. This will allow me to match the address to a table of addresses and postcodes. Fortunately, due to the Japanese way of writing addresses, I can guarantee that it will be *near* the form "Prefecture City Town Division" (maybe with or without spaces) where

3/2/2010 7:07:03 AM 0 =?Utf-8?B?VG9reW8gQWxleA==?= <TokyoA...@discussions.microsoft.com>
How to make a subform "read only"

Hi Guys, How would I make a subform readonly so that I am able to look at the controls within a subform but simply not able to update/change them on a datasheet view? many thnaks for your help? Cheers

3/2/2010 4:56:01 AM 5 =?Utf-8?B?RG9udEtub3c=?= <DontK...@discussions.microsoft.com>
VBA Code to Save Excel Sheet to XML

I'm working on a project that uses VBA to send data to Excel from Access. The spreadsheet has a number of tabs with charts that reflect the data. At the end of the Access code, the spreadsheet is saved to a specific folder. The next step would be to create an XML file for the contents of the "Data" tab. When I create the XML file manually from Excel, I get the xml list which is <20k. When I try to save the Excel file as xml, using VBA in Access, I get a file that is >300k and contains the whole spreadsheet. Can someone show me, or lead me, to VBA code that I can use in Access

3/2/2010 12:28:14 AM 1 =?Utf-8?B?c2p3b3Bn?= <sjw...@discussions.microsoft.com>
Launch mde from another mde: fine tuning

I'm using shell to launch an Access 2002 mdb from another mdb file with this command: Shell SysCmd(acSysCmdAccessDir) & "MsAccess.Exe " _ & """C:\Program Files\MyApp\MyApp_fe.mdb "" /wrkgrp ""C:\Program Files\MyApp\secured.mdw"" /user operator" I need some fine tuning: 1. It opens, but does not become the active window. I have to alt-tab to get to it. How can I make it the active window? 2. It opens, but not maximized. How can I make it open with a maximized window? 3. The doozie: How can I carry a value from the current form in DB1 to the newly opened DB2?

3/1/2010 11:23:02 PM 1 =?Utf-8?B?c2xpY2tkb2Nr?= <slickd...@discussions.microsoft.com>
Internet Explorer Object, Navigation, Hiding

Hi, I use the IE object to navigate to a website and pull some information. I've run into an issue faced at a client that I have not experienced when testing it out (the worst kind of error, in my opinion). Here's the code: Dim objIE as Object ' late binding Set objIE = CreateObject("InternetExplorer.Application") With objIE .Visible = False .Silent = True .Navigate myurl Do While .ReadyState <> 4 'etc. - code to bomb out if the site can't be found Loop mytext = .Document.Body.InnerText etc. When I tested the code, Inter

3/1/2010 10:11:39 PM 6 "jamcompany via AccessMonster.com" <u19...@uwe>
Possible to create user-level security in Access 2007 format w/VBA

There is no doubt that "user-level security" is not supported any longer, with the Access 2007 file format (.accdb). See http://office.microsoft.com/en-us/access/HA012301871033.aspx?pid=CH100621891033. So, what I am looking for is if anyone has created, or knows of, a guide to replicating "user-level security" via VBA within the new Access 2007 file format, or if it is even possible. Can anybody help me?

3/1/2010 9:56:06 PM 12 =?Utf-8?B?QmFycnk=?= <Ba...@discussions.microsoft.com>
=RowNum([Form]) - equivalent in a report?

I am running Access 2003 and found the following function: Public Function RowNum(frm As Form) As Variant On Error GoTo Err_RowNum 'Purpose: Numbering the rows on a form. 'Usage: Text box with ControlSource of: =RowNum([Form]) With frm.RecordsetClone .Bookmark = frm.Bookmark RowNum = .AbsolutePosition + 1 End With Exit_RowNum: Exit Function Err_RowNum: If Err.Number <> 3021& Then 'Ignore "No bookmark" at new row. Debug.Print "RowNum() error " & Err.Number & " - " & Err.Description End If RowNum = Null

3/1/2010 8:58:37 PM 2 Opal <tmwel...@hotmail.com>
Number of Files in a Folder

Using VBA, could someone please show me how I would count the number of files in a folder? I just need the total number of files... Thanks in advance, Jim

3/1/2010 8:56:04 PM 1 =?Utf-8?B?Smlt?= <...@discussions.microsoft.com>
display the result

I have the following programme.module for generating all possiible combination of in a group of 3 items and it works like this Private Sub Command1_Click() Dim rs As ADODB.Recordset Dim stocknames() As String Dim i As Long Dim j As Long Dim k As Long Set rs = New ADODB.Recordset rs.ActiveConnection = CurrentProject.Connection rs.Open "select stockname from stocknames order by stockname", , adOpenForwardOnly, adLockReadOnly i = 0 ReDim stocknames(0) Do While Not rs.EOF ReDim Preserve stocknames(i) stocknames(i) = rs.Fields("stockname") i = i + 1 rs.MoveNext Loop rs

3/1/2010 7:17:01 PM 1 =?Utf-8?B?Y2xpZmY=?= <cl...@discussions.microsoft.com>
Recordset code problem

Hello All This is my first forray into this type of code! I have a pretty long function in which I need to use certain values from table [tax tables] - but only the values on the record that meets a particular criterion. I want to do this by defining all the fields from [tax tables] as a recordset, and this is my attempt: Dim rsTax As Recordset Set rsTax = CurrentDb.OpenRecordset("SELECT [tax tables].*, months.[month name]" & _ "FROM [tax tables] INNER JOIN months ON [tax tables].set = months.[default tax set]" & _ "WHERE (((months.[month name])=[Forms]![frm x main]![month name]

3/1/2010 3:43:56 PM 6 "PayeDoc" <enquir...@gppayroll.org.uk>
Hide page on tab control

Hello, Is there any way to hide a page on a tab control based on what the user selects from a drop down box? Thanks in advance Martin

3/1/2010 2:21:01 PM 1 =?Utf-8?B?TWFydGlu?= <Mar...@discussions.microsoft.com>
Continuous forms problem

Is it possible to control properties, such as Visibility, on each row in a conrinuous form? For example, I have ComboA and ComboB. Can I control the Visibility of ComboB based on the selection made in ComboA for each row of a continuous subform? TIA for your input. Jim

3/1/2010 1:53:23 PM 5 "Jim Evans" <...@microsoftdiscussions.com>
declaring a variable as "Index" turned out into "index"

Hello, it can sounds weird but I'm stocked into trying to declaring a variable as index. Immediately after digitizing the statement it changes "Index" into "index" and the code will not work. I need the variable to iterate through the Indexes collection of a Dao recordset. This recordset is opened as dbOpenTable and until now I have created one index only, the primary key, when I built the table. The DAo 3.6 library has been correctly referenced. What's wrong? Thanks, Rocco

3/1/2010 1:40:01 PM 3 =?Utf-8?B?cm9jY28=?= <ro...@discussions.microsoft.com>
File search Dir() problem with large directories

Please somebody help me with my code. I am read almost every post regarding the changes to filesearch in 2007 and transfered my program over the to utilise the Dir() function . However when search large directories (files over around 100,000) the code falls over - losing network connection and stating invalid function. Could somebody advise if my code is at fault? Function findfilespath(pathname As String, tmpfilenametype As String, tmpdelete As String, tmpsource As String) Dim dbsanother As Object, rstfiles As Recordset Set dbsanother = CurrentDb Set rstfiles = dbsanother.OpenRec

3/1/2010 1:07:31 PM 2 "kerrid" <u58...@uwe>
Bind object to OLE Bound Frame

Hi, Is it possible to bind an oleBoundFrame object in a form to value in a DAO.Recordset using vba? Thanks Sanya

3/1/2010 11:28:01 AM 2 =?Utf-8?B?U2FueWEgSWJyYWhpbQ==?= <SanyaIbra...@discussions.microsoft.com>

Pages: 2 3 4 5 6 7 8 9 10 11











Newest Articles

lastlogon (time format)
3 min. 58 sec. ago

change date format to excel format
10 min. 4 sec. ago

error
12 min. 38 sec. ago

Select specific worksheets & copy - code problem
13 min. 4 sec. ago

Debugging SharePoint workflow in production environment
14 min. 39 sec. ago