Prev: Default Value =Date$() in UK Date Format
Next: "free" ip number when I remove device from database?
From: buzzmcduffie on 11 May 2010 07:14
I have a form that needs to look up a "goal" by matching several fields in a
> table. I can't figure out how to do dlookup with multiple criteria
>
> Form = frmManualTaskDataEntry
> [employee]
> [cbxMailCodeTask]
> [cbxState]
> [cbxDisabilityIndicator]
> [cbxVolumeCode]
>
> Table = tblMailCodeTasks
> MailCodeTask
> State
> DisabilityIndicator
> VolumeCode
> Goal
> Active

Here's what I have that doesn't work:

Private Sub cbxCompany_AfterUpdate()
Me![Goal] = DLookup("[Goal]", "tblMailCodeTasks", tblMailCodeTasks.MailCode
= [Forms]![frmManualTasksDataEntry]![cbxMailCodeTask]) And
((tblMailCodeTasks.DisabilityIndicator) =
[Forms]![frmManualTasksDataEntry]![cbxDisabilityIndicator]) And
((tblMailCodeTasks.State) = [Forms]![frmManualTasksDataEntry]![cbxState]) And
((tblMailCodeTasks.Active) = "yes")
End Sub

Any help is appreciated!
From: RonaldoOneNil on 11 May 2010 07:29
The following assumes that all your fields in the Lookup are Text values and
so are surrounded by single quotes.

Me![Goal] = DLookup("[Goal]", "tblMailCodeTasks", "MailCode = '" &
[Forms]![frmManualTasksDataEntry]![cbxMailCodeTask] & "' And
DisabilityIndicator = '" &
[Forms]![frmManualTasksDataEntry]![cbxDisabilityIndicator] & "' And State =
'" & [Forms]![frmManualTasksDataEntry]![cbxState] & "' And Active = 'yes')

"buzzmcduffie" wrote:

> I have a form that needs to look up a "goal" by matching several fields in a
> > table. I can't figure out how to do dlookup with multiple criteria
> >
> > Form = frmManualTaskDataEntry
> > [employee]
> > [cbxMailCodeTask]
> > [cbxState]
> > [cbxDisabilityIndicator]
> > [cbxVolumeCode]
> >
> > Table = tblMailCodeTasks
> > MailCodeTask
> > State
> > DisabilityIndicator
> > VolumeCode
> > Goal
> > Active
>
> Here's what I have that doesn't work:
>
> Private Sub cbxCompany_AfterUpdate()
> Me![Goal] = DLookup("[Goal]", "tblMailCodeTasks", tblMailCodeTasks.MailCode
> = [Forms]![frmManualTasksDataEntry]![cbxMailCodeTask]) And
> ((tblMailCodeTasks.DisabilityIndicator) =
> [Forms]![frmManualTasksDataEntry]![cbxDisabilityIndicator]) And
> ((tblMailCodeTasks.State) = [Forms]![frmManualTasksDataEntry]![cbxState]) And
> ((tblMailCodeTasks.Active) = "yes")
> End Sub
>
> Any help is appreciated!
From: buzzmcduffie on 11 May 2010 08:15
I'm still getting a syntax error when I copy and paste your code. I must not
understand.

"RonaldoOneNil" wrote:

> The following assumes that all your fields in the Lookup are Text values and
> so are surrounded by single quotes.
>
> Me![Goal] = DLookup("[Goal]", "tblMailCodeTasks", "MailCode = '" &
> [Forms]![frmManualTasksDataEntry]![cbxMailCodeTask] & "' And
> DisabilityIndicator = '" &
> [Forms]![frmManualTasksDataEntry]![cbxDisabilityIndicator] & "' And State =
> '" & [Forms]![frmManualTasksDataEntry]![cbxState] & "' And Active = 'yes')
>
> "buzzmcduffie" wrote:
>
> > I have a form that needs to look up a "goal" by matching several fields in a
> > > table. I can't figure out how to do dlookup with multiple criteria
> > >
> > > Form = frmManualTaskDataEntry
> > > [employee]
> > > [cbxMailCodeTask]
> > > [cbxState]
> > > [cbxDisabilityIndicator]
> > > [cbxVolumeCode]
> > >
> > > Table = tblMailCodeTasks
> > > MailCodeTask
> > > State
> > > DisabilityIndicator
> > > VolumeCode
> > > Goal
> > > Active
> >
> > Here's what I have that doesn't work:
> >
> > Private Sub cbxCompany_AfterUpdate()
> > Me![Goal] = DLookup("[Goal]", "tblMailCodeTasks", tblMailCodeTasks.MailCode
> > = [Forms]![frmManualTasksDataEntry]![cbxMailCodeTask]) And
> > ((tblMailCodeTasks.DisabilityIndicator) =
> > [Forms]![frmManualTasksDataEntry]![cbxDisabilityIndicator]) And
> > ((tblMailCodeTasks.State) = [Forms]![frmManualTasksDataEntry]![cbxState]) And
> > ((tblMailCodeTasks.Active) = "yes")
> > End Sub
> >
> > Any help is appreciated!
From: RonaldoOneNil on 11 May 2010 10:10
Sorry missed the closing double quotes off the end

...... And Active = 'yes'")

"buzzmcduffie" wrote:

> I'm still getting a syntax error when I copy and paste your code. I must not
> understand.
>
> "RonaldoOneNil" wrote:
>
> > The following assumes that all your fields in the Lookup are Text values and
> > so are surrounded by single quotes.
> >
> > Me![Goal] = DLookup("[Goal]", "tblMailCodeTasks", "MailCode = '" &
> > [Forms]![frmManualTasksDataEntry]![cbxMailCodeTask] & "' And
> > DisabilityIndicator = '" &
> > [Forms]![frmManualTasksDataEntry]![cbxDisabilityIndicator] & "' And State =
> > '" & [Forms]![frmManualTasksDataEntry]![cbxState] & "' And Active = 'yes')
> >
> > "buzzmcduffie" wrote:
> >
> > > I have a form that needs to look up a "goal" by matching several fields in a
> > > > table. I can't figure out how to do dlookup with multiple criteria
> > > >
> > > > Form = frmManualTaskDataEntry
> > > > [employee]
> > > > [cbxMailCodeTask]
> > > > [cbxState]
> > > > [cbxDisabilityIndicator]
> > > > [cbxVolumeCode]
> > > >
> > > > Table = tblMailCodeTasks
> > > > MailCodeTask
> > > > State
> > > > DisabilityIndicator
> > > > VolumeCode
> > > > Goal
> > > > Active
> > >
> > > Here's what I have that doesn't work:
> > >
> > > Private Sub cbxCompany_AfterUpdate()
> > > Me![Goal] = DLookup("[Goal]", "tblMailCodeTasks", tblMailCodeTasks.MailCode
> > > = [Forms]![frmManualTasksDataEntry]![cbxMailCodeTask]) And
> > > ((tblMailCodeTasks.DisabilityIndicator) =
> > > [Forms]![frmManualTasksDataEntry]![cbxDisabilityIndicator]) And
> > > ((tblMailCodeTasks.State) = [Forms]![frmManualTasksDataEntry]![cbxState]) And
> > > ((tblMailCodeTasks.Active) = "yes")
> > > End Sub
> > >
> > > Any help is appreciated!
From: RonaldoOneNil on 12 May 2010 04:00
Also it needs to be all on one line unless you use the underscore
continuation character.

"buzzmcduffie" wrote:

> I'm still getting a syntax error when I copy and paste your code. I must not
> understand.
>
> "RonaldoOneNil" wrote:
>
> > The following assumes that all your fields in the Lookup are Text values and
> > so are surrounded by single quotes.
> >
> > Me![Goal] = DLookup("[Goal]", "tblMailCodeTasks", "MailCode = '" &
> > [Forms]![frmManualTasksDataEntry]![cbxMailCodeTask] & "' And
> > DisabilityIndicator = '" &
> > [Forms]![frmManualTasksDataEntry]![cbxDisabilityIndicator] & "' And State =
> > '" & [Forms]![frmManualTasksDataEntry]![cbxState] & "' And Active = 'yes')
> >
> > "buzzmcduffie" wrote:
> >
> > > I have a form that needs to look up a "goal" by matching several fields in a
> > > > table. I can't figure out how to do dlookup with multiple criteria
> > > >
> > > > Form = frmManualTaskDataEntry
> > > > [employee]
> > > > [cbxMailCodeTask]
> > > > [cbxState]
> > > > [cbxDisabilityIndicator]
> > > > [cbxVolumeCode]
> > > >
> > > > Table = tblMailCodeTasks
> > > > MailCodeTask
> > > > State
> > > > DisabilityIndicator
> > > > VolumeCode
> > > > Goal
> > > > Active
> > >
> > > Here's what I have that doesn't work:
> > >
> > > Private Sub cbxCompany_AfterUpdate()
> > > Me![Goal] = DLookup("[Goal]", "tblMailCodeTasks", tblMailCodeTasks.MailCode
> > > = [Forms]![frmManualTasksDataEntry]![cbxMailCodeTask]) And
> > > ((tblMailCodeTasks.DisabilityIndicator) =
> > > [Forms]![frmManualTasksDataEntry]![cbxDisabilityIndicator]) And
> > > ((tblMailCodeTasks.State) = [Forms]![frmManualTasksDataEntry]![cbxState]) And
> > > ((tblMailCodeTasks.Active) = "yes")
> > > End Sub
> > >
> > > Any help is appreciated!
 |  Next  |  Last
Pages: 1 2
Prev: Default Value =Date$() in UK Date Format
Next: "free" ip number when I remove device from database?