Search results

Very thanks After trying the function , it works good for the first two prices only. but after that it gives wrong results. I give LtrsConsumed values like : 200 , it's returns 300 , RIGHT 500 it's returns 1050 , RIGHT 1000 it's returns 2600 , WRONG ( THE RIGHT IS 2800) 2000 it's returns...

Dear all I have a field " LtrsConsumed" on InvoiceTBL contains consumed water liters No. ..... Where consumption price in groups as: 1 to 200 liter * 1.5 Rials 201 to 500 liter * 2.0 Rials 501 to 1000 liter * 2.5 Rials 1001 to 2000 liter * 3.0 Rials More than 2000 liter * 3.5 Rials Stored...

under : [Code] Private Sub ListOne_DblClick(Cancel As Integer) [code/]

it stay gives me msg: Record Not found and go to first record. q: where you want me to put that code? i put it under after update for the combobox (SerNo)

Ok that like as understand . Dim lngPK As Long 'change data type if yours is different 'set variable to current record ID lngPK = Me.SerNo Me.Parent.ListOne.Requery Forms![MainFrm]![OrdersSubFrm].Form! [ListOne] = lngPK 'Me.Requery 'return form to original record With Me.RecordsetClone...

please give me the complete code ?

thanks. but i don't want to requery my subform, i want to requery the Listbox (LstOne) on the mainform.

i try : Public Function LTDYS(LftDate As Date, MyPtNm As String) Dim MyDate Dim LValue As Integer Dim MnthCnt As String MyDate = DateSerial(Year(LftDate), Month(LftDate), Day(LftDate)) LValue = DateDiff("d", MyDate, Date) If LValue < 10 Then MnthCnt = "day" Else MnthCnt = "days" End If...

no the Primary Key of the List Box (ServiceID) from the another table (in dblclick on it , it runs an append query to append groups of details in the sub from.)

hiii all dears i have three forms , mainfrm , inside it OrdersSubFrm , inside it OrdDetSubFrm . i have a code to allert user if there are any changes , for any control in any form of this three forms. , after three days of the current date. i use this codes in the Form_BeforeUpdate event ...

it gives msg: Record not found. then go to the first record.

please give complete code. where put: Me.Parent.ListOne.Requery Forms![MainFormName]! [ListOne] = lngPK

Hiiii All I have a Form with Sub form , I add some data to sub form and then need to requery a listbox in Main form. i try : Dim lngPK As Long 'change data type if yours is different 'set variable to current record ID lngPK = Me.SerNo Me.Parent.ListOne.Requery 'Me.Requery 'return form to...

i have : a Single, Continuous and Datasheet View Forms. and suppose i have: a text box long data type and text box text data type , and a combobox of a number type and a text data type .

Hiii All i have a textbox , make format Like :@;"New Record" how to make its color red, only the word of New Record ? the default color for this record is black.

i have make an example with access 2007 , but not work . see to attachment.

Very Very Thanks I try the Second choice , it works good. Exit_Function: ' Label to resume after error. Exit Function ' Exit before error handler. Err_OldDts: ' Label to jump to on error.

Hiii All Dears I have read http://allenbrowne.com/ser-23a.html and try to do this in my db . this works good in forms and reports events.but i try to do in some special functions, but gives me "Compile error: label not defined " massage. please see my code: Public Function OldDts(SerAddDt...

Dear jdraw your Example is a good idea. but if user needs to show his changes dates for the current record in main form or in sub form ??

i try https://www.access-programmers.co.uk/forums/showpost.php?p=1530693&postcount=43 your Example.. sorry a refernce error. i add ms activex data object 2.8 library . and works good.