Most of the solutions use drawpage to get the MainForm, but causes errors
Code: Select all
(dim oForm as object
dim oControl as object
'oForm = frm.getByName("MainForm")
'oForm = ThisDatabaseDocument.FormDocuments.getByName("MainForm")
'oControl = ofForm.GetByName("Text Box 1")
oForm = ThisDatabaseDocument.FormDocumens.getByName("myForm")
oListBox = oForm.getByName("myListBox")
msgbox(oListBox.CurrentValue)
'the random word code:
'Ascii codes
'48-57 0-9
'65-90 A-Z
'97-122 a-z
'33-38 special characters
Dim Rand As String
Dim hi as integer
dim low as integer
dim loop2 as integer
for loop2 = 1 to 4
low = 65
hi = 90
Randomize
rndm1 = rndm1 & Chr$(Int((hi - low + 1) * Rnd + Low))
low = 48
hi = 57
Randomize
rndm1 = rndm1 & Chr$(Int((hi - low + 1) * Rnd + Low))
low = 97
hi = 122
Randomize
rndm1 = rndm1 & Chr$(Int((hi - low + 1) * Rnd + Low))
low = 33
hi = 38
Randomize
rndm1 = rndm1 & Chr$(Int((hi - low + 1) * Rnd + Low))
next
msgbox(rndm1)