in any module, from the menu bar click Edit | Find. in the Find dialog, in
the Search section, choose Current Project, so all modules in the database
will be searched. if you don't "find" another procedure with the same
name,
great. again, make sure that the standard module holding the procedure
does
*not* have the same name as the procedure. then, suggest you compile
the
code by clicking Debug | Compile from the menu bar; fix any errors that
come
up. then close any open objects (forms, modules, whatever) and
compact/repair the database. then try running the function again.
hth
I see the module listing on the left side to where code is entered. The
procedure is listed under "Modules". I clicked the heading "Class
Modules"
and all the associated forms opened. I opened "fWorkLog" form (where my
calculated time field is located) and the command buttons, etc.
associated
with this form opened but not the procedure listed below. So it's not in
both places, correct? I'm not very good with code - can figure a few
thing
out with cut & paste. Your help with this is very much appreciated!!!
did you have the procedure in a form's module, and then add it to a
standard
module - without deleting it from the form's module? if so, delete the
procedure from the form module; you don't need it in both places.
hth
I went to Modules on the left side of the db window, clicked New
and
pasted
the code in. I've changed the name several times and keep getting
"The
expression contains and ambiguous name. You may have two or more
functions
with the same name in different modules. Rename the functions so that
each
one has a unique name". The first time I did this with the Elapsed
Time
String it worked really well.
did you put the function in your form module? if so, try putting it
in
a
standard module. make sure you don't give the module the same
name
as
the
procedure.
hth
Tina,
Thank you so much for the prompt reply and it worked very well.
Would you mind looking at the following code and letting me know
what
I'm
doing wrong. I have set fields "StartTime" and "StopTime" and can
get
it
to
calculate on a field with an Elapsed Time String code for each
record
on
a
datasheet. I want to total the amount of time for the total job
and
have
set up the following "HoursAndMinutes" module code. When I
enter
=HoursAndMinutes([StartTime]-[StopTime]) OR
=HoursAndMinutes(Sum([StartTime]-[StopTime])), I get the msg "The
object
doesn't contain the Automation Object 'HoursAndMinutes'
Public Function HoursAndMinutes(interval As Variant) As String
'***********************************************************************
' Function HoursAndMinutes(interval As Variant) As String
' Returns time interval formatted as a hours:minutes string
'***********************************************************************
Dim totalminutes As Long, totalseconds As Long
Dim hours As Long, minutes As Long, seconds As Long
If IsNull(interval) = True Then Exit Function
hours = Int(CSng(interval * 24))
totalminutes = Int(CSng(interval * 1440)) ' 1440 = 24 hrs * 60
mins
minutes = totalminutes Mod 60
totalseconds = Int(CSng(interval * 86400)) ' 86400 = 1440 *
60
secs
seconds = totalseconds Mod 60
If seconds > 30 Then minutes = minutes + 1 ' round up the
minutes
and
If minutes > 59 Then hours = hours + 1: minutes = 0 ' adjust
hours
HoursAndMinutes = hours & ":" & Format(minutes, "00")
End FunctionThe help is greatly appreciated!!"tina"
<
[email protected]>
wrote in message
if there is a possibility that a record will have Receiving data
entered,
but not Disassembly data entered, *when you move to that record*,
then
change the Current event to
If IsNull(Me!Receiving) Then
DoCmd.OpenForm "fPopUpReceiving"
ElseIf IsNull(Me!Disassembly) Then
DoCmd.OpenForm "DisassemblyFormName"
End If
again, if you don't want the pop-ups on new blank records,
then
change
the
above to
If Not Me.NewRecord Then
If IsNull(Me!Receiving) Then
DoCmd.OpenForm "fPopUpReceiving"
ElseIf IsNull(Me!Disassembly) Then
DoCmd.OpenForm "DisassemblyFormName"
End If
End If
aside from the above, add the following code to the Receiving
control's
AfterUpdate event, as
If IsNull(Me!Disassembly) Then
DoCmd.OpenForm "DisassemblyFormName"
End If
hth
Tina,
Thanks for the help! It worked, but can you now tell me how
to
keep
a
second
popup from opening if it has null values. Ex: If
"Receiving"
is
null,
per
your code below, it opens. I have another popup based on field
"Disassembly"
being null. I don't want both of them to open up when my
main
form
opens,
only "Receiving" and then when it is no longer null have
"Disassembly"
start
opening. Is this possible?
:
try adding code to the Current event of fGeneralInfo, as
If IsNull(Me!Receiving) Then
DoCmd.OpenForm "fPopUpReceiving"
End If
if you only want the pop-up to open on existing records
(not a
new,
blank
record) then use
If Not Me.NewRecord And IsNull(Me!Receiving) Then
hth
Tina,
I got it to work - thanks so much!
Can you help me open a pop up form already created based on
a
field
being
blank on another form? Ex: "fGeneralInfo" has field
"Receiving".
If
"Receiving" is blank, I want form "fPopUpReceiving" to
pop-up
when
fGeneralInfo opens with job info. I hope this isn't too
confusing!
Once
again, the help is greatly appreciated!!
What I want to be able to do is click
on one of the jobs in the list box and have it open
the
form
for
that
specific job number?
do you mean "open *another* form" for the specific job
number?
if
so,
you
can run code from the listbox control's Click event or
AfterUpdate
event
to
open the form with a WHERE clause, something along the
lines
of
DoCmd.OpenForm "FormName", , , "JobNumber = " _
& Me!ListBoxName
if the job number is a Text field, rather than a Number
field,
the
syntax
would be
DoCmd.OpenForm "FormName", , , "JobNumber = '" _
& Me!ListBoxName & "'"
in either case, the assumption is that the job number
field
is
the
bound
column in the listbox control.
hth
I have a combo box and a list box on a form. The
combo
box
lists
tech
names
from a tech list table. The list box lists jobs related
to
each
tech
as
they are selected in the combo box. What I want to be
able
to
do
is
click
on one of the jobs in the list box and have it open
the
form
for
that
specific job number?
Any help is greatly appreciated!!
Thanks,
Pam