Recent content by ramasule

Genious It works ! Thank you for your help and time, Derek L

I have no doubt it works. It seems right now my form does not see OrigDateExpired When I use Me.OrigDateExpired gives me Method or Data Member not found. Is there someway this lost its link to my table. .. all the other fields work just not this one.

I would love to but I am on a 3kb/s connection and It takes me 5 trys just to post a quick reply. I know the code works because I tried it in a blank database I have noticed when I try to do a Me.OrigDateExpired it does not show up. Does the table have to be relinked ot the form or something...

No I cant get the button to .. copy the new date and put it in the old date OrigDateExpired = DateExpired This part is fine DateExpired = CDate(InputBox("Enter New Expiry Date", "Expiry Date"))

Thanks Rural Guy

TBL Project1 DateExpired Date/Time, (user enters) OrigDateExpired Date/time, (copies date expired) Form 2 textboxes 1 textbox DateExpired 1 textbox OrigDateExpired 1 button code is On Click ... Private Sub Command52_Click() On Error GoTo Err_Command42_Click 'Goal* To copy...

Ok I linked the code to a button instead of On Open ... and it worked. I dont know why it wouldnt work on form open. Anyways thanks for your patience and time, Derek L

Nope I assigned it to Me.Active = Dcount( ....) Gave me the You cant assin a value to this object Funny thing is when I go to the table rename the object then recode everything it has no problem.

What I posted above is the whole code part I click a button and I wish it to do what I had posted. Tommorow I will try to upload that page or something. Tonight I will fool around with it some more. Thanks for anytime you spent on replying, Derek L

Thanks RuralGuy I will try it tonight after supper

The origanol part works im trying to return the number of counts to the form that called it.

No error Goes to the InputBox Has a text box in the form to display value tried with box enabled/notlocked and disabled/locked Datatype is Date/Time same as expirydate

:/ That didnt work either Heres the code Private Sub Command52_Click() On Error GoTo Err_Command42_Click 'Goal* To copy DateExpired into OrigDateExpired then give new expiry 'OrigDateExpired = CDate("2/3/2007") tried did not work 'OrigDateExpired = DateExpired tried did not work...

I try Active = DCount("[PermitNumber]", "Active Permits", "[PermitNumber] <> 0") Active is a Number Field of a Table PermitOverview When I run the code it gives me Run-Time error '2448': You can't assign a value to this object. What am I missing here? Derek L

I wish to do this Newdate = Olddate I have tried that and Olddate = 03/03/2003 oldate = cdate(03/03/2003) Im missing something. Thanks, Derek L