Hey, I am working on a project using access and vb. The basic of what I\'m tryin
ID: 3937337 • Letter: H
Question
Hey, I am working on a project using access and vb. The basic of what I'm trying to do is first form (login) Second form choose a color like blue, green brown, red, yellow etc......(I already did the first two but this is where I am stuck) Now say if I pick Blue and click "Select". I want a third form to display with all the secondary colors. I'm using access to store my information and vb and a datagridview to display my information for the user. Any help that you can give I would really appreciate it!!
Explanation / Answer
program
Function myRGB(r, g, b)
Dim clr As Long, src As Range, sht As String, f, v
If IsEmpty(r) Or IsEmpty(g) Or IsEmpty(b) Then
clr = vbWhite
Else
clr = RGB(r, g, b)
End If
Set src = Application.ThisCell
sht = src.Parent.Name
f = "Changeit(""" & sht & """,""" & _
src.Address(False, False) & """," & clr & ")"
src.Parent.Evaluate f
myRGB = ""
End Function
Sub ChangeIt(sht, c, clr As Long)
ThisWorkbook.Sheets(sht).Range(c).Interior.Color = clr
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Count = 1 Then
If .Column < 4 Then
Cells(.Row, 4).Interior.Color = RGB(Cells(.Row, 1), Cells(.Row, 2), .Cells(.Row, 3))
End If
End If
End With
End Sub