Re: Please help, must be simple

#1

First, try naming the _Controls_ (text boxes) on your form a different name
than the underlying _Field_ in the Table or Query that is the Record Source
for a Form. For example, prefix them with "txt" and try the following:

If Len(Me.txtProposalSent) > 0 And Len(Me.txtProposalAccepted) > 0 Then
....

If that doesn't do what you want, then explain why you say that it is
"ProposalAccepted" with which you are having trouble. Please follow up or
clarify here in the newsgroup, not by e-mail. Thanks.

Larry Linson
Microsoft Access MVP

"Koen" <no (AT) spam (DOT) nl> wrote

Quote:

Hi all,

I am a newbie, struggling with this issue:

I have three fields on (the same form):

ProposalSent (Date field)
ProposalAccepted (Date field)
Status (Text field)

I want the following: Once I update the ProposalSent field, some logic
has to check if there is or isn't a date in the ProposalAccepted field.
If not, the Status field is changed to 'Waiting', else the Status field
is changed to 'In progress'.

I think when I attach the same logic to the AfterUpdate events of both
Date Fields I should succeed.

Private Sub ProposalSent_AfterUpdate()
If Me.ProposalSent <> "" And Me.ProposalAccepted = "" Then
Me.Status.Value = "4"
MsgBox "Status is changed to 'Waiting'"

Else
Me.Status.Value = "1"
MsgBox "Status is 'In progress'"

End If
End Sub

This doesn't work. The *Me.ProposalSent <> ""* part works, but there seem
to be some trouble with the *Me.ProposalAccepted = ""* part.

Who can help me?

Thanks.

Koen.

#2

"Larry Linson" <larry.linson (AT) ntpcug (DOT) org> wrote in
news:hiVXa.4396$uw6.1120 (AT) nwrddc02 (DOT) gnilink.net:

Quote:

First, try naming the _Controls_ (text boxes) on your form a different
name than the underlying _Field_ in the Table or Query that is the
Record Source for a Form. For example, prefix them with "txt" and try
the following:

If Len(Me.txtProposalSent) > 0 And Len(Me.txtProposalAccepted)
0 Then
....

If that doesn't do what you want, then explain why you say that it is
"ProposalAccepted" with which you are having trouble. Please follow up
or clarify here in the newsgroup, not by e-mail. Thanks.

Larry Linson
Microsoft Access MVP

OK. I followed your advice. But the behaviour is still the same.

This isn't working (sample 1):

Private Sub txtProposalSent_AfterUpdate()
If Len(Me.txtProposalSent <> 0) And Len(Me.txtProposalSent = 0) Then
MsgBox "Because sent, but not accepted, the status should be Awaiting"
Else
MsgBox "Status: In progress"
End If
End Sub

And this is (sample 2) (but it is not what I want):

Private Sub txtProposalSent_AfterUpdate()
If Len(Me.txtProposalSent <> 0) Then
MsgBox "Because sent, but not accepted, the status should be AWAITING"
Else
MsgBox "In progress"
End If
End Sub

I wish I could explain why the *And Len(Me.txtProposalSent = 0)* part is
giving me trouble. But it is what I need: I only want to change the
status in case there is a value present in txtProposalSent without a
value present in txtProposalAccepted.

Sample 1 allows me to enter a value in txtProposalSent and the MsgBox "In
progress" pops up. This is wrong because it should check if there is a
value present in txtProposalAccepted and give the other message.

Sample 2 allows me to enter a value in txtProposalSent and the MsgBox
"Because sent, but not accepted, the status should be AWAITING" pops up.

I don't understand this. What am I doing wrong?

Regards, Koen

#3

"Koen" <no (AT) spam (DOT) nl> wrote

Quote:

OK. I followed your advice. But the behaviour is still the same.

This isn't working (sample 1):

Private Sub txtProposalSent_AfterUpdate()
If Len(Me.txtProposalSent <> 0) And Len(Me.txtProposalSent = 0) Then
MsgBox "Because sent, but not accepted, the status should be Awaiting"
Else
MsgBox "Status: In progress"
End If
End Sub

Take a closer look at the first line of your If statement. Shouldn't those two
control names be different?

#4

"Rick Brandt" <RBrandt (AT) Hunter (DOT) Com> wrote in
news:bgp95l$p4dv6$1 (AT) ID-98015 (DOT) news.uni-berlin.de:

Quote:

"Koen" <no (AT) spam (DOT) nl> wrote in message
news:Xns93CEF2E7D68D1Rubends (AT) 194 (DOT) 109.133.20...
OK. I followed your advice. But the behaviour is still the same.

This isn't working (sample 1):

Private Sub txtProposalSent_AfterUpdate()
If Len(Me.txtProposalSent <> 0) And Len(Me.txtProposalSent = 0) Then
MsgBox "Because sent, but not accepted, the status should be
Awaiting"
Else
MsgBox "Status: In progress"
End If
End Sub

Take a closer look at the first line of your If statement. Shouldn't
those two control names be different?

Sorry for this cut and paste error in my previous posting. In access I
did it right (see below), but it is not working (as I described in my
previous post).

Sample 1:

Private Sub txtProposalSent_AfterUpdate()
If Len(Me.txtProposalSent <> 0) And Len(Me.txtProposalAccepted = 0) Then
MsgBox "Because sent, but not accepted, the status should be AWAITING"
Else
MsgBox "In progress"
End If
End Sub

#5

"Koen" <no (AT) spam (DOT) nl> wrote

Quote:

Sorry for this cut and paste error in my previous posting. In access I
did it right (see below), but it is not working (as I described in my
previous post).

Sample 1:

Private Sub txtProposalSent_AfterUpdate()
If Len(Me.txtProposalSent <> 0) And Len(Me.txtProposalSent = 0) Then
MsgBox "Because sent, but not accepted, the status should be AWAITING"
Else
MsgBox "In progress"
End If
End Sub

The Len() function does not return zero if the field is null. It returns null.

Try

Len(Nz(Me.txtProposalSent ,""))

#6

"Koen" <no (AT) spam (DOT) nl> wrote

Quote:

Hi all,

I am a newbie, struggling with this issue:

I have three fields on (the same form):

ProposalSent (Date field)
ProposalAccepted (Date field)
Status (Text field)

I want the following: Once I update the ProposalSent field, some logic
has to check if there is or isn't a date in the ProposalAccepted field.
If not, the Status field is changed to 'Waiting', else the Status field
is changed to 'In progress'.

I think when I attach the same logic to the AfterUpdate events of both
Date Fields I should succeed.

Private Sub ProposalSent_AfterUpdate()
If Me.ProposalSent <> "" And Me.ProposalAccepted = "" Then
Me.Status.Value = "4"
MsgBox "Status is changed to 'Waiting'"

Else
Me.Status.Value = "1"
MsgBox "Status is 'In progress'"

End If
End Sub

This doesn't work. The *Me.ProposalSent <> ""* part works, but there seem
to be some trouble with the *Me.ProposalAccepted = ""* part.

Who can help me?

Thanks.

Koen.

Best help for newbies:
http://www.mvps.org/access/

Kelly Groves, MVP

#7

Chuck Grimsby <c.grimsby (AT) worldnet (DOT) att.net.invalid> wrote in
news:mae0jvciob6jajkto4itque9ah1q3vpqs3 (AT) 4ax (DOT) com:

Quote:

Len(Me.txtProposalSent <> 0) should be:
(Len(Me.txtProposalSent.Value & "") > 0)

Len(Me.txtProposalAccepted = 0) Should be:
(Len(Me.txtProposalAccepted.Value & "") = 0)

Thanks Chuck! It works!

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Re: Please help, must be simple

comp.databases.ms-access comp.databases.ms-access

Re: Please help, must be simple - 08-05-2003 , 04:26 PM

Re: Please help, must be simple - 08-05-2003 , 04:52 PM

Re: Please help, must be simple - 08-05-2003 , 04:56 PM

Re: Please help, must be simple - 08-05-2003 , 05:00 PM

Re: Please help, must be simple - 08-05-2003 , 05:45 PM

Re: Please help, must be simple - 08-05-2003 , 09:50 PM

Thanks (was: Re: Please help, must be simple) - 08-06-2003 , 01:20 AM