Hi All,
I am currently upgrading a problem report I did a little while back and my boss asked if I could: - Auto Complete "Completion Date" field with today's date
- Grey out a select amount of fields for an ECR
- Lock feedback field when form has been signed off
I have been able to complete the second bulletpoint from the list but I am having trouble writing code for both other bullet points.
Problem 1: Auto Complete "Completion Date" field
I have three 3 fields at the bottom of my form which are linked to a lookup field. These fields return names to the boxes.
What I am trying to do is set up an if statement that will say: - If Me.QCSignOff.Value > 0 Then
-
If Me.ManuSignOff.Value > 0 Then
-
If Me.EngSignOff.Value > 0 Then
-
Me.CompletionDate.Value = (Today's Date)
-
Else
-
Me.CompletionDate.Value = ""
-
End If
-
End If
-
End If
Problem 3: Lock Feedback field when form has been Signed Off
This problem is directly linked with the problem above, in the fact that I want the Feedback field to disable when QCSignOff, ManuSignOff and EngSignOff have a value entered into their respective fields.
I left this out of the first problem because I want to deal with one of them at a time.
Thanks in advance for the Help...
(Sorry for messiness)
/Sandy
5 3817 Delerna 1,134
Recognized Expert Top Contributor
Your If statement appears to say the correct thing. You didn't say what the problem was.
Your code sample says (Today's Date)
Does this mean you don't know the fuction to get it?
=Now() will set it to todays date and time
=Date() will set it to todays date
As to locking the feedback control -
me.controlname.enabled=false
-
will do that
I am trying to get today's date to automatically fill in the CompletionDate field on my form. The fields QCSignOff, ManuSignOff and EngSignOff are lookup fields in a table that returns names of my bosses when filled in on the form, so I am not sure if the .Value > 0 statements are correct or not.
I have tried tweaking my code abit and nothing seems to work. It doesn't even disable the Feedback field which makes me think that the .Value > 0 statement isn't correct.
I think I may be missing an important piece of code from the code I have written but I can't put my finger on what it is. I thought to start with it was maybe defining a variable at the start of the code, but alas that didn't work either...
When I put the Date() function into my code as Me.CompletionDa te.Value = Date(), VBA automatically drops the parenthesis at the end of Date.
I don't know whether it would be better if I wrote this code in Expression Builder...
Any more help is greatly appreciated.
/Sandy
disable when QCSignOff, ManuSignOff and EngSignOff have a value entered into their respective fields.
Your code such as
If Me.QCSignOff.Va lue > 0 Then
should be
If Not IsNull(Me.QCSig nOff) Then
and the same for your other If statements.
Linq ;0)>
I have re-written my code as MissingLinq told me to do but my feedback field will not disable and no date will fill the CompletionDate field. I don't know how to write the code to have the Date() incorporated into it. Every time I try to write it with the parenthesis, VBA drops them at the end of Date.
I don't know whether I have the code in the right procedure, I have written it in the after update for the completion date and I took a dump of the code and pasted it to the form_current event.
My code as current is this, can anybody see something wrong in the code?: - Private Sub CompletionDate_AfterUpdate()
-
If Not IsNull(Me.QCSignOff) Then
-
If Not IsNull(Me.ManuSignOff) Then
-
If Not IsNull(Me.EngSignOff) Then
-
Me.Feedback.Enabled = False
-
Me.CompletionDate.Value = Date
-
Else
-
Me.Feedback.Enabled = True
-
Me.CompletionDate.Value = " "
-
End If
-
Else
-
End If
-
Else
-
End If
-
End Sub
/Sandy
I played around a little bit with my code this morning and made a few changes to the code provided above.
The problem with the last code was that it was locking the Feedback field when information was in the QCSignOff, ManuSignOff and EngSignOff boxes. The code would not put the current date into the CompletionDate field.
I have proven out this code myself and it seems to work ok. It only does it on the record you are on and once everything has been removed from the boxes mentioned above the date disappears from the CompletionDate field and the Feedback field is unlocked/enabled, it also saves all the information, i.e. You can leave the database and the information remains.
My new code is as follows: - Private Sub CompletionDate_Enter()
-
Dim MyDate
-
MyDate = Date
-
If Not IsNull(Me.QCSignOff) Then
-
If Not IsNull(Me.EngSignOff) Then
-
If Not IsNull(Me.ManuSignOff) Then
-
Me.CompletionDate.Value = MyDate
-
Me.Feedback.Enabled = False
-
Else
-
Me.CompletionDate.Value = Null
-
Me.Feedback.Enabled = True
-
End If
-
Else
-
Me.CompletionDate.Value = Null
-
Me.Feedback.Enabled = True
-
End If
-
Else
-
Me.CompletionDate.Value = Null
-
Me.Feedback.Enabled = True
-
End If
-
End Sub
The way this is set-up is that when all the information has been set in the three boxes, you will need to click on or tab to the CompletionDate box for the code to activate.
I am not entirely sure if you click on the box on another occasion when all the information is complete whether it will add the new date to the CompletionDate field... I will check it out and post back.
/Sandy
Sign in to post your reply or Sign up for a free account.
Similar topics |
by: Manlio Perillo |
last post by:
Hi.
This post follows "does python have useless destructors".
I'm not an expert, so I hope what I will write is meaningfull and
clear.
Actually in Python there is no possibility to write code that follows
C++ RAII pattern.
Of course Python objects are not statics like in C++, but in C++ the
auto_ptr class is used for enforcing this pattern for dynamical
|
by: Glabbeek |
last post by:
I'm changing the layout of my site. Instead of using tables, I will use
DIVs. It's working fine, except for 1 thing: In IE6 some DIVs are not
the correct width. Mozilla and Opera are showing the page the way I
want. Does anybody know a solution for this?
First of all, the code I am using:
CSS
-------
body {
|
by: Robert Downes |
last post by:
I'm using the following in a page that I'm testing in Mozilla:
p.actionLinkBlock {border: 1px #000000 dashed; padding: 0.2cm; width: auto}
But the dashed border is extending to the right-edge of the screen. I
want it to only extend as far as it needs to to nicely contain the
content within (a couple of links).
Is width: auto the wrong property to do this? Is Mozilla rendering the
style wrong?
|
by: Vijay Kumar R. Zanvar |
last post by:
Hello,
Unlike register, auto keyword can not be used to
declare formal parameter(s). Is there any specific
reason for this?
Kind regards,
Vijay Kumar R. Zanvar
|
by: Alpha |
last post by:
I retrieve a table with only 2 columns. One is a auto-generated primary key
column and the 2nd is a string. When I add a new row to the dataset to be
updated back to the database. What should I do with the 1st column ? (Below
I have a "1" in place for now). Also, Does the datase.AcceptChanges();
updates the changes to the database? Which command do I use to update the
changes in dataset back to the Access database table? Thanks, Alpha...
| |
by: Samuel |
last post by:
Hi,
I am running into a problem of mixing UICulture = auto and allowing users to
select culture using a dropdown list.
I am detecting a querystring, "setlang", and when found, setting the
CurrentUICulture to what's specified in the querystring. Since I want to
allow UICulture auto detecting, I add UICulture = "auto" to page directive on
each page.
|
by: maya |
last post by:
at work they decided to center divs thus:
body {text-align:center}
#content {width: 612px; text-align:left; margin: 0 auto 0 auto; }
this works fine in IE & FF, EXCEPT in FF it doesn't work if I change
'auto' to 0 for left and right margin values; I have to leave those at
'auto'.. so I would like to know what exactly means 'auto' -- what
value it represents exactly (and does it apply for all elements/values
you might apply 'auto' to?)
|
by: nospam_news |
last post by:
I currently get asked about my usage of "auto". What is it for?
The keyword is clearly superflous here.
In contrast to the huge majority of C/C++ developers I write
definitions very explicitly like that:
int main(char argc, char *argv, char *env) {
try {
auto Exception mainException(1);
mainException.setErrNo(42);
|
by: Piotr K |
last post by:
Hi,
I've encountered a strange problem with Firefox which I don't have any
idea how to resolve. To the point: I've <divelement with a style
"height: auto" and I want to retrieve this value ("auto") in
JavaScript - however instead of getting "auto" value, I get calculated
height. In IE and Opera it simply returns "auto".
Any ideas how to check in Firefox if element height was set to
"auto" ? I'll be grateful for any help.
|
by: JOYCE |
last post by:
Look the subject,that's my problem!
I hope someone can help me, thanks
|
by: Hystou |
last post by:
Most computers default to English, but sometimes we require a different language, especially when relocating. Forgot to request a specific language before your computer shipped? No problem! You can effortlessly switch the default language on Windows 10 without reinstalling. I'll walk you through it.
First, let's disable language synchronization. With a Microsoft account, language settings sync across devices. To prevent any complications,...
| |
by: Oralloy |
last post by:
Hello folks,
I am unable to find appropriate documentation on the type promotion of bit-fields when using the generalised comparison operator "<=>".
The problem is that using the GNU compilers, it seems that the internal comparison operator "<=>" tries to promote arguments from unsigned to signed.
This is as boiled down as I can make it.
Here is my compilation command:
g++-12 -std=c++20 -Wnarrowing bit_field.cpp
Here is the code in...
|
by: Hystou |
last post by:
Overview:
Windows 11 and 10 have less user interface control over operating system update behaviour than previous versions of Windows. In Windows 11 and 10, there is no way to turn off the Windows Update option using the Control Panel or Settings app; it automatically checks for updates and installs any it finds, whether you like it or not. For most users, this new feature is actually very convenient. If you want to control the update process,...
|
by: agi2029 |
last post by:
Let's talk about the concept of autonomous AI software engineers and no-code agents. These AIs are designed to manage the entire lifecycle of a software development project—planning, coding, testing, and deployment—without human intervention. Imagine an AI that can take a project description, break it down, write the code, debug it, and then launch it, all on its own....
Now, this would greatly impact the work of software developers. The idea...
|
by: isladogs |
last post by:
The next Access Europe User Group meeting will be on Wednesday 1 May 2024 starting at 18:00 UK time (6PM UTC+1) and finishing by 19:30 (7.30PM).
In this session, we are pleased to welcome a new presenter, Adolph Dupré who will be discussing some powerful techniques for using class modules.
He will explain when you may want to use classes instead of User Defined Types (UDT). For example, to manage the data in unbound forms.
Adolph will...
|
by: conductexam |
last post by:
I have .net C# application in which I am extracting data from word file and save it in database particularly. To store word all data as it is I am converting the whole word file firstly in HTML and then checking html paragraph one by one.
At the time of converting from word file to html my equations which are in the word document file was convert into image.
Globals.ThisAddIn.Application.ActiveDocument.Select();...
|
by: TSSRALBI |
last post by:
Hello
I'm a network technician in training and I need your help.
I am currently learning how to create and manage the different types of VPNs and I have a question about LAN-to-LAN VPNs.
The last exercise I practiced was to create a LAN-to-LAN VPN between two Pfsense firewalls, by using IPSEC protocols.
I succeeded, with both firewalls in the same network. But I'm wondering if it's possible to do the same thing, with 2 Pfsense firewalls...
| |
by: adsilva |
last post by:
A Windows Forms form does not have the event Unload, like VB6. What one acts like?
|
by: 6302768590 |
last post by:
Hai team
i want code for transfer the data from one system to another through IP address by using C# our system has to for every 5mins then we have to update the data what the data is updated we have to send another system
| |