I'm having an error message saying "User-Defined Type Not Defined" in the first line of code below;
By the way I'm sure it's the SSDBGRID part that's causing it because I've already tried running the system without it and it pushed through. The problem is I need it in there.
Public Function CheckDuplicate(ByRef frm As Form, ByRef strgrd As SSDBGrid, ByVal intcol As Integer, gval As String) As Boolean Dim ctr As Integer CheckDuplicate = False With strgrd If .Rows <> 0 Then .MoveFirst For ctr = 1 To .Rows If gval = Trim$(.Columns(intcol).Text) Then CheckDuplicate = True Call MsgBox("Record already included in the list.", vbInformation) Exit Function End If .MoveNext Next End If End With End Function
I already have Sheridan SSDBGRID Installed.
I'm not sure if I just missed a reference so I attached the list of Project > References .
I also attached the error message.
I'm using VB6 with service pack 6 running on Windows 7 Ultimate 32bit.
Does anyone have any suggestion on how to solve this?
Does anyone have any solution for this?