See how one of the leading financial services organizations uses Recorded Future as part of a holistic threat intelligence program to promote security awareness and proactively and efficiently identify threats.
Public Sub TreeView0_NodeClick(ByVal Node As Object) Dim nodSelected As MSComctlLib.Node Set tvw = Me.TreeView0.Object Set nodSelected = Me.TreeView0.SelectedItem Dim frm As Access.Form Dim strNodeText As String Dim strTitlePlus As String Dim myKey() As String Set nd = Node tvw.DropHighlight = Nothing tvw.DropHighlight = nd nd.Selected = True Set frm = Me![sfrmTreeOperations].Form Set frm1 = Me![sfrmTreeMaterials].Form If nodSelected.Key Like "Opr*" Then frm.Visible = True frm1.Visible = False myKey() = Split(Node.Key, ",") Me.txtMtlSeq = "0" Me.txtAssemblySeq = Val(Mid(myKey(1), 3)) Me.txtOprSeq = Val(Mid(myKey(2), 3)) Me.txtTranType = myKey(3) Else If nodSelected.Key Like "Mtl*" Then frm.Visible = False frm1.Visible = True myKey() = Split(Node.Key, ",") Me.txtOprSeq = "0" Me.txtAssemblySeq = Val(Mid(myKey(1), 3)) Me.txtMtlSeq = Val(Mid(myKey(2), 3)) Me.txtTranType = myKey(3) End If End If End Sub
|Access Webapp: Table to Query to Table||14||36|
|Access - Calculate value of a field based on value of another in the same table||6||24|
|MS Access Product Inventory Movement Transfer Form With Separate Records Combined Into one Form||55||43|
|Access query that references subform||5||24|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
12 Experts available now in Live!