Search results

Sorry The error in the line: If InStr(ctl.Controls(0).Caption, "*") > 0 Then

Can any one try to use this code on any single form then on a Continuous form to see the error ?

DoCmd.GoToControl ctl.Name

I use this code but gives me error 2467 Private Sub Form_BeforeUpdate(Cancel As Integer) ' perform data validation Dim ctl As Control For Each ctl In Me If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Then If InStr(ctl.Controls(0).Caption, "*") > 0 Then...

I try to get the controls that have a label caption text that contains "*" as : Dim ctl as control For each ctl in me.form If ctl.type=acTextbox or ctl.type=acCombobox then If ctl &""="" then If ctl.controls(0).caption like "*"&"*"&"*" Msg ctl.controls(0).caption End if End if End if Next...

Very thanks another time . How to refere to the control's caption that contains mark of ( * ) , example : - txtOrderID *: - txtOrderDate *: - cboCompanyNm *: - cboEmployeeNm*: - txtWriter*: How to do the code to loop through the controls that is ( null ) and their label caption text...

Very thanks for all

How to get caption text of linked labels for every control on a form I have a form based on a table with this textboxes and combo boxes : - txtOrderID its linked label caption : Order Number - txtOrderDate: its linked label caption : Visit Date - cboCompanyNm : its linked label caption ...

i want to go to unlimited generations . please help how to use code with my db.

it is not important to store mothers data . if there more than 10 generations in table how to get all the names of grandfathers for a person ?

hiii all dears i search for best way to build a family tree database , the best way that i found as in http://allenbrowne.com/ser-06.html is by using one table only , i have design a table " tblPersonsData" with 4 fields : -PersonID : Primary key -FatherID -PersonName -PersonBirhDate...

Very thanks It works good. It solved thanks ..for mr. Mark_ , post #4 , please re - explain step by step .

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...