disable double click to change window size

Hi All, I would like to be able to disable the double clicking of the main access window, my application starts maximized and i dont want anyone restoring it to a window size. Can this be done with VBA ? -- Message posted via AccessMonster.com http://www.accessmonster.com/Uwe/Forums.aspx/access-modules/201006/1

Access runtime ribbon - export to word option missing.

When you create a 2007 runtime application the option on the print preview ribbon to export the report to word disapears. I have had to create my own Ribbon code to export data to excel (see below - this works by the way I am just positing it for info) because that option also disappears. Do I have to create an equivalent for word, and how would this look (needs to cope with older version of word), or is there an easier way? Thanks, Lou This is what I did for Excel. ' Export whatever records currently displayed to excel. Uses late binding to allow for different

Assistance with Output

I fould the below code demonstaring how to output multivalue fields; Sub BrowseMultiValueField() Dim db As Database Dim rs As Recordset Dim childRS As Recordset Set db = CurrentDb() ' Open a Recordset for the Task Table Set rs = db.OpenRecordset("Tasks") rs.MoveFirst Do Until rs.EOF 'Print the name of the task to the immediate window Debug.Print rs!TaskName.Value 'Open a Recordset for the multivalue field Set childRS = rs!AssignedTo.Value 'Exit the loop if the multivalue field contains no records Do Until childRS.

Conditional updating

I have the following working updating function which is ok: CurrentDb.Execute "UPDATE Products SET office = products.grossprice*0.72" I want to add on a condition depending on the field “code” in the same table products. But I do no know how to do it.I do not want to use a form but otherwise is it possible to do it ? What I want to achieve is the following: If Products.code = 10153 or Products.code = 10567 or Products.code = 324555 Then CurrentDb.Execute "UPDATE Products SET office = products.grossprice*0.72" Else CurrentDb.Execute "UPDATE Products SET office = products.gross

Sendkeys "{ESC}"

Hi untill now I used the Sendkeys "{ESC}"/Cancel in the event BeforeUpdate, but occassionaly I had some problems. From now on I follow the instructions of some users in the duscussion Groep and I replaced the Sendkeys "{ESC"} by the ..Undo. It works fine except in a ComboBox. Is this normal?

Select Case question - Comparing strings

I am passing variables into a subroutine, and comparing these to some parameters in a array. If all 4 of the variables passed in are equal to 4 values in the array, I run a a loop adding values to the array. I can make a series of If..Then statements work but cannot get the equivalent Select case statements to work. I am attaching the entire subroutine; Any suggestions appreciated. Thanks JDB ' -------------------------------------- Sub Add_ClnLoins(idxdate As Variant, _ idxSpecies As String, _ idxclnshift As String, _

If this correct use of Select

Hi there I want to use the following statement in the RowSource for a report but am unsure of whether it's correct: SELECT *, * FROM T_Participants RIGHT JOIN T_General ON T_Participants.[Student_ID] = T_General[StudentID_FK]; Does this look correct to anyone? Thank you in advance for your help.

quantifying overlapping time spans

Hi all, I am trying to write a query to calculate the amount of time that any two individuals overlap in their use of a location. My table currently looks like this: Date Time IndividualID ArrivalTime DepartureTime Individuals can arrive and depart at different times, and stay for different amounts of time. Individuals remain at the location for as little as a few seconds or up to 20 minutes. I am trying to determine the following: 1) for each pair of individuals, how much time were they both at the location? (shared presence) I need the results to appear something

Form Name as Variable

Hi, I have the following subroutine: Public Sub SetMeterBasic(p As Single) ' This subprocedure is used to update the progress meter bar With Forms![FormA] .shpMeterBar.Width = p * .lblMeter.Width .lblMeter.Caption = Format(p, "##%") .Repaint End With End Sub FormA is a form from which I called the main subroutine of the program which then later called this procedure. Is there a way I can pass a form name to Sub SetMeter e.g. so its first line is Public Sub SetMeterBasic(p As Single, FormName as String) where the variable FormName can function as "FormA" does

Checking for Null & Select Case

I have a form called fSearchforCompany with two unbound fields. After selecting a field from lstQuickSearch (list box) and tabbing to txtSearchBox to enter data, the correct form should open with the text from txtSearchBox entered into the designated field. But, first the code should check for null, and if Null, open the correct form. The problems are the code is not doing anything on Null and when there is data it is not selecting the data. The two fields are: 1. lstQuickSearch ControlSource is empty Row Source = 1;"Company ID";2;"Company Name";3;"Dat

Public variable

I am calling a public sub from a form, and I am trying to get the sub to be able to access a variable from the form. I declared the variable as public in the forms code, but it isn't available to the subroutine... is this normal?

VBA Reference Libraries-Access 2003 vs 2007

I'm in the process of converting from Access 2003 to Access 2007. When I converted my 2003 db to 2007 the VBA code would not run. I changed the Reference libraries in 2007 to match what I had in 2003 and then the code worked. I'm looking for some clarification on what the difference is between my 2003 set up and the default set up for 2007. What is the difference in the libraries? All of the references were the same in 2003 and 2007 except for the following. 2003 Microsoft DAO 3.6 Object Library 2007 Microsoft Office 12.0 Access database engine Object Library Microsoft Vi

Updating .nsf lotus notes server file - from access

Hi, Using the below code i can fetch data from the .nsf file kept in the server. Dim LotusWizard As DAO.Recordset Dim session As Object Dim notesdb As Object Dim notesView As Object Dim NotesEntry As Object Dim notesdoc As Object Dim Item As NotesItem Dim doccollection As Object Dim datetime As NotesDateTime i = 0 Set session = CreateObject("Notes.NotesSession") Set notesdb = session.GetDatabase("Server", "path\file.nsf") 'Check if open If notesdb.IsOpen = True Then Else notesdb.OPENM

Like operator case sensitive

I need to look for a case specific letter in a string (e.g. I need to be able to distinquish "m" from "M"). Is there a way to test for case?

SQL statement with LIKE need to show Numeric paceholders

I have a need to find 4 digit or 5 digit numbers. strAppend = "INSERT INTO PurchasingTable ( PurchaseOrderNumber, WorksNo, Code, PO_Sum )" _ & " SELECT [OrderNumbers Query1].PurchaseOrderNumber, [OrderNumbers Query1].WorksNo, [OrderNumbers Query1].Code, Sum([OrderNumbers Query1].[SumOfSum Of ExtPrice]) AS PO_Sum" _ & " From [OrderNumbers Query1]" _ & " GROUP BY [OrderNumbers Query1].PurchaseOrderNumber, [OrderNumbers Query1].WorksNo, [OrderNumbers Query1].Code" _ & " HAVING ((([OrderNumbers Query1].WorksNo) Like '%____%' Or ([OrderNumbers Query1].WorksNo) Like '%_____%') And (

access form not listed in access class object

I'm using Access 2007. I have several forms that are not listed in the "Microsoft Office Access Class Object" list. I've searched on-line help to no avail. How can I add it? Your help will be greatly appreciated!

.iqy in Access

Is it possible in MSAccess to convert or reproduce in VBA a .iqy ? I need to bring the data that the .iqy will extract directly in an Access table without using Excel at all. -- Message posted via http://www.accessmonster.com

Code Event Criteria

All, how can, with the code below, have the f![Location] = Filename line to only run if everything else occured? Function SaveAppItem() Set f = Screen.ActiveForm surl = f![Hyperlink] Filename = "\\Bcp\bcp\cmcc\cmcdb\20080922_CMCDB2\Documents\CE\Appendix\" & f![UpdateNum] & ".pdf" 'With CreateObject("Wscript.Shell") 'Shell ("explorer.exe Filename") Sleep (3000) Dim oIExplorer: Set oIExplorer = CreateObject("InternetExplorer.Application") oIExplorer.Navigate surl oIExplorer.Visible = True Sleep (3000) Do: Loop Until oIExplorer.ReadyState = READYSTATE_COMPLETE Sleep (200

Filter Records after FindRecord

I created a cboQuickSearch combo box, where I can choose the field I would like to search on. The txtSearchBox text field is where I enter the search data. I have three issues: 1. I would like to filter the records once found. 2. I want to be able to enter a few characters instead of having to enter the whole word. 3. Is there shorter code to do the same thing? Below is the code I created: Private Sub txtSearchBox_AfterUpdate() If Me.cboQuickSearch.Value = 1 Then ' Company ID Me.txtCompanyID.SetFocus If Not IsNul

What is the meaning of the "$" in say the left$ function

Hi Guys, Just a quick question with regard to the dollar sign at the end of the Left, right, mid etc type functions.. i do not know what the $ means and am unable to find/track down what it means ?? Does anyone know when /where it should be used?? The help is unhelpful in this particular case!! Many thnaks for your support!! Cheers,

Complex query problem

Just because MS wants to stop using Usenet doesn't mean we have to. :-) Anyway, I'm trying to figure out a way to export survey results from an Acc2k3 db to Excel for number crunching. I have a BUNCH of columns (227 fields broken into 7 sections, representing each question of the survey) with the possible answers for each one being Yes, No, or N/A. I need to count the number of each response for each question. A simple crosstab ain't gonna do it. I could do individual IIf's for reach response for each question but that would literally triple my column count (and amount of effort) in

How to delete embedded Word object?

I have an embedded Word document in an unbound object frame. I want to delete the object from the object frame using VBA. How do I do it? My goal is to let the user select Word documents and edit them in-place in the unbound object frame, so I have to remove the existing object and replace it with another. I've tried changing SourceDoc, but it does nothing. I've tried setting the Action to acOLEDelete and that also does nothing.

Modules

If remote data files has to get appended to the remote DBs; Is it better to add modules in remote DBs and invoke them locally or better to link tables to local DB and do everything from local DB? Secondly, any VB module or macro that can add user to a DB or its mdw?. -- Message posted via AccessMonster.com http://www.accessmonster.com/Uwe/Forums.aspx/access-modules/201006/1

Make new Outlook Contacts, Update existing Outlook contacts via packaged program

I need to be able to send my database (contact information) to several users in various parts of the country. What I'm looking at is if I can package just my "PersonInformation" table and have a command button on a form that the user would click. This would 1) update existing contacts (I already have a unique ID set up that would be the link between the old and new) if the contact exists, 2) create a contact if it doesn't exist, 3) delete a contact as needed. I wouldn't need to compare the Outlook contact with the information to import as I could just overwrite the necessary fields

Can I Share a MDE (which only has VBA Code) with other apps?

I am using Access 2003, and I was thinking of creating a databe with just VBA code in modules. There will be functions in there that I would like to reference with other applications. Is it possible for me to reference some of the functions in the MDE database with Excel and use the function I was created in the MDE ??? Thanks, G