The purpose of this paper is to provide you background on SQL Server. It’s your self-study guide for learning fundamentals. It includes both the history of SQL and its technical basics. Concepts and definitions will form the solid foundation of your future DBA expertise.
COURSE of the MONTH
10 days, 18 hours left to enrollBecome a Premium Member and unlock a new, free course in leading technologies each month.
Solved
If VBYes then remove some info
Posted on 2006-06-22
This is part of a Before Update event:
If Me.CertificationType.Value
Me.Visible = False
If MsgBox("You have selected Permanent Decertification." & vbCrLf & vbCrLf _
& "By making this selection you will be removing dates pertinent to this " _
& "individuals CPRP Certification process." & vbCrLf & vbCrLf _
& "THIS REMOVAL ON INFORMATION CAN NOT BE UNDONE. Do you wish to continue " _
& "with this selection?", vbYesNo) = vbYes Then
Set PDQrs = db.OpenRecordset("tblDates
With PDQrs
.AddNew
!EmpNo = Me.EmpNo
!CertificationType = Me.CertificationType.Value
!InitialInterview = Me.InitialInterview
!Date3180ToCOReview = Me.Date3180ToCOReview
!Date3180ToHR = Me.Date3180ToHR
!Date3180FromHR = Me.Date3180FromHR
!Date3180ToClinic = Me.Date3180ToClinic
!Date3180FromClinic = Me.Date3180FromClinic
!Date3180ToCOFinal = Me.Date3180ToCOFinal
!CertificationDate = Me.CertificationDate
.Update
End With
Set PDQrs = Nothing
Me.CertificationType = ""
Me.InitialInterview = ""
Me.Date3180ToCOReview = ""
Me.Date3180ToHR = ""
Me.Date3180FromHR = ""
Me.Date3180ToClinic = ""
Me.Date3180FromClinic = ""
Me.Date3180ToCOFinal = ""
Me.CertificationDate = ""
Me.Visible = True
Everything works great...until I want to reset the values of other controls on my form.
What do I need to do to make this work?
Thanks!
Lena
If Me.CertificationType.Value
Me.Visible = False
If MsgBox("You have selected Permanent Decertification." & vbCrLf & vbCrLf _
& "By making this selection you will be removing dates pertinent to this " _
& "individuals CPRP Certification process." & vbCrLf & vbCrLf _
& "THIS REMOVAL ON INFORMATION CAN NOT BE UNDONE. Do you wish to continue " _
& "with this selection?", vbYesNo) = vbYes Then
Set PDQrs = db.OpenRecordset("tblDates
With PDQrs
.AddNew
!EmpNo = Me.EmpNo
!CertificationType = Me.CertificationType.Value
!InitialInterview = Me.InitialInterview
!Date3180ToCOReview = Me.Date3180ToCOReview
!Date3180ToHR = Me.Date3180ToHR
!Date3180FromHR = Me.Date3180FromHR
!Date3180ToClinic = Me.Date3180ToClinic
!Date3180FromClinic = Me.Date3180FromClinic
!Date3180ToCOFinal = Me.Date3180ToCOFinal
!CertificationDate = Me.CertificationDate
.Update
End With
Set PDQrs = Nothing
Me.CertificationType = ""
Me.InitialInterview = ""
Me.Date3180ToCOReview = ""
Me.Date3180ToHR = ""
Me.Date3180FromHR = ""
Me.Date3180ToClinic = ""
Me.Date3180FromClinic = ""
Me.Date3180ToCOFinal = ""
Me.CertificationDate = ""
Me.Visible = True
Everything works great...until I want to reset the values of other controls on my form.
What do I need to do to make this work?
Thanks!
Lena
[X]
Welcome to Experts Exchange
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
- Help others & share knowledge
- Earn cash & points
- Learn & ask questions
-
5
4
2- +1
12 Comments
Hi LenaWood,
You can reset the string controls by assigning "" to them,
but for numbers, you have to assign a 0 (zero)
jaffer
You can reset the string controls by assigning "" to them,
but for numbers, you have to assign a 0 (zero)
jaffer
Active today
use the Tag property of the controls.
dim ctl as control
for each ctl i me.controls
if ctl.tag="somevalue" then
ctl.name=""
end if
next
dim ctl as control
for each ctl i me.controls
if ctl.tag="somevalue" then
ctl.name=""
end if
next
Hey Lena
You'd not change the values of controls in the active form in a BeforeUpdate event.
Normally you'd test then - make a decision to proceed or not, and then make changes afterwards.
You'd not change the values of controls in the active form in a BeforeUpdate event.
Normally you'd test then - make a decision to proceed or not, and then make changes afterwards.
OK....my recordset works and all the information is put into the table. What I can't do is remove the dates from my controls on my form.
I have tried Me.CertificationType = Null and Me.CertificationType = "" with no luck. I have even made sure that zero lengths are allowed. (They weren't but changing it didn't help). CertificationType is a text field.
The error message I get is:
The macro or function set to the Before Update or Validation Rule property for this field is preventing Microsoft Access from saving the data in the field.
I am looking at this knowing I should know how to do this, but it all is looking kinda foriegn to me. Thank goodness the weekend is almost here.
Lena
I have tried Me.CertificationType = Null and Me.CertificationType = "" with no luck. I have even made sure that zero lengths are allowed. (They weren't but changing it didn't help). CertificationType is a text field.
The error message I get is:
The macro or function set to the Before Update or Validation Rule property for this field is preventing Microsoft Access from saving the data in the field.
I am looking at this knowing I should know how to do this, but it all is looking kinda foriegn to me. Thank goodness the weekend is almost here.
Lena
LPurvis - I thought I was testing by asking the question if they want to proceed. If they say yes I want to proceed. It is the proceeding part that I am having trouble with. I am starting to really HATE this database haha.
Lena
Lena
The code I pasted is on a controls before update event. I think I am trying to automate far too much!
Lena
Lena
No - that should be OK.
But in what way is it going wrong?
Where are you getting an error - and which error is it?
Are the specified fields allowed to be a zero length string?
(I'd always set mine to Null. Always always always).
Did I mention always?
But in what way is it going wrong?
Where are you getting an error - and which error is it?
Are the specified fields allowed to be a zero length string?
(I'd always set mine to Null. Always always always).
Did I mention always?
Error is:
The macro or function set to the Before Update or Validation Rule property for this field is preventing Microsoft Access from saving the data in the field.
It won't change the values to "" or Null
Yes, they are allowed to be zero length. All of them are dates except one, and I didn't see an allow Zero length on the date fields in the table.
I have it working, just not sure it is how I should have done it. I created a publically declared blnChangeDates as a boolean. When the form is opened I set it to false. When I run the code pasted above instead of changing the dates then, I changed blnChangeDates to true. On the button that closes that form, I have it check for the value of blnChangeDates and if it is true, I have it set the values of those controls to "" (but will ALWAYS change it to null).
Just not sure what I am doing wrong in the first place.
Lena
The macro or function set to the Before Update or Validation Rule property for this field is preventing Microsoft Access from saving the data in the field.
It won't change the values to "" or Null
Yes, they are allowed to be zero length. All of them are dates except one, and I didn't see an allow Zero length on the date fields in the table.
I have it working, just not sure it is how I should have done it. I created a publically declared blnChangeDates as a boolean. When the form is opened I set it to false. When I run the code pasted above instead of changing the dates then, I changed blnChangeDates to true. On the button that closes that form, I have it check for the value of blnChangeDates and if it is true, I have it set the values of those controls to "" (but will ALWAYS change it to null).
Just not sure what I am doing wrong in the first place.
Lena
I'd do exactly as you describe - but set your boolean flag to true in the BeforeUpdate - and perform your changes in the Afterupdate event based on the state of that flag.
(Remember to reset the flag in the afterupdate event too ;-)
(Remember to reset the flag in the afterupdate event too ;-)
Featured Post
Capture your entire system, including the host, with patented disk imaging integrated with VMware VADP / Microsoft VSS and RCT. RTOs is as low as 15 seconds with Acronis Active Restore™. You can enjoy unlimited P2V/V2V migrations from any source (even from a different hypervisor)
Question has a verified solution.
If you are experiencing a similar issue, please ask a related question
As tax season makes its return, so does the increase in cyber crime and tax refund phishing that comes with it
AutoNumbers should increment automatically, without duplicates. But sometimes something goes wrong, and the next AutoNumber value is a duplicate. This article shows how to recover from this problem.
Learn how to number pages in an Access report over each group.
Activate two pass printing by referencing the pages property:
Add code to the Page Footers OnFormat event to capture the pages as there occur for each group. Use the pages property to …
Do you want to know how to make a graph with Microsoft Access? First, create a query with the data for the chart. Then make a blank form and add a chart control. This video also shows how to change what data is displayed on the graph as well as form…
Suggested Courses
Course of the Month10 days, 18 hours left to enroll
770 members asked questions and received personalized solutions in the past 7 days.
Join the community of 500,000 technology professionals and ask your questions.