Replies

LMAO … Can I borrow … $324.00 ??
I promise to repay it next Tuesday … LOL

RDH

LMAO … Can I borrow … $324.00 ??
I promise to repay it next Tuesday … LOL

RDH

Thanks for the information …
I always thought that it was one computer one license as you have posted .. but someone tried to tell me different.
I was just curious. I knew that it was legal to intall Office on your desktop machine and also on your laptop .. as long as the laptop is for your exclusive use.

Again … Thanks.
RDH

Thanks for the information …
I always thought that it was one computer one license as you have posted .. but someone tried to tell me different.
I was just curious. I knew that it was legal to intall Office on your desktop machine and also on your laptop .. as long as the laptop is for your exclusive use.

Again … Thanks.
RDH

Try this user defined function:

Public Function fGetAgeAsOf(dtDOB As Variant, dtAsOf As Variant) As Integer
Dim dtBDay As Date
If Not IsDate(dtDOB) Or Not IsDate(dtAsOf) Then Exit Function
dtBDay = DateSerial(Year(dtAsOf), Month(dtDOB), Day(dtDOB))
fGetAgeAsOf = DateDiff("yyyy", dtDOB, dtAsOf) + (dtBDay > dtAsOf)
End Function

HTH
RDH

Try this user defined function:

Public Function fGetAgeAsOf(dtDOB As Variant, dtAsOf As Variant) As Integer
Dim dtBDay As Date
If Not IsDate(dtDOB) Or Not IsDate(dtAsOf) Then Exit Function
dtBDay = DateSerial(Year(dtAsOf), Month(dtDOB), Day(dtDOB))
fGetAgeAsOf = DateDiff("yyyy", dtDOB, dtAsOf) + (dtBDay > dtAsOf)
End Function

HTH
RDH

That’s an old FAQ at Tek Tips that I posted a long time ago.

You can also find information on this at the location below.

Animation with Animated GIF’s in Access

HTH
RDH

If all you need is the elapsed hours between two Date/Time values … then all you need is to use is the DateDiff() Function:

DateDiff(“h”, [YourStartValue], [YourEndValue])

HTH
RDH

The ShiftKey property can be set via a remote database.

Go to the location below and download a Utility that will do what you need.

ByPass Shift Key Utility

HTH
RDH

This user defined function should give you the results you are after.

Function fGetAgeYMD(DOB As Variant) As String
Dim intYears As Integer, intMonths As Integer, intDays As Integer
Dim strTmp As String
 
If Not IsDate(DOB) Then Exit Function
 
intMonths = Int(DateDiff("m", DOB, Date))
intYears = Int(intMonths / 12)
intDays = DateDiff("d", DateAdd("m", intMonths, DOB), Date)
intMonths = Int(intMonths Mod 12)
 
If intDays < 0 Then
  intMonths = intMonths - 1
  intDays = DateDiff("d", DateAdd("m", -1, Date) - intDays, Date)
End If
 
If intMonths < 0 Then
  intYears = intYears + intMonths
  intMonths = 12 + intMonths
End If
 
If intYears = 1 Then
  strTmp = intYears & " Year "
Else
  strTmp = intYears & " Years "
End If
If intMonths = 1 Then
  strTmp = strTmp & intMonths & " Month "
Else
  strTmp = strTmp & intMonths & " Months "
End If
If intDays = 1 Then
  strTmp = strTmp & intDays & " Day "
Else
  strTmp = strTmp & intDays & " Days "
End If
 
fGetAgeYMD = strTmp
 
End Function

HTH
RDH

Here is one way to do this:

First set the “Key Preview” property of the form to Yes (the default is No).

Now place the following in the “On Key Down” event of the form:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Dim intAltDown As Integer
intAltDown = (Shift And acAltMask) > 0
 
Select Case KeyCode
  Case vbKeyS
    If intAltDown Then
      Me.YourControlName.SetFocus
    End If
End Select
 
End Sub

“YourControlName” should be the name of the control you want to receive focus when the key combination is executed.
You can add more Alt+Key combinations to the Case Select statement as needed to do what you ask.

HTH
RDH

Mod 2 …. means divide the number by 2 and only return the remainder.

So if you think about it …. any whole number that can be divided by 2 equally with no remainder is an “Even” number. The rest will be “Odd”.

Hope this explains what the expression does.

RDH

A simpler way would be to use the Update Query. In the “Update To” section of the field you want the “A” or “B” …. use the following example:

IIf([YourNumber] Mod 2=0,”B”,”A”)

“YourNumber” should be the name of the field that contains the numbers to evaluate as Odd or Even.

HTH
RDH

If you use a listbox to “multi-select” criteria for your report, you can not simply reference the list box from the query to retrieve the criteria.

You have to use code to “Loop” through the selections to dynamically create the “Where” argument to be used with the DoCmd.OpenReport method.

First set your lstbox to multi select property to Simple or Extended (depending on what you want, I use Simple most of the time). Leave the Control Source property for this lstbox empty (unbound).

Now to get the multi select values

Add a Date/Time field to the table. Include the newly added field to the recorset query the form is bound to. Add a new txbox control on your form and set the Control Source of the txbox to the newly added field. You can set the “Visible” property to False to hide the control from view.

Use the form’s “On Before Update” event to populate this new hidden txtbox.

Private Sub Form_BeforeUpdate(Cancel As Integer)
Me.YourControlName = Now()
End Sub

(change “YourControlName ” to the name of the hidden txtbox)

The “Before Update” event of the form only fires if you are currently on a “New Record” or if an “Existing Record” is altered.

HTH
RDH