I'm having trouble with my database. i want to add a hyperlink whenever i add a new value.
here's my code
If txtcon.Text = "" Or txtname.Text = "" Then
MsgBox "The Control No. or Name is empty", vbCritical, "Error!"
Else
'database
'columns name is Personal_Data
Sheets("Database").Range("A" & nextrow).Value = txtcon.Text 'control number
Sheets("Database").Range("B" & nextrow).Value = txtname.Text 'name of the person
Sheets("Database").Range("D" & nextrow).Value = cboxdt.Text 'its a combobox with list "Have Record", "N/A"
'personal data
Sheets("Personal_Data").Range("A" & nextrow).Value = country.Text
Sheets("Personal_Data").Range("B" & nextrow).Value = txtname.Text
Sheets("Personal_Data").Range("B" & nextrow).Value = txtposition.Text
end if
i want to set a hyper link in Sheets("Database").Range("D" & nextrow).Value = cboxdt.Text to Sheets("Personal_Data").Range("B" & nextrow).Value = txtname.Text
i hope someone help me here i need to finish this projectany help or suggestion is highly appreciated
Bookmarks