Filling in a form with an if statement

  • Thread starter Thread starter Charlieo
  • Start date Start date
C

Charlieo

What did I do wrong?

Private Sub AdvertiserCombo_AfterUpdate()
If ([queries].[q_Advertiser_ID].[Billing_Name]) Is Null Then
Me.ID.Value = Me.AdvertiserCombo.Column(1)
Me.AdvertiserName.Value = Me.AdvertiserCombo.Column(0)
Me.AdvertiserAddress.Value = Me.AdvertiserCombo.Column(2)
Me.AdvertiserCity.Value = Me.AdvertiserCombo.Column(3)
Me.AdvertiserState.Value = Me.AdvertiserCombo.Column(4)
Me.AdvertiserZip.Value = Me.AdvertiserCombo.Column(5)
Else
Me.ID.Value = Me.AdvertiserCombo.Column(1)
Me.AdvertiserName.Value = [queries].[q_Advertiser ID].[Billing Name]
Me.AdvertiserAddress.Value = [queries].[q_Advertiser ID].[Billing Address]
Me.AdvertiserCity.Value = [queries].[q_Advertiser ID].[Billing City]
Me.AdvertiserState.Value = [queries].[q_Advertiser ID].[Billing St]
Me.AdvertiserZip.Value = [queries].[q_Advertiser ID].[Billing Zip]
End If
End Sub

Charlie
 
Hi Charlieo,
the way you have set up the Is Null check is wrong.
Try it like this-->

If IsNull([queries].[q_Advertiser_ID].[Billing_Name]) Then


There is a VBA function called IsNull, to use as shown above.

There is a criteria of Is Null that is used in queries. You must use the
correct one for the occasion.



Jeanette Cunningham MS Access MVP -- Melbourne Victoria Australia
 
Thank you, your answer solve the problem.
Charlie
Jeanette Cunningham said:
Hi Charlieo,
the way you have set up the Is Null check is wrong.
Try it like this-->

If IsNull([queries].[q_Advertiser_ID].[Billing_Name]) Then


There is a VBA function called IsNull, to use as shown above.

There is a criteria of Is Null that is used in queries. You must use the
correct one for the occasion.



Jeanette Cunningham MS Access MVP -- Melbourne Victoria Australia

Charlieo said:
What did I do wrong?

Private Sub AdvertiserCombo_AfterUpdate()
If ([queries].[q_Advertiser_ID].[Billing_Name]) Is Null Then
Me.ID.Value = Me.AdvertiserCombo.Column(1)
Me.AdvertiserName.Value = Me.AdvertiserCombo.Column(0)
Me.AdvertiserAddress.Value = Me.AdvertiserCombo.Column(2)
Me.AdvertiserCity.Value = Me.AdvertiserCombo.Column(3)
Me.AdvertiserState.Value = Me.AdvertiserCombo.Column(4)
Me.AdvertiserZip.Value = Me.AdvertiserCombo.Column(5)
Else
Me.ID.Value = Me.AdvertiserCombo.Column(1)
Me.AdvertiserName.Value = [queries].[q_Advertiser ID].[Billing Name]
Me.AdvertiserAddress.Value = [queries].[q_Advertiser ID].[Billing Address]
Me.AdvertiserCity.Value = [queries].[q_Advertiser ID].[Billing City]
Me.AdvertiserState.Value = [queries].[q_Advertiser ID].[Billing St]
Me.AdvertiserZip.Value = [queries].[q_Advertiser ID].[Billing Zip]
End If
End Sub

Charlie
Click to expand...
Click to expand...
 
Back
Top