B
Bob Barnes
I'm an Access Programmer, using automation to populate Excel data.
From within Access, as part of an AfterUpdate, I have...
where DSupply, GPrev and GDiff are Controls on an Access Form.
Will Excel allow Events on Named Cells ??
TIA - Bob
If Not IsNull(DSupply) Then
'7/2/09 - for meter turnover (Jeff said all meters have min of 4-characters)
If (GDiff < 0 And Abs(GDiff) > 9000) Then
If Len(GPrev) = 4 Then
I = (10000 - GPrev)
ElseIf Len(GPrev) = 5 Then
I = (100000 - GPrev)
ElseIf Len(GPrev) = 6 Then
I = (1000000 - GPrev)
ElseIf Len(GPrev) = 74 Then
I = (10000000 - GPrev)
End If
GDiff = DSupply + I
Else
GDiff = (DSupply - GPrev)
End If
If GDiff < 0 Then
GDiff.BackColor = 255
Else
GDiff.BackColor = 16777215
End If
End If
From within Access, as part of an AfterUpdate, I have...
where DSupply, GPrev and GDiff are Controls on an Access Form.
Will Excel allow Events on Named Cells ??
TIA - Bob
If Not IsNull(DSupply) Then
'7/2/09 - for meter turnover (Jeff said all meters have min of 4-characters)
If (GDiff < 0 And Abs(GDiff) > 9000) Then
If Len(GPrev) = 4 Then
I = (10000 - GPrev)
ElseIf Len(GPrev) = 5 Then
I = (100000 - GPrev)
ElseIf Len(GPrev) = 6 Then
I = (1000000 - GPrev)
ElseIf Len(GPrev) = 74 Then
I = (10000000 - GPrev)
End If
GDiff = DSupply + I
Else
GDiff = (DSupply - GPrev)
End If
If GDiff < 0 Then
GDiff.BackColor = 255
Else
GDiff.BackColor = 16777215
End If
End If