Show date pick always (1 Viewer)

Dick7Access · Jun 27, 2017

Is there a way to have the date picker show always, without having to click on the date control?

ashleedawg · Jun 27, 2017

You can have the date picker pop up automatically when the control is selected:

missinglinq said:
In the control's On Got Focus event place this code:

Code:

DoCmd.RunCommand acCmdShowDatePicker

...but I don't think you can have it always displayed. (Not the built-in control anyhow.)

Dick7Access · Jun 27, 2017

ashleedawg said:
You can have the date picker pop up automatically when the control is selected:
...but I don't think you can have it always displayed. (Not the built-in control anyhow.)

Yeh! that's the best I can do right now. When they hit new record button I have it go to the date control and the date picker shows up, but I was trying to make it idiot proof. I also put a label under the control that says, " click in the white to bring up calendar."

Galaxiom · Jun 27, 2017

Dick7Access said:
I was trying to make it idiot proof.

Impossible, idiots are far too ingenious.

isladogs · Jun 27, 2017

You will need to replace it with your own custom control.
I did so for much the same reason as you
You then need to ensure the built in date picker is set to never display

My version is available here
https://www.access-programmers.co.uk/forums/showpost.php?p=1533910&postcount=2

Ignore the code in that post. Just use the attachment

missinglinq · Jun 27, 2017

Dick7Access said:
When they hit new record button I have it go to the date control and the date picker shows up, but I was trying to make it idiot proof. I also put a label under the control that says, "click in the white to bring up calendar."

That doesn't sound as if you have the DatePicker actually opening, when the Control is entered, which is what ashleedawg's code would do. As he suggested, using

Code:

Private Sub YourDateField_GotFocus() DoCmd.RunCommand acCmdShowDatePicker End Sub

will automatically popup the DatePicker, when the Control is entered, without the user doing anything. Don't know how much more idiot-proofing you could do. OF course, the problem with idiot-proofing anything is that idiots are so darn ingenious!

Linq ;0)>

Dick7Access · Jun 27, 2017

missinglinq said:
That doesn't sound as if you have the DatePicker actually opening, when the Control is entered, which is what ashleedawg's code would do. As he suggested, using

Code:

Private Sub YourDateField_GotFocus() DoCmd.RunCommand acCmdShowDatePicker End Sub

will automatically popup the DatePicker, when the Control is entered, without the user doing anything. Don't know how much more idiot-proofing you could do. OF course, the problem with idiot-proofing anything is that idiots are so darn ingenious!

Linq ;0)>

Can't rspond. #WLOS (wife looking over shoulder)

ashleedawg · Jun 28, 2017

missinglinq said:
of course, the problem with idiot-proofing anything is that idiots are so darn ingenious! Linq ;0)>

Image attached:

Dick7Access · Jun 28, 2017

I have indexed (no duplicates) on the date field. When I datepick a date that already has data, the date picker will accept the date, but wipes out the data in the previous record with that date. How do I make it not accept a used date? I need only one record per date.

missinglinq · Jun 29, 2017

ashleedawg said:
Image attached: View attachment 66693

Love the graphic!

Linq ;0)>

missinglinq · Jun 29, 2017

Dick7Access said:
...How do I make it not accept a used date? I need only one record per date...

Usually done by checking the Records in the Table for the given Date...like this:

Code:

Private Sub YourDateField_BeforeUpdate(Cancel As Integer) If DCount("*", "YourTableName", "YourDateField = #" & Me.YourDateField & "#") > 0 Then Cancel = True MsgBox "There is Already a Record for this Date! Please Pick Another Date" Me.YourDateField.Undo End If End Sub

Linq ;0)>

ashleedawg · Jun 29, 2017

Perhaps you could solve both issues by using a listbox, populated ("on load") with only "available" dates. It's always visible, and forces the user to pick a date that's going to work.

(And you could make it blink with big red arrows pointing at it... Maybe that's pushing it though....)

Dick7Access · Jul 2, 2017

Why doesn't this code work?

Code:

Private Sub diaryDate_AfterUpdate()
DoCmd.GoToControl "diaryData"
End Sub

What else do I need to do?

Dick7Access · Jul 5, 2017

trying some more idiot proofing,

Code:

Private Sub cmdFindMonth_Click()
DoCmd.ApplyFilter "qryFindMonth"
DoCmd.OpenForm "frmEveningClutter", acFormDS   ' Opens form in datasheet view
Me.cmdAll.Enabled = False
Me.cmdNew2.Enabled = False
End Sub

I am disabling two other command buttons so they can't crash if they try to click cmdNew2 or cmdAll all after they have already clicked cmdFindMonth.

Is there anyway to have a msgbox tell them that they have to pick a month if they try to click cmdNew2 or cmdAll after they already clicked cmdfindMonth?

Cronk · Jul 5, 2017

I believe data validation is critical to avoid missing data and maintain data integrity.

In your button events, you could call a DataValidation function which returns true if all rules are satisfied.

Code:

if len(me.txtDateControl & "") <1 then
   msgbox "Date is missing"
   me.txtDateControl.setfocus
   exit function
endif

Include other tests as necessary ie start date is before end date.

I occasionally get called back to a system working for years where it begins crashing and I find it's some such validation test that I did not deem necessary.

I call these PEBCAK errors (problem exists between chair and keyboard). Something a bit like ID ten tee errors (ID10T). But hey, where would we be without our users?

Show date pick always (1 Viewer)

Dick7Access

Dick S

ashleedawg

"Here for a good time"

Dick7Access

Dick S

Galaxiom

Super Moderator

isladogs

MVP / VIP

missinglinq

AWF VIP

Dick7Access

Dick S

ashleedawg

"Here for a good time"

Dick7Access

Dick S

missinglinq

AWF VIP

missinglinq

AWF VIP

ashleedawg

"Here for a good time"

Dick7Access

Dick S

Dick7Access

Dick S

Cronk

Registered User.

Similar threads

Users who are viewing this thread