Search results

Me.step3 = Left(Me.step3, InStrRev(Me.step3, ",") - 1) Works like a champ thank you all for the help

I had an extra () when inputting it into my code. This works great . Thank you so much.

I'm sorry and I i understand what you are saying. However, right now I do not have the time to make a change in the table setup. What I have will work if there is no other way to find to last comma and delete that and all charters after that comma.

got it, tried it and I'm getting a type mismatch error.

sorry I dont follow? I thought I was looking for the ","

Raw data aaa, bb, ccc, dd or aa, bbb, cc I want field1 to be aaa, bb, ccc or aa, bbb This drops everything to the right of the 1st comma field1 would = dd or cc Me.field1 = (Right([field1], (InStr(1, [field1], ",") - 1))) This drops everything from the 1st comma on the left to the end...

So this will work.Me.step3 = Left([step3], Len([step3]) - 4) but this only works if I force the initials to 2 letters. It would be better if I could remove back to the , in the field. If the field was aa, bb, cc and I removed the last 4 it will equal aa, bb which is good unless someone uses 3...

ok so if I were to pull the user's initialsfrom a seperate table based on user that is logged in I still have the issue how do I drop the last set entered? jim

I have a checklist type form where user enter their initials to signoff tasks that they have performed. Some times a checklist goes into a rework where certian steps or tasks need to be repeated. When the step is repeated someone else will complete that step and they will enter their initials...

Guys Im getting really confused. May we please back up just a tad. On my form I have 2 fields that are formatted to General Date [txtTime1] and [txtTime2] now I have a 3 field [txtdifference] which has nothing on the format line. The control source I have set Format((txtTime2() -...

I should be able to use this right. Public Function differenceInHHMM(ByVal dihStart As Variant, ByVal dihEnd As Variant) Dim varTemp As Variant, lngHours As Long, lngMinutes As Long varTemp = "" ' If either of the parameters is empty / missing jump to the end If Len(dihStart &...

Dim days As Long, Hours As Long, Minutes As Long days = Int(CSng(interval)) totalhours = Int(CSng(interval * 24)) totalminutes = Int(CSng(interval * 1440)) Hours = totalhours Mod 24 Minutes = totalminutes Mod 60 Here you go jon

I wish it would be nice. with Minutes/60 I get a 0 value with Minutes \60 I get 0 for the value

I have this code [Forms]![frm-RPlusC]![Qualtime] = Hours & " Hrs " & Minutes & " Min " Code works fine but it displays the hours "Hrs" and Minutes "Min" so example 12 Hrs 30 Min how can I change it to give me 12.5 jon

seriously do you know howlong i have been screwing around with this, 5 hrs and Me.Undo that is the ticket works great thank you so much. jon

I have a popup form that user will select for updating 4 fields in table. I have a update button that has code behind it that verifies the record is complete before closing the popup form.That works well. However, I want to add an abort button that will close the form and save nothing entered...

Can I open a tabed form to a specific page? If I'm in the form I can move focus by using Me.[Page 12].SetFocus but when opening using that code produces and error Page not available? jon

OK so if I format the field as short time I will get to hrs. but how I the hours and minutes to the answer?

Ok I got it working but have a few questions. 1st what I did was, I created a module. Here is the code for my module. Function GetElapsedTime(interval) Dim totalhours As Long, totalminutes As Long Dim days As Long, Hours As Long, Minutes As Long days = Int(CSng(interval)) totalhours...

Yes, I figured I could substract them but I dont know how to convert the outcome into hrs. Sorry jon