Selasa, 31 Januari 2012

Re: [MS_AccessPros] Re: New file uploaded -- Crystal's Code Documenter

 

Hi Andrew,

I am not going to get another version up tonight -- too tired.  Am going through the lists of bugs and comments I have received from everyone.  Most of the changes are minor except for one: Tom van Stiphout ran it on an application that had Add-Ins ... so there was more than one Project.  I did not make provisions for that.  Therefore, I am modifying the structure to include a Projects table between Files and Modules ... this is NOT a small change.   Since I am modifying the structure anyway, I am also capturing the References, so I added another table for those too.

thanks again for testing it and giving me feedback :)

Warm Regards,
Crystal

 *
   (: have an awesome day :)
 *

________________________________
From: Crystal
Subject: Re: [MS_AccessPros] Re: New file uploaded -- Crystal's Code Documenter

Hi Andrew,

I will upload another version before I go to bed today if I can --- I made changes and need to test everything again before I share it -- but now I am working on something else.  I appreciate you taking time to give me feedback!

Error 70
Zugriff verweigert (Access Denied)
DocumentCode

I think I know what the problem is ... I make a copy of the database to document.  then I attempt to make changes in the copy before i open it up to analyze such as removing the startup form, etc.  Remove these things yourself and then it won't gripe ;)

also, the documenter will not work on a database with security -- you have to remove the security.

I definitely appreciate you testing the German version for me, thanks!

Warm Regards,
Crystal

Microsoft MVP
remote programming and training

Access Basics by Crystal
http://www.AccessMVP.com/strive4peace
Free 100-page book that covers essentials in Access

 *
   (: have an awesome day :)
 *

________________________________
From: acravenrohm <yahoo@craven.de>
To: MS_Access_Professionals@yahoogroups.com
Sent: Tuesday, January 31, 2012 3:21 PM
Subject: [MS_AccessPros] Re: New file uploaded -- Crystal's Code Documenter

Been there, seen it, done it, and will probably continue to do it from time to time :-)

Just downloaded the 311p_BETA version and now I'm getting a different Error:

Error 70
Zugriff verweigert (Access Denied)
DocumentCode

:'(

This may be a topic that doesn't interest most viewers here, as it may be due to foreign language Access gotchas (or, perhaps, the tester didn't follow the test-protocol gotcha), maybe I should send my results direct?

--- In MS_Access_Professionals@yahoogroups.com, Crystal <strive4peace2008@...> wrote:
>
> thanks, Andrew!
>
> I made some "enhancements" to it when I was tired ... it works again ;)
>
>
> I just uploaded another version.  I very much appreciate your comments
>
> Warm Regards,
> Crystal
>
> Microsoft MVP
> remote programming and training
>
> Access Basics by Crystal
> http://www.AccessMVP.com/strive4peace
> Free 100-page book that covers essentials in Access
>
>  *
>    (: have an awesome day :)
>  *
>
>
>
> ________________________________
>  From: acravenrohm

> I'm getting an:
>
> ERROR 35 WriteProcTotals
> Sub oder Function nicht definiert
>
> Running a German Access 2010
>
> It came more than 100 times before I gave up and killed it :-(
>
> Six References seem to be Ok.
>
> --- Crystal wrote:
> >
> >
> > Hello,
> >
> > This email message is a notification to let you know that
> > a file has been uploaded to the Files area of the MS_Access_Professionals
> > group.
> >
> >   File        : /Crystal/CrystalsCodeDocumenter_120129_7p__ACCDE_TXT.zip
> >   Uploaded by : strive4peace2008 <strive4peace2008@>
> >   Description : Document Modules, Procedures, and Lines of Code in your Access databases! Download my free utility (Access 2007 and 2010). I am happy to be finally done (enough) with my code documenter to share it with you.  There is still so much I want to do but I have to start using it to do my work!  This is a beta. Please send me your comments and ideas! Watch the video on my YouTube channel: http://YouTube.com/LearnAccessByCrystal ~Thanks, Crystal
> >
> > You can access this file at the URL:
> > http://groups.yahoo.com/group/MS_Access_Professionals/files/Crystal/CrystalsCodeDocumenter_120129_7p__ACCDE_TXT.zip
> >
> > To learn more about file sharing for your group, please visit:
> > http://help.yahoo.com/l/us/yahoo/groups/original/members/web/index.html
> > Regards,
> >
> > strive4peace2008 <strive4peace

[Non-text portions of this message have been removed]

__._,_.___
Recent Activity:
.

__,_._,___

Re: [MS_AccessPros] Combo Box Lookup

 

There is no Menu type combo box in frm_Recipe2.

frm_Recipe3 has MealTypeID bound to 2 controls and the combo box row source doesn't include the ID column.

frm_Recipe4 has the same error since its row source is just the text field, not the ID.

ditto for frm_Recipe5.

The record source of frm_Recipe5 includes all of the lookup tables with INNER JOINs. Change them to RIGHT JOINs and you will see all the records:

SELECT tbl_Recipe.RecipeName, tbl_Recipe.Description, tbl_Recipe.Servings, tbl_Recipe.DryIngredients, tbl_Recipe.WetIngredients, tbl_Recipe.Cost, tbl_Recipe.Directions, tbl_Recipe.Suggestion, tbl_MealType.MealType, tbl_RecipeCategory.RecipeCategory, tbl_RecipeType.RecipeType
FROM tbl_RecipeType RIGHT JOIN (tbl_RecipeCategory RIGHT JOIN (tbl_MealType RIGHT JOIN tbl_Recipe ON tbl_MealType.MealTypeID = tbl_Recipe.MealTypeID) ON tbl_RecipeCategory.RecipeCategoryID = tbl_Recipe.RecipeCategoryID) ON tbl_RecipeType.RecipeTypeID = tbl_Recipe.RecipeTypeID;

Why don't you delete qry_MealType? It is just leading you astray. And, why not just use frm_Recipe since it seems to work? Why all the others?

Duane Hookom
MS Access MVP

--- In MS_Access_Professionals@yahoogroups.com, "yshopper" <mossj5@...> wrote:
>
> I fixed them before I uploaded. I just uploaded a new 03 version DB.
>
> frm_Recipe2 stores the same date in the menu type combo box. frm_Recipe3 says the Value isn't valid.
> frm_recipe4 has the same error.
> frm_Recipe5 only shows 2 records.
>
> --- In MS_Access_Professionals@yahoogroups.com, Duane Hookom <duanehookom@> wrote:
> >
> >
> > Which form doesn't work? I tried the frm_Recipe and it seemed to work like I would expect. Duane HookomMS Access MVP
> > To: MS_Access_Professionals@yahoogroups.com
> > From: mossj5@
> > Date: Wed, 1 Feb 2012 02:22:28 +0000
> > Subject: Re: [MS_AccessPros] Combo Box Lookup
> >
> >
> >
> >
> >
> >
> >
> >
> >
> >
> >
> >
> >
> >
> >
> >
> >
> >
> >
> >
> >
> >
> >
> >
> >
> >
> >
> >
> > I also uploaded the 03 version of the DB to
> >
> > http://tech.groups.yahoo.com/group/MS_Access_Professionals/files/Recipe/
> >
> >
> >
> > --- In MS_Access_Professionals@yahoogroups.com, John Moss <mossj5@> wrote:
> >
> > >
> >
> > > here's what I have
> >
> > >
> >
> > > a simple recipe DB with 4 tables; tbl_Recipe, tbl_MealType,
> >
> > > tbl_RecipeType, tbl_Category.
> >
> > >
> >
> > > the tbl_MealType, tbl_RecipeType, tbl_Category have a one to many
> >
> > > relationship to the tbl_Recipe, each meal type can have many recipes, etc..
> >
> > >
> >
> > > If I create a form based on a query and only use the tbl_Recipe fields
> >
> > > that do not include the Foreign Keys to the other tables, then when I
> >
> > > add the combo box and I use the option "Remember the Value for later
> >
> > > use" I get the same data for each record in the lookup combo box.
> >
> > >
> >
> > > If I use a query that includes the Foreign Keys, I get the same result.
> >
> > >
> >
> > > If I create a form and base it on a query and I choose "Store Value in
> >
> > > Field" and I select the Foreign Key OD field, I get a "Value is not
> >
> > > Valid" error.
> >
> > >
> >
> > > If I create a form and base it on a table and choose "Store Value in
> >
> > > Field", then it works.
> >
> > >
> >
> > > It's obvious I doing something stupid, but can't figure it out.
> >
> > >
> >
> > > Thanks,
> >
> > > John M.
> >
> > >
> >
> > > On 1/31/2012 1:25 PM, John Viescas wrote:
> >
> > > >
> >
> > > > John-
> >
> > > >
> >
> > > > You should normally use a query as the Row Source of a combo box, but
> >
> > > > a table
> >
> > > > can work, too. Are you saying it only works using a table and does not
> >
> > > > using a
> >
> > > > query?
> >
> > > >
> >
> > > > John Viescas, author
> >
> > > > Microsoft Office Access 2010 Inside Out
> >
> > > > Microsoft Office Access 2007 Inside Out
> >
> > > > Building Microsoft Access Applications
> >
> > > > Microsoft Office Access 2003 Inside Out
> >
> > > > SQL Queries for Mere Mortals
> >
> > > > http://www.viescas.com/
> >
> > > > (Lahaina, HI)
> >
> > > >
> >
> > > > -----Original Message-----
> >
> > > > From: MS_Access_Professionals@yahoogroups.com
> >
> > > > <mailto:MS_Access_Professionals%40yahoogroups.com>
> >
> > > > [mailto:MS_Access_Professionals@yahoogroups.com
> >
> > > > <mailto:MS_Access_Professionals%40yahoogroups.com>] On Behalf Of yshopper
> >
> > > > Sent: Tuesday, January 31, 2012 10:16 AM
> >
> > > > To: MS_Access_Professionals@yahoogroups.com
> >
> > > > <mailto:MS_Access_Professionals%40yahoogroups.com>
> >
> > > > Subject: [MS_AccessPros] Combo Box Lookup
> >
> > > >
> >
> > > > I added a combo box to a form to use as a lookup. Why does this work
> >
> > > > using a
> >
> > > > Table instead of a Query?
> >
> > > >
> >
> > > > Thanks for any insight.
> >
> > > >
> >
> > > > John
> >
> > > >
> >
> > > > ------------------------------------
> >
> > > >
> >
> > > > Yahoo! Groups Links
> >
> > > >
> >
> > > >
> >
> > >
> >
> > >
> >
> > >
> >
> > > [Non-text portions of this message have been removed]
> >
> > >
> >
> >
> >
> >
> >
> >
> >
> >
> >
> >
> >
> >
> >
> >
> >
> >
> >
> >
> > [Non-text portions of this message have been removed]
> >
>

__._,_.___
Recent Activity:
.

__,_._,___

Re: [MS_AccessPros] Combo Box Lookup

 

I fixed them before I uploaded. I just uploaded a new 03 version DB.

frm_Recipe2 stores the same date in the menu type combo box. frm_Recipe3 says the Value isn't valid.
frm_recipe4 has the same error.
frm_Recipe5 only shows 2 records.

--- In MS_Access_Professionals@yahoogroups.com, Duane Hookom <duanehookom@...> wrote:
>
>
> Which form doesn't work? I tried the frm_Recipe and it seemed to work like I would expect. Duane HookomMS Access MVP
> To: MS_Access_Professionals@yahoogroups.com
> From: mossj5@...
> Date: Wed, 1 Feb 2012 02:22:28 +0000
> Subject: Re: [MS_AccessPros] Combo Box Lookup
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
> I also uploaded the 03 version of the DB to
>
> http://tech.groups.yahoo.com/group/MS_Access_Professionals/files/Recipe/
>
>
>
> --- In MS_Access_Professionals@yahoogroups.com, John Moss <mossj5@> wrote:
>
> >
>
> > here's what I have
>
> >
>
> > a simple recipe DB with 4 tables; tbl_Recipe, tbl_MealType,
>
> > tbl_RecipeType, tbl_Category.
>
> >
>
> > the tbl_MealType, tbl_RecipeType, tbl_Category have a one to many
>
> > relationship to the tbl_Recipe, each meal type can have many recipes, etc..
>
> >
>
> > If I create a form based on a query and only use the tbl_Recipe fields
>
> > that do not include the Foreign Keys to the other tables, then when I
>
> > add the combo box and I use the option "Remember the Value for later
>
> > use" I get the same data for each record in the lookup combo box.
>
> >
>
> > If I use a query that includes the Foreign Keys, I get the same result.
>
> >
>
> > If I create a form and base it on a query and I choose "Store Value in
>
> > Field" and I select the Foreign Key OD field, I get a "Value is not
>
> > Valid" error.
>
> >
>
> > If I create a form and base it on a table and choose "Store Value in
>
> > Field", then it works.
>
> >
>
> > It's obvious I doing something stupid, but can't figure it out.
>
> >
>
> > Thanks,
>
> > John M.
>
> >
>
> > On 1/31/2012 1:25 PM, John Viescas wrote:
>
> > >
>
> > > John-
>
> > >
>
> > > You should normally use a query as the Row Source of a combo box, but
>
> > > a table
>
> > > can work, too. Are you saying it only works using a table and does not
>
> > > using a
>
> > > query?
>
> > >
>
> > > John Viescas, author
>
> > > Microsoft Office Access 2010 Inside Out
>
> > > Microsoft Office Access 2007 Inside Out
>
> > > Building Microsoft Access Applications
>
> > > Microsoft Office Access 2003 Inside Out
>
> > > SQL Queries for Mere Mortals
>
> > > http://www.viescas.com/
>
> > > (Lahaina, HI)
>
> > >
>
> > > -----Original Message-----
>
> > > From: MS_Access_Professionals@yahoogroups.com
>
> > > <mailto:MS_Access_Professionals%40yahoogroups.com>
>
> > > [mailto:MS_Access_Professionals@yahoogroups.com
>
> > > <mailto:MS_Access_Professionals%40yahoogroups.com>] On Behalf Of yshopper
>
> > > Sent: Tuesday, January 31, 2012 10:16 AM
>
> > > To: MS_Access_Professionals@yahoogroups.com
>
> > > <mailto:MS_Access_Professionals%40yahoogroups.com>
>
> > > Subject: [MS_AccessPros] Combo Box Lookup
>
> > >
>
> > > I added a combo box to a form to use as a lookup. Why does this work
>
> > > using a
>
> > > Table instead of a Query?
>
> > >
>
> > > Thanks for any insight.
>
> > >
>
> > > John
>
> > >
>
> > > ------------------------------------
>
> > >
>
> > > Yahoo! Groups Links
>
> > >
>
> > >
>
> >
>
> >
>
> >
>
> > [Non-text portions of this message have been removed]
>
> >
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
> [Non-text portions of this message have been removed]
>

__._,_.___
Recent Activity:
.

__,_._,___

RE: [MS_AccessPros] Error received in VBA calculation of distance between geo coordinates

 

Hi Isaac

John is right - you are returning Null for aCos(1), when in fact you should
return zero.

FWIW, here is my aCos function:

Public Function aCos(x As Double) As Double
If Abs(x) < 1 Then
aCos = (pi / 2) - Atn(x / Sqr(1 - x * x))
ElseIf x = 1 Then
aCos = 0
ElseIf x = -1 Then
aCos = pi
Else
Err.Raise 5, "aCos", "aCos argument must be between -1 and 1"
End If
End Function

However, I think the problem is that you are passing a value outside the
range [-1..1]. I can't see how this could happen, because

Abs(Sin(deg2rad(lat1)) * Sin(deg2rad(lat2)) + Cos(deg2rad(lat1)) *
Cos(deg2rad(lat2)) * Cos(deg2rad(lon1 - lon2)))

should always be <=1.

Here is my Distance function. It is very similar to yours, but does the
calculations based on kilometres:

Public Function Distance( _
ByVal lat1 As Double, _
ByVal lon1 As Double, _
ByVal lat2 As Double, _
ByVal lon2 As Double, _
Optional unit As String = "km") As Double
' assumes spherical earth
' based on Spherical Cosines algorithm described here:
' http://en.wikipedia.org/wiki/Great-circle_distance
' latitude-longitude are degrees with fractions expressed as decimals
' unit beginning with "m" = miles; "n" = nautical miles; otherwise
kilometres
Const Radius As Double = 6372.8 ' earth's root mean square radius in
kilometres
Dim Arc As Double
If (lat1 = lat2) And (lon1 = lon2) Then
Distance = 0
Exit Function
End If
lat1 = DegToRad(lat1)
lon1 = DegToRad(lon1)
lat2 = DegToRad(lat2)
lon2 = DegToRad(lon2)
Arc = aCos((Sin(lat1) * Sin(lat2)) + _
(Cos(lat1) * Cos(lat2) * Cos(lon1 - lon2)))
Distance = Arc * Radius
Select Case Left(unit, 1)
Case "m": Distance = Distance * 0.621371 ' miles
Case "n": Distance = Distance * 0.5399 ' nautical miles
' Case Else 'kilometres
End Select
Distance = Round(Distance, 2)
End Function

Both my function and yours give very similar results, and I cannot make
either fail. Could you please post some sample arguments that cause yours
to break?

Best wishes,
Graham

> From: MS_Access_Professionals@yahoogroups.com
[mailto:MS_Access_Professionals@yahoogroups.com] On Behalf Of Crystal
> Sent: Wednesday, 1 February 2012 11:56
> To: MS_Access_Professionals@yahoogroups.com
> Subject: Re: [MS_AccessPros] Error received in VBA calculation of distance
between geo coordinates
>
>  
> Hi Isaac,
>
> you can put this statement in your code:
> '~~~~~~~~~~~~~~~   
>    Stop
> '~~~~~~~~~~~~~~~
>
> then press F8 to step through the code one line at a time. 
>
> press CTRL-G to turn on the Immediate window.  to find out a value of a
variable, type this:
> ? MyVariablename
> and press ENTER
>
> when you want to execute the next line of code, if you are in the
Immediate window, click on the titlebar for the code windows and press F8
>
> as you probably realize, we can't travel as the crow flies so calculating
ditance from coordinates won't really be how far you have to go ;)
>
> If you do not figure out the problem, Please post the code that is doing
the calculations
>
> Warm Regards,
> Crystal
>
> Microsoft MVP
> remote programming and training
>
> Access Basics by Crystal
> http://www.AccessMVP.com/strive4peace
> Free 100-page book that covers essentials in Access
>
>  *
>    (: have an awesome day :)
>  *
>
> ________________________________
> From: Isaac
> Subject: [MS_AccessPros] Error received in VBA calculation of distance
between geo coordinates
>
> Pros: I know this is a shot in the dark, but my math skills are just not
up to debugging this function. Thank you in advance for any
thoughts/comments/suggestions:
>
> We have a database of property locations which are geocoded and when a
property is selected, one of the things the database does is it provides a
list of neighboring properties, sorted by distance. Occasionally the
database will throw an error: "Run-time error '5': Invalid procedure call or
argument".
>
> I choose to debug and it takes me to the function below (I used
apostrophes to break out the function where the error is)
>
> I know it is a mathematical error in that my function is generating a
value that is out of range, but I can't figure out why one property (one set
of coordinates) throws the error and why another does not.
>
> For example a property with the coordinates of 40.9454923 , -72.8867217
throws the error while 40.9567969 , -72.9755829 does not. I can't figure out
how to do the math in my head. I know there is a way to let the VBA editor
go through the code step by step and display the values in the immediate
window, but I can't get it to go through all the steps.
>
> Thanks,
>
> Isaac Richter
>
> ______________________________________
>
> Option Compare Database
> Option Explicit
>                                                            
> '  This routine calculates the distance between two points (given the 
latitude/longitude of those points). It is being
> 'used to calculate  distance between two ZIP Codes or Postal Codes
>
> 'Definitions
> '    South latitudes are negative, east longitudes are positive
>
> 'Passed to function
> 'lat1, lon1 = Latitude and Longitude of point 1 (in decimal degrees)
> 'lat2, lon2 = Latitude and Longitude of point 2 (in decimal degrees)
> 'unit = the unit you desire for results where 'M' is statute miles
(default)
> ' 'K' is kilometers
> ' 'N' is nautical miles
>
> Const pi = 3.14159265358979
> Global PropertyLat
> Global PropertyLong
> Public lngMap As Long
> Global lngComparablesDistance As Long
>
> Function Distance(lat1, lon1, lat2, lon2, unit)
>   Dim theta, dist
>   theta = lon1 - lon2
>   dist = Sin(deg2rad(lat1)) * Sin(deg2rad(lat2)) + Cos(deg2rad(lat1)) *
Cos(deg2rad(lat2)) * Cos(deg2rad(theta))
>   dist = acos(dist)
>   dist = rad2deg(dist)
>   Distance = dist * 60 * 1.1515
>   Select Case UCase(unit)
>     Case "K"
>       Distance = Distance * 1.609344
>     Case "N"
>       Distance = Distance * 0.8684
>   End Select
> End Function
>
> *****************************
> Below this is where the error is
> *****************************
>
> '  This function get the arccos function from arctan function
> '
> Function acos(Rad)
>   If Abs(Rad) <> 1 Then
>     acos = pi / 2 - Atn(Rad / Sqr(1 - Rad * Rad))
>   ElseIf Rad = -1 Then
>     acos = pi
>   End If
> End Function
>
> *****************************
> Above this is where the error is
> *****************************
>
> '  This function converts decimal degrees to radians
> '
> Function deg2rad(Deg)
>     deg2rad = CDbl(Deg * pi / 180)
> End Function
> '  This function converts radians to decimal degrees
> '
> Function rad2deg(Rad)
>     rad2deg = CDbl(Rad * 180 / pi)
> End Function
>
> 'Demo
> 'response.Write distance(32.9697, -96.80322, 29.46786, -98.53506, "M") & "
Miles<br>"
> 'response.Write distance(32.9697, -96.80322, 29.46786, -98.53506, "K") & "
Kilometers<br>"
> 'response.Write distance(32.9697, -96.80322, 29.46786, -98.53506, "N") & "
Nautical Miles<br>"
>
> Function GetDistance(Latitude, Longitude)
>
>     If ((Not IsNull(PropertyLat)) And (Not IsNull(PropertyLong))) Then
>         GetDistance = Distance(PropertyLat, PropertyLong, Latitude,
Longitude, "M")
>     End If
>    
> End Function


__._,_.___
Recent Activity:
.

__,_._,___

RE: [MS_AccessPros] Combo Box Lookup

Which form doesn't work? I tried the frm_Recipe and it seemed to work like I would expect. Duane HookomMS Access MVP
To: MS_Access_Professionals@yahoogroups.com
From: mossj5@comcast.net
Date: Wed, 1 Feb 2012 02:22:28 +0000
Subject: Re: [MS_AccessPros] Combo Box Lookup






I also uploaded the 03 version of the DB to

http://tech.groups.yahoo.com/group/MS_Access_Professionals/files/Recipe/

--- In MS_Access_Professionals@yahoogroups.com, John Moss <mossj5@...> wrote:

>

> here's what I have

>

> a simple recipe DB with 4 tables; tbl_Recipe, tbl_MealType,

> tbl_RecipeType, tbl_Category.

>

> the tbl_MealType, tbl_RecipeType, tbl_Category have a one to many

> relationship to the tbl_Recipe, each meal type can have many recipes, etc..

>

> If I create a form based on a query and only use the tbl_Recipe fields

> that do not include the Foreign Keys to the other tables, then when I

> add the combo box and I use the option "Remember the Value for later

> use" I get the same data for each record in the lookup combo box.

>

> If I use a query that includes the Foreign Keys, I get the same result.

>

> If I create a form and base it on a query and I choose "Store Value in

> Field" and I select the Foreign Key OD field, I get a "Value is not

> Valid" error.

>

> If I create a form and base it on a table and choose "Store Value in

> Field", then it works.

>

> It's obvious I doing something stupid, but can't figure it out.

>

> Thanks,

> John M.

>

> On 1/31/2012 1:25 PM, John Viescas wrote:

> >

> > John-

> >

> > You should normally use a query as the Row Source of a combo box, but

> > a table

> > can work, too. Are you saying it only works using a table and does not

> > using a

> > query?

> >

> > John Viescas, author

> > Microsoft Office Access 2010 Inside Out

> > Microsoft Office Access 2007 Inside Out

> > Building Microsoft Access Applications

> > Microsoft Office Access 2003 Inside Out

> > SQL Queries for Mere Mortals

> > http://www.viescas.com/

> > (Lahaina, HI)

> >

> > -----Original Message-----

> > From: MS_Access_Professionals@yahoogroups.com

> > <mailto:MS_Access_Professionals%40yahoogroups.com>

> > [mailto:MS_Access_Professionals@yahoogroups.com

> > <mailto:MS_Access_Professionals%40yahoogroups.com>] On Behalf Of yshopper

> > Sent: Tuesday, January 31, 2012 10:16 AM

> > To: MS_Access_Professionals@yahoogroups.com

> > <mailto:MS_Access_Professionals%40yahoogroups.com>

> > Subject: [MS_AccessPros] Combo Box Lookup

> >

> > I added a combo box to a form to use as a lookup. Why does this work

> > using a

> > Table instead of a Query?

> >

> > Thanks for any insight.

> >

> > John

> >

> > ------------------------------------

> >

> > Yahoo! Groups Links

> >

> >

>

>

>

> [Non-text portions of this message have been removed]

>




[Non-text portions of this message have been removed]

------------------------------------

Yahoo! Groups Links

<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/MS_Access_Professionals/

<*> Your email settings:
Individual Email | Traditional

<*> To change settings online go to:
http://groups.yahoo.com/group/MS_Access_Professionals/join
(Yahoo! ID required)

<*> To change settings via email:
MS_Access_Professionals-digest@yahoogroups.com
MS_Access_Professionals-fullfeatured@yahoogroups.com

<*> To unsubscribe from this group, send an email to:
MS_Access_Professionals-unsubscribe@yahoogroups.com

<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/

Re: [belajar-access] Field Format

 

coba mas Hendra, di control sourcenya direvisi sedikit = Format([IDRPS_SPJ].[Column](6),"Standard")
 
Thank you | Terima Kasih | Matur Suksema

Sumiyanto


From: Hendra Agestha Hamid <the_agestha@yahoo.com>
To: "belajar-access@yahoogroups.com" <belajar-access@yahoogroups.com>
Sent: Monday, 30 January 2012 8:50 PM
Subject: [belajar-access] Field Format

 
Dear Rekan2 Milis...
Saya punya sebuah textbox yg RecordSource-nya adalah =IDRPS_SPJ.Column(6), saya sudah set Format Field di, Table Source, di Query bahkan
di form...saya set Format = Standard, tapi kenapa hasilnya tidak seperti yang diinginkan...
contoh : 3000000 ... seharusnya 3.000.000 (dengan titik pemisah antar ribuan), mohon pencerahannya.,Terima kasih sebelumnya.
Regards
Hendra


__._,_.___
Recent Activity:
SPAM IS PROHIBITED
.

__,_._,___

Re: [belajar-access] Impor data dari excel ke dalam sub form (berbentuk table)

 

'ini dlm Versi access 2010,
'tapi harap disinkronkan antara field yang menjadi kunci link master-childnya pada form dan subform

Public Sub ImportDatabaseObjects()
On Error GoTo Err_ImportDatabaseObjects

DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12Xml, "tblSubForm", "C:\Temp\Book1.xlsx"

Exit_ImportDatabaseObjects:
    Exit Sub
   
Err_ImportDatabaseObjects:
    MsgBox Err.Number & " - " & Err.Description, vbCritical, "ERROR"
    Resume Exit_ImportDatabaseObjects
   
End Sub
 
Thank you | Terima Kasih | Matur Suksema

Sumiyanto


From: reza <r354_hidayat@yahoo.co.id>
To: belajar-access@yahoogroups.com
Sent: Monday, 30 January 2012 11:35 PM
Subject: [belajar-access] Impor data dari excel ke dalam sub form (berbentuk table)

 
Permisi para pakar access..
Mau nanya, bisa tidak mengimpor data dari excel ke dalam subform dengan menggunakan commond button sehingga ketika commond button di klik data dari excel akan masuk ke subform.
Terima Kasih.



__._,_.___
Recent Activity:
SPAM IS PROHIBITED
.

__,_._,___

Re: [MS_AccessPros] Combo Box Lookup

 

I also uploaded the 03 version of the DB to
http://tech.groups.yahoo.com/group/MS_Access_Professionals/files/Recipe/

--- In MS_Access_Professionals@yahoogroups.com, John Moss <mossj5@...> wrote:
>
> here's what I have
>
> a simple recipe DB with 4 tables; tbl_Recipe, tbl_MealType,
> tbl_RecipeType, tbl_Category.
>
> the tbl_MealType, tbl_RecipeType, tbl_Category have a one to many
> relationship to the tbl_Recipe, each meal type can have many recipes, etc..
>
> If I create a form based on a query and only use the tbl_Recipe fields
> that do not include the Foreign Keys to the other tables, then when I
> add the combo box and I use the option "Remember the Value for later
> use" I get the same data for each record in the lookup combo box.
>
> If I use a query that includes the Foreign Keys, I get the same result.
>
> If I create a form and base it on a query and I choose "Store Value in
> Field" and I select the Foreign Key OD field, I get a "Value is not
> Valid" error.
>
> If I create a form and base it on a table and choose "Store Value in
> Field", then it works.
>
> It's obvious I doing something stupid, but can't figure it out.
>
> Thanks,
> John M.
>
> On 1/31/2012 1:25 PM, John Viescas wrote:
> >
> > John-
> >
> > You should normally use a query as the Row Source of a combo box, but
> > a table
> > can work, too. Are you saying it only works using a table and does not
> > using a
> > query?
> >
> > John Viescas, author
> > Microsoft Office Access 2010 Inside Out
> > Microsoft Office Access 2007 Inside Out
> > Building Microsoft Access Applications
> > Microsoft Office Access 2003 Inside Out
> > SQL Queries for Mere Mortals
> > http://www.viescas.com/
> > (Lahaina, HI)
> >
> > -----Original Message-----
> > From: MS_Access_Professionals@yahoogroups.com
> > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > [mailto:MS_Access_Professionals@yahoogroups.com
> > <mailto:MS_Access_Professionals%40yahoogroups.com>] On Behalf Of yshopper
> > Sent: Tuesday, January 31, 2012 10:16 AM
> > To: MS_Access_Professionals@yahoogroups.com
> > <mailto:MS_Access_Professionals%40yahoogroups.com>
> > Subject: [MS_AccessPros] Combo Box Lookup
> >
> > I added a combo box to a form to use as a lookup. Why does this work
> > using a
> > Table instead of a Query?
> >
> > Thanks for any insight.
> >
> > John
> >
> > ------------------------------------
> >
> > Yahoo! Groups Links
> >
> >
>
>
>
> [Non-text portions of this message have been removed]
>

__._,_.___
Recent Activity:
.

__,_._,___

Re: [MS_AccessPros] Combo Box Lookup

 

here's what I have

a simple recipe DB with 4 tables; tbl_Recipe, tbl_MealType,
tbl_RecipeType, tbl_Category.

the tbl_MealType, tbl_RecipeType, tbl_Category have a one to many
relationship to the tbl_Recipe, each meal type can have many recipes, etc..

If I create a form based on a query and only use the tbl_Recipe fields
that do not include the Foreign Keys to the other tables, then when I
add the combo box and I use the option "Remember the Value for later
use" I get the same data for each record in the lookup combo box.

If I use a query that includes the Foreign Keys, I get the same result.

If I create a form and base it on a query and I choose "Store Value in
Field" and I select the Foreign Key OD field, I get a "Value is not
Valid" error.

If I create a form and base it on a table and choose "Store Value in
Field", then it works.

It's obvious I doing something stupid, but can't figure it out.

Thanks,
John M.

On 1/31/2012 1:25 PM, John Viescas wrote:
>
> John-
>
> You should normally use a query as the Row Source of a combo box, but
> a table
> can work, too. Are you saying it only works using a table and does not
> using a
> query?
>
> John Viescas, author
> Microsoft Office Access 2010 Inside Out
> Microsoft Office Access 2007 Inside Out
> Building Microsoft Access Applications
> Microsoft Office Access 2003 Inside Out
> SQL Queries for Mere Mortals
> http://www.viescas.com/
> (Lahaina, HI)
>
> -----Original Message-----
> From: MS_Access_Professionals@yahoogroups.com
> <mailto:MS_Access_Professionals%40yahoogroups.com>
> [mailto:MS_Access_Professionals@yahoogroups.com
> <mailto:MS_Access_Professionals%40yahoogroups.com>] On Behalf Of yshopper
> Sent: Tuesday, January 31, 2012 10:16 AM
> To: MS_Access_Professionals@yahoogroups.com
> <mailto:MS_Access_Professionals%40yahoogroups.com>
> Subject: [MS_AccessPros] Combo Box Lookup
>
> I added a combo box to a form to use as a lookup. Why does this work
> using a
> Table instead of a Query?
>
> Thanks for any insight.
>
> John
>
> ------------------------------------
>
> Yahoo! Groups Links
>
>

[Non-text portions of this message have been removed]

__._,_.___
Recent Activity:
.

__,_._,___

[MS_AccessPros] New file uploaded to MS_Access_Professionals

 


Hello,

This email message is a notification to let you know that
a file has been uploaded to the Files area of the MS_Access_Professionals
group.

File : /Recipe/recipe03.mdb
Uploaded by : yshopper <mossj5@comcast.net>
Description : recipe DB

You can access this file at the URL:
http://groups.yahoo.com/group/MS_Access_Professionals/files/Recipe/recipe03.mdb

To learn more about file sharing for your group, please visit:
http://help.yahoo.com/l/us/yahoo/groups/original/members/web/index.html
Regards,

yshopper <mossj5@comcast.net>


__._,_.___
Recent Activity:
.

__,_._,___

Re: [belajar-access] (unknown)

 

Special for : Mas Robbiansyah

Selamat ya, sudah naik jabatan Kabag (Kepala Bagian), tentu saja ini bukan hanya karena anda ahli access (mungkin ini salah satu kriterianya) tetapi juga karena dedikasi dan upaya anda meraih kesuksesan tersebut. 

- jawab: Mungkin diperlukan aplikasi multi user, database yang sekarang di splitzing. Front End (FE) dan Back End (BE). Data BE taruh di file sharing kemudian di link/dikeroyok rame-rame= meminjam istilah bang AK, Aksan Kurdin bukan Avtomat Kalashnikova-47 senjata buatan soviet yang terkenal itu. he.he.. jangan terlalu serius.
- kemudian FE di pasang di client Kabag, Admin1, Admin2. yang Kabag bisa berupa mdb/accdb karena masih terus dalam masa develop, sedangkan yang Admin1, dan admin2 aplikasi di convert menjadi mde/accde karena hanya sebagai user saja.

      
Thank you | Terima Kasih | Matur Suksema

Sumiyanto


From: "robbi_ansyah@yahoo.com" <robbi_ansyah@yahoo.com>
To: belajar-access@yahoogroups.com
Sent: Monday, 30 January 2012 5:54 AM
Subject: [belajar-access] (unknown)

Met malem para master access,

Smoga dpt pencerahan setelah menceritakan permasalahan soal data access ini.
1. Sebelumnya saya adalah admin yg mengoleh database keseluruhan dari app access yg sya buat.
2. Bru beberapa hari ini, sya dipercaya oleh mgt untuk menjadi Kabag. Sehingga diperbantukan oleh 2 orng adm baru.
3. Masing2 admin bertanggung jawab berdasarkan TYpe barng.

Apa solusinya, agar saya dpt membuat laporan dgn keadaan data terpisah. sdngkan saya masih menggunakan app access yg saya buat. Bayangan saya mereka meng eksport data kemudian saya menginport...tapi rumit amat yaaa....

Mohon pencerahan dari para suhu...

Best regard
Robby

Sent from my BlackBerry® smartphone from Sinyal Bagus XL, Nyambung Teruuusss...!

------------------------------------

SPAM IS PROHIBITEDYahoo! Groups Links

<*> To visit your group on the web, go to:
    http://groups.yahoo.com/group/belajar-access/

<*> Your email settings:
    Individual Email | Traditional

<*> To change settings online go to:
    http://groups.yahoo.com/group/belajar-access/join
    (Yahoo! ID required)

<*> To change settings via email:
    belajar-access-digest@yahoogroups.com
    belajar-access-fullfeatured@yahoogroups.com

<*> To unsubscribe from this group, send an email to:
    belajar-access-unsubscribe@yahoogroups.com

<*> Your use of Yahoo! Groups is subject to:
    http://docs.yahoo.com/info/terms/



__._,_.___
Recent Activity:
SPAM IS PROHIBITED
.

__,_._,___