Search results

Sorry for the confusion, Yes all of it runs on the current event for ALL of the command buttons, not just what I posted. By declaring it, it now works as designed. Thanks,

I have a form with tabs on it. Form some reason my code does not work until I use my find combobox to search, then it works? Example below, that code would normally disable the back button,i.e. previous record if you were already on the first record. It shows disabled , like I say until I search...

Here is the basics, of course substitute with your field names and criteria. If IsDate (Me.SomeDate) Then Me.GCasID = Me.Somevalue End If HTH

Here is a couple of Code Statements; Your also going to need a module along with a form to accomplish the screen active feature, Google idle users or kick out. Maybe they have an example on here in the Sample Databases, I did not check. DoCmd.ShowToolbar "Ribbon", acToolbarNo 'Hide Ribbon...

I would suggest a Select Union Statement that uses a query. Example: Of course modify to your needs. cbogroup 'combobox SELECT [egroup], [egroup] FROM qryEmailClientsByGroup UNION SELECT "*","<< ALL >>" FROM qryEmailClientsByGroup; Private Sub cbogroup_AfterUpdate() 'Refresh Data...

If Criteria is not met form does not open, so that is resolved. One thing solved the other. Yes, multiple records. Thanks, Have a Good Day !

The month is set at table level. CurMonth =Format(Now(),"mmmm") db opens, main form loads, tblEmpEvaluation gets populated If CurMonth is in that table then a popup form opens with a list of employees who need to be evaluated. If DLookup("[CurMonth]", "tblEmpEvaluation") = Format(Now()...

One form is the Main Form which opens the other form if criteria is met. frmMainMenu is the Main form frmEvalNotice is the popup form with a listbox on it. The idea is to check and see if it is the current month and if so, open frmEvalNotice. Since other append code tuns before this code, it...

My code is not working. 1. The code below should equal the Current Month 2. It does not close the form if no data. If DLookup("[CurMonth]", "tblEmpEvaluation") = Format(DateSerial(Year(Date), Month(Date), Day(Date)), "mmmm ") DoCmd.OpenForm "frmEvalNotice" End If If...

I have an unbound form with 2 tabbed Controls on it.On the first Tabbed Control my command button code works but not for the 2nd tabbed control. Although the command buttons themselves work as far as going to the appropriate record. What I mean by this is that I use code to enable/disable the...

Or to be even more specific, DoCmd.Close acForm, "YourFormNameHere"

I could be wrong here but I think their is a better way to fix a corrupt form. Take a look at the link below. http://allenbrowne.com/ser-47.html

Is the back end correctly linked to the front end?

Hi Gina, I'm having trouble with a Relationship for my form. I can't upload to the forum but if your willing to take a look at it privately,then I could send. It is Copyrighted and so would have to be deleted afterwards! If not, I understand. Thanks, Dave

You have not given enough information to help.However, it sounds like a simple: If (Me.SomeCriteria) = (Me.Something) Then Me.SomeControl.Enabled = False ' Or True End If HTH

You may be trying to put a text type into a numeric type.. Check all your types and make sure they are compatible.. I would suspect that you have your relationships incorrect as well?

I don't understand your setup but maybe this will help. Dim LUser As String LUser = CurrentUser() Better yet, if I understand, just hard code the user to whatever in your table.

Hmm, well her is an example: Of course modify to suit your needs, Me.SomeField ="A" & "-" & [SomeField] HTH

Take a look at this link. https://support.office.com/en-us/article/Control-data-entry-formats-with-input-masks-e125997a-7791-49e5-8672-4a47832de8da#__toc292266398

I did not download you file but here is an example: Of course change to suit your needs. DoCmd.Hourglass True DoCmd.SetWarnings False DoCmd.RunSQL "UPDATE tblSomeTable SET tblSomeTable.SomeDate = Me.MyDate " & _ "WHERE (((tblSomeTable.PrimaryKey)='" &...