Jumat, 29 Januari 2016

RE: [MS_AccessPros] Re: Folder picker debug problem

 

Bingo.

Thanks



---In MS_Access_Professionals@yahoogroups.com, <DEmbrey@...> wrote :

Adam,

Does the database where it doesn't work have a reference to the Microsoft Office object library?

 

Darrell

 

From: MS_Access_Professionals@yahoogroups.com [mailto:MS_Access_Professionals@yahoogroups.com]
Sent: Friday, January 29, 2016 2:28 PM
To: MS_Access_Professionals@yahoogroups.com
Subject: [MS_AccessPros] Re: Folder picker debug problem

 

 

I assume "instead" refers to As String, of which there are several. Didn't work no matter where I tried it. That doesn't explain why the code works in another database.

 

Adam



---In MS_Access_Professionals@yahoogroups.com, <strive4peace2008@...> wrote :

Hi Adam,

use:
As Object

instead

warm regards,
crystal

VBA Tip: Select File or Folder using FileDialog using Access (cc)
by Adrian Bell
http://www.youtube.com/watch?v=rNHLea359p4

~ have an awesome day ~

On 1/29/2016 11:42 AM, runuphillracing@... [MS_Access_Professionals] wrote:

I need help figuring out why I get a Variable not defined compile error on msoFileDialogFolderPicker

 

in the function:

Public Function FSBrowse(Optional strStart As String = "", _
                          Optional lngType As MsoFileDialogType = msoFileDialogFolderPicker, _
                          Optional strPattern As String = "All Files,*.*") As String

 

which is called from strPath = FSBrowse(lngType:=msoFileDialogFolderPicker)

 

The exact same code (in utility module) works in one database but not in another.

 

Adam

 


The information contained in this communication is highly confidential and is intended solely for the use of the individual(s) to whom this communication is directed. If you are not the intended recipient, you are hereby notified that any viewing, copying, disclosure or distribution of this information is prohibited. Please notify the sender, by electronic mail or telephone, of any unintended receipt and delete the original message without making any copies.

Blue Cross Blue Shield of Michigan and Blue Care Network of Michigan are nonprofit corporations and independent licensees of the Blue Cross and Blue Shield Association.

__._,_.___
Posted by: runuphillracing@yahoo.com
Reply via web post • Reply to sender • Reply to group • Start a New Topic • Messages in this topic (5)

.

__,_._,___
Diposting oleh di Tidak ada komentar:

RE: [MS_AccessPros] Re: Folder picker debug problem

 

Adam,

Does the database where it doesn't work have a reference to the Microsoft Office object library?

 

Darrell

 

From: MS_Access_Professionals@yahoogroups.com [mailto:MS_Access_Professionals@yahoogroups.com]
Sent: Friday, January 29, 2016 2:28 PM
To: MS_Access_Professionals@yahoogroups.com
Subject: [MS_AccessPros] Re: Folder picker debug problem

 

 

I assume "instead" refers to As String, of which there are several. Didn't work no matter where I tried it. That doesn't explain why the code works in another database.

 

Adam



---In MS_Access_Professionals@yahoogroups.com, <strive4peace2008@...> wrote :

Hi Adam,

use:
As Object

instead

warm regards,
crystal

VBA Tip: Select File or Folder using FileDialog using Access (cc)
by Adrian Bell
http://www.youtube.com/watch?v=rNHLea359p4

~ have an awesome day ~

On 1/29/2016 11:42 AM, runuphillracing@... [MS_Access_Professionals] wrote:

I need help figuring out why I get a Variable not defined compile error on msoFileDialogFolderPicker

 

in the function:

Public Function FSBrowse(Optional strStart As String = "", _
                          Optional lngType As MsoFileDialogType = msoFileDialogFolderPicker, _
                          Optional strPattern As String = "All Files,*.*") As String

 

which is called from strPath = FSBrowse(lngType:=msoFileDialogFolderPicker)

 

The exact same code (in utility module) works in one database but not in another.

 

Adam

 


The information contained in this communication is highly confidential and is intended solely for the use of the individual(s) to whom this communication is directed. If you are not the intended recipient, you are hereby notified that any viewing, copying, disclosure or distribution of this information is prohibited. Please notify the sender, by electronic mail or telephone, of any unintended receipt and delete the original message without making any copies.

Blue Cross Blue Shield of Michigan and Blue Care Network of Michigan are nonprofit corporations and independent licensees of the Blue Cross and Blue Shield Association.

__._,_.___
Posted by: "Embrey, Darrell" <DEmbrey@bcbsm.com>
Reply via web post • Reply to sender • Reply to group • Start a New Topic • Messages in this topic (4)

.

__,_._,___
Diposting oleh di Tidak ada komentar:

[MS_AccessPros] Re: Folder picker debug problem

 

I assume "instead" refers to As String, of which there are several. Didn't work no matter where I tried it. That doesn't explain why the code works in another database.


Adam



---In MS_Access_Professionals@yahoogroups.com, <strive4peace2008@...> wrote :

Hi Adam,

use:
As Object

instead

warm regards,
crystal

VBA Tip: Select File or Folder using FileDialog using Access (cc)
by Adrian Bell
http://www.youtube.com/watch?v=rNHLea359p4

~ have an awesome day ~

On 1/29/2016 11:42 AM, runuphillracing@... [MS_Access_Professionals] wrote:

I need help figuring out why I get a Variable not defined compile error on msoFileDialogFolderPicker


in the function:

Public Function FSBrowse(Optional strStart As String = "", _
                          Optional lngType As MsoFileDialogType = msoFileDialogFolderPicker, _
                          Optional strPattern As String = "All Files,*.*") As String


which is called from strPath = FSBrowse(lngType:=msoFileDialogFolderPicker)


The exact same code (in utility module) works in one database but not in another.


Adam


__._,_.___
Posted by: runuphillracing@yahoo.com
Reply via web post • Reply to sender • Reply to group • Start a New Topic • Messages in this topic (3)

.

__,_._,___
Diposting oleh di Tidak ada komentar:

Re: [MS_AccessPros] Folder picker debug problem

 

Hi Adam,

use:
As Object

instead

warm regards,
crystal

VBA Tip: Select File or Folder using FileDialog using Access (cc)
by Adrian Bell
http://www.youtube.com/watch?v=rNHLea359p4

~ have an awesome day ~

On 1/29/2016 11:42 AM, runuphillracing@yahoo.com [MS_Access_Professionals] wrote:

I need help figuring out why I get a Variable not defined compile error on msoFileDialogFolderPicker


in the function:

Public Function FSBrowse(Optional strStart As String = "", _
                          Optional lngType As MsoFileDialogType = msoFileDialogFolderPicker, _
                          Optional strPattern As String = "All Files,*.*") As String


which is called from strPath = FSBrowse(lngType:=msoFileDialogFolderPicker)


The exact same code (in utility module) works in one database but not in another.


Adam


__._,_.___
Posted by: crystal 8 <strive4peace2008@yahoo.com>
Reply via web post • Reply to sender • Reply to group • Start a New Topic • Messages in this topic (2)

.

__,_._,___
Diposting oleh di Tidak ada komentar:

[MS_AccessPros] Folder picker debug problem

 

I need help figuring out why I get a Variable not defined compile error on msoFileDialogFolderPicker


in the function:

Public Function FSBrowse(Optional strStart As String = "", _
                          Optional lngType As MsoFileDialogType = msoFileDialogFolderPicker, _
                          Optional strPattern As String = "All Files,*.*") As String


which is called from strPath = FSBrowse(lngType:=msoFileDialogFolderPicker)


The exact same code (in utility module) works in one database but not in another.


Adam

__._,_.___
Posted by: runuphillracing@yahoo.com
Reply via web post • Reply to sender • Reply to group • Start a New Topic • Messages in this topic (1)

.

__,_._,___
Diposting oleh di Tidak ada komentar:

Re: [MS_AccessPros] Query the most recent date!

 

Rohn-


Like this:

SELECT License_Cert.[Emp#], License_Cert.Cert_Date, License_Cert.Cert_Title, License_Cert.Cert_NO, License_Cert.Issuing_Authority, Year([Cert_Date]) AS [YEAR], [First_Name] & ' ' & [Last_Name] AS Name, License_Cert.Cert_Expire_Date
FROM License_Cert INNER JOIN dbo_EMPLOYEE ON License_Cert.[EMP#] = dbo_EMPLOYEE.ID
WHERE (((License_Cert.[Emp#]) Like "*" & [Enter Employee Number:] & "*") AND ((License_Cert.Cert_Title) Like "*" & [Enter Cert Title:] & "*"))
AND License_Cert.Cert_Expire_Date = (SELECT MAX(Cert_Expire_Date) FROM License_Cert As L2 WHERE L2.[EMP#] = dbo_EMPLOYEE.ID);

John Viescas, Author
Microsoft Access 2010 Inside Out
Microsoft Access 2007 Inside Out
Microsoft Access 2003 Inside Out
Building Microsoft Access Applications 
SQL Queries for Mere Mortals 
(Paris, France)



On Jan 29, 2016, at 5:30 PM, reverson@maintainer.com [MS_Access_Professionals] <MS_Access_Professionals@yahoogroups.com> wrote:

I have a Query that I only want to show the most recent date for each employee record.  I have tried in the GroupBy field.... Max(License_Cert.Cert_Expire_Date) but that does not limit the records. Is there some other way to limit the query records to the most recent date?

SELECT License_Cert.[Emp#], License_Cert.Cert_Date, License_Cert.Cert_Title, License_Cert.Cert_NO, License_Cert.Issuing_Authority, Year([Cert_Date]) AS [YEAR], [First_Name] & ' ' & [Last_Name] AS Name, Max(License_Cert.Cert_Expire_Date) AS MaxOfCert_Expire_Date
FROM License_Cert INNER JOIN dbo_EMPLOYEE ON License_Cert.[EMP#] = dbo_EMPLOYEE.ID
GROUP BY License_Cert.[Emp#], License_Cert.Cert_Date, License_Cert.Cert_Title, License_Cert.Cert_NO, License_Cert.Issuing_Authority, Year([Cert_Date]), [First_Name] & ' ' & [Last_Name]
HAVING (((License_Cert.[Emp#]) Like "*" & [Enter Employee Number:] & "*") AND ((License_Cert.Cert_Title) Like "*" & [Enter Cert Title:] & "*"));

Thanks for your help and insights on this!
Rohn

__._,_.___
Posted by: John Viescas <johnv@msn.com>
Reply via web post • Reply to sender • Reply to group • Start a New Topic • Messages in this topic (2)

.

__,_._,___
Diposting oleh di Tidak ada komentar:

RE: [MS_AccessPros] Combo to Text

 

Darrell

That worked perfect.

 

Here is my complete statement.

 

=IIf([Forms]![f_IndividualTravaler]![FrmSignature2]=1,[Forms]![f_IndividualTravaler]![cboAgentID].[column](1),IIf([Forms]![f_IndividualTravaler]![FrmSignature]=2,"N/A",""))

 

Thank you very much.  I will add this to my tool box.

 

Bill

  

 

From: MS_Access_Professionals@yahoogroups.com [mailto:MS_Access_Professionals@yahoogroups.com]
Sent: Friday, January 29, 2016 8:23 AM
To: MS_Access_Professionals@yahoogroups.com
Subject: RE: [MS_AccessPros] Combo to Text

 

 

Hi Bill,

It isn’t necessary to add hidden text boxes to your form as Duane suggested. Since you are already referencing the form, set the control source property of the text box on your report to the combo box column property on the form.

=[Forms]![yourFormName]![yourComboboxName].[Column](1)

I am using Access 2007 at work and the Control property of the combo box does not show when using the expression builder. However, if you are using the expression builder, you can select the combo box value and then add the .Column(1) to the end of the expression.

Darrell

 

From: MS_Access_Professionals@yahoogroups.com [mailto:MS_Access_Professionals@yahoogroups.com]
Sent: Thursday, January 28, 2016 6:46 PM
To: Access Professionals Yahoo Group
Subject: RE: [MS_AccessPros] Combo to Text

 

 

It would be a lot easier if you provided the names of your comboboxes and the control sources used on your report that should display their values.

 

Add two more text boxes on your form that already has your combo boxes. Set the control sources of these two new text boxes to reference the Column() property of the comboboxes

=YourComboBox1Name.Column(1)

=YourComboBox1Name.Column(1)


When you look at these in form view they should reflect the text value like "Bill".

 

Then change the text boxes on your report so their control sources reference the new text boxes rather than the old combo boxes. You can make the text boxes on the form invisible.

 

Duane Hookom, MVP

MS Access

 

To: MS_Access_Professionals@yahoogroups.com
From: MS_Access_Professionals@yahoogroups.com
Date: Thu, 28 Jan 2016 17:12:55 -0600
Subject: RE: [MS_AccessPros] Combo to Text



Duane,

I wish I could follow you but I am not quite smart enough.  I think I need a few more details to help me understand.  I am not quite able to understand the concept.

 

Thanks,

 

 

Bill

  

 

From: MS_Access_Professionals@yahoogroups.com [mailto:MS_Access_Professionals@yahoogroups.com]
Sent: Thursday, January 28, 2016 4:57 PM
To: Access Professionals Yahoo Group <ms_access_professionals@yahoogroups.com>
Subject: RE: [MS_AccessPros] Combo to Text

 

 

You can add text boxes (invisible) with control sources of:

=cboBoxName1.Column(1)

=cboBoxName2.Column(1)

 

Then, in the report, use the names of the text boxes rather than the names of the combo boxes.

 

Duane

 

To: MS_Access_Professionals@yahoogroups.com
From: MS_Access_Professionals@yahoogroups.com
Date: Thu, 28 Jan 2016 15:08:55 -0600
Subject: [MS_AccessPros] Combo to Text


I have a few unbound fields on a form.  Once the fields are filled in the user can click a button and a report opens with some of the fields already populated with the text from the unbound fields on the form.  It was actually working pretty good until I changed a few of the unbound filed to Combo boxes.  Now the user selects a value from the combo box.  However when the report is opened I am getting an error, which I expected.  What I want is to still show the text attached to the number behind the combo box. 

 

So agent 2 is Bill, based on the table the combo box uses,   If  “Bill” is selected from the combo box, I know the value the combo box is holding is “2” which is what I want, but is there any way to open a form and pull the text “Bill” rather than the value 2?

 

There is no query or table behind the form as I do not want to store the values there.  The unbound field will also be use to append some of the data to other tables, which is why I need the combo boxes, as that matches the data type of the table the data may be moved to.

 

Thanks,

 

 

Bill

Access 2013

Minnesota, USA

  

 

 

 

 

The information contained in this communication is highly confidential and is intended solely for the use of the individual(s) to whom this communication is directed. If you are not the intended recipient, you are hereby notified that any viewing, copying, disclosure or distribution of this information is prohibited. Please notify the sender, by electronic mail or telephone, of any unintended receipt and delete the original message without making any copies.

Blue Cross Blue Shield of Michigan and Blue Care Network of Michigan are nonprofit corporations and independent licensees of the Blue Cross and Blue Shield Association.

__._,_.___
Posted by: "Bill Singer" <Bill.Singer@at-group.net>
Reply via web post • Reply to sender • Reply to group • Start a New Topic • Messages in this topic (8)

.

__,_._,___
Diposting oleh di Tidak ada komentar:
Langganan: Postingan (Atom)