My Bro..
thanks ..now it is working in my demo Database , i will apply this code in the main project and inform u the final result ...
many many thanks for your support
regards
SSDA
Last Activity: Sep 2 '15, 06:06 AM
Joined: Jul 24 '15
Location:
-
please, see below
Code:SELECT qAnimals.AnimalID, AnimalsStatus.AnimalStatus, AnimalsTypes.AnimalType, qAnimals.Age, qAnimals.locationID, qAnimals.fixedassets, qAnimals.AnimalSex, qAnimals.SireID, qAnimals.DamID, qAnimals.Ready, qAnimals.ReadyDate FROM AnimalsStatus INNER JOIN (AnimalsTypes INNER JOIN qAnimals ON AnimalsTypes.AnimalTypeID = qAnimals.AnimalTypeID) ON AnimalsStatus.AnimalStatusID = qAnimals.AnimalStatusID;
Last edited by Rabbit; Sep 2 '15, 04:28 PM. Reason: Please use [code] and [/code] tags when posting code or formatted data.Leave a comment:
-
sir .. still importing all data from the query ...
and the filter print :
AnimalStatus='a live' And AnimalType ='sheep'
note: i left the cboDamID BLANK
regardsLeave a comment:
-
...Code:Option Compare Database Private Sub btnOpenreport_Click() Dim strfilter As String ' cboDamID If Not IsNull(Me.cboDamID) Then strfilter = "DamID='" & [cboDamID] & "'" If strfilter = "" Then strfilter = "AnimalStatus='" & [cboAnimalStatus] & "'" End If End If 'cboAnimalStatus
Leave a comment:
-
if i leaving cboDamID blank ... the Immediate window didnt print any thing
...Leave a comment:
-
DamID='f-000000' and AnimalStatus ='alive' and AnimalType ='cheep'
this is the filter ... it is working as the first time
but if i left any combo box ... the filter will be empty and dont importing any data from the query
regardsLeave a comment:
-
Until now there is no action , the query still importing all the data… and i made some modification on the code… also no responce…
You are tired with me, brotherLeave a comment:
-
Sorry… what is the strcomputer
… i defined strfilter as string
…and no actionLeave a comment:
-
i tried this code ...but its not workingLeave a comment:
-
i did it ...by this code
...Code:Private Sub btnOpenreport_Click() ' cboDamID If IsNull(Me.cboDamID) Then Me.Filter = "DamID=''" Me.FilterOn = True Else Me.Filter = "DamID='[cboDamID]'" Me.FilterOn = True End If 'cboAnimalStatus If IsNull(Me.cboAnimalStatus) Then Me.Filter = "AnimalStatus=''" Me.FilterOn = True
Leave a comment:
-
multi-filter ...combo box in one form
Hi dears
there is 8 combo box must be make filter on "RqryAnimalsRep oert"
if i choose one items from one combo box like "DamID"...a nd leave other "null"
the report must be make filter as "DamID" only and leave the other filter blank
...
please, see the attached file
regards... -
thanks Mr. Seth Schrock for your replyLeave a comment:
-
update multi records on the subform
I have “animal_sales_m ain” as a main form and “animal_sales_d etials Subform” as a subform contain one record or many records, the control object in the animal_sales_de tials Subform it is field “ animal_id”
And I have a table named “animals” has fields “ animal_id” , “ status” .....etc
The target is :
When I add any records in field “animal_id” on the subform “ animal_sales_de tials Subform”... -
thank you MR. rabbit
the DB was already existing ... and i just want to do a simple modification on it ... but after your note i will re design it
thanks againLeave a comment:
-
at first ...thanks for reply;
the goal is to move this record from one table to another one ...
so i will delete it from table1 after copy
regardsLeave a comment:
-
append query with one extra column
hi dears
this is my first time in with you..
and i have one question:
i have "form1" contain data for "table1"
i want to append the current record from "table1" to "table2"
but the problem is ...the "table2" has one column extra and i need to fill this extra column by "any data"?
so any one help me?
...
No activity results to display
Leave a comment: