VBA Code - Revision history

WalterBerendsohn at 14:18, 10 April 2024

2024-04-10T14:18:47Z

← Older revision		Revision as of 16:18, 10 April 2024
Line 25:		Line 25:
	Access-VBA in query: <br/>		Access-VBA in query: <br/>
	canonicalName: IIf(InStr(Nz([fullname]),":")>0,Mid([Fullname],InStr([fullname],":")+2),[Fullname])		canonicalName: IIf(InStr(Nz([fullname]),":")>0,Mid([Fullname],InStr([fullname],":")+2),[Fullname])

			==(SPECIFY) Create fullNameWithStandardAuthor==
			Access-VBA in query: (Omits author citation for autonyms)<br>
			fullNameWithStandardAuthors: IIf([isAutonym],Nz([canonicalName]),Nz([canonicalname])+" "+Nz([standardauthor]))

WalterBerendsohn at 14:12, 10 April 2024

2024-04-10T14:12:38Z

← Older revision		Revision as of 16:12, 10 April 2024
Line 4:		Line 4:

	==(SPECIFY) Identify autonyms==		==(SPECIFY) Identify autonyms==
	Access VBA in query: ~~Autonym~~: findOccurancesCount([~~FullName~~],[Name])<br/>		Access VBA in query: isAutonym: IIf(findOccurancesCount([CanonicalName],[Name])>1,True,False)<br/>
	VBA Function:<br/>		VBA Function: [https://stackoverflow.com/questions/14286505/how-to-find-the-number-of-occurrences-of-a-substring-within-a-string-vb-net Source]<br/>
	Function findOccurancesCount(baseString, subString) As Integer<br/>		Function findOccurancesCount(baseString, subString) As Integer<br/>
	baseString = Nz(baseString, " ")<br/>		baseString = Nz(baseString, " ")<br/>

WalterBerendsohn at 13:58, 10 April 2024

2024-04-10T13:58:54Z

← Older revision		Revision as of 15:58, 10 April 2024
Line 1:		Line 1:
	==(GENERAL) Transform author name abbreviation to TDWG standard==		==(GENERAL) Transform author name abbreviation to TDWG standard==
	Access query (in Excell use Substitute instead of Replace): <br/>		Access query (in Excell use Substitute instead of Replace): <br/>
	~~StandardAuthor~~: Replace(Replace(Replace(Replace([Author],". ","."),".ex",". ex"),".in",". in"),".&",". &")		standardAuthor: Replace(Replace(Replace(Replace([Author],". ","."),".ex",". ex"),".in",". in"),".&",". &")

	==(SPECIFY) Identify autonyms==		==(SPECIFY) Identify autonyms==

WalterBerendsohn at 19:31, 9 April 2024

2024-04-09T19:31:10Z

← Older revision		Revision as of 21:31, 9 April 2024
Line 6:		Line 6:
	Access VBA in query: Autonym: findOccurancesCount([FullName],[Name])<br/>		Access VBA in query: Autonym: findOccurancesCount([FullName],[Name])<br/>
	VBA Function:<br/>		VBA Function:<br/>
	Function findOccurancesCount(baseString, subString) As Integer<br/>		Function findOccurancesCount(baseString, subString) As Integer<br/>
	baseString = Nz(baseString, " ")<br/>		baseString = Nz(baseString, " ")<br/>
	subString = Nz(subString, " ")<br/>		subString = Nz(subString, " ")<br/>
	occurancesCount = 0<br/>		occurancesCount = 0<br/>
	i = 1<br/>		i = 1<br/>
	Do<br/>		Do<br/>
	foundPosition = InStr(i, baseString, subString) 'searching from i position<br/>		foundPosition = InStr(i, baseString, subString) 'searching from i position<br/>
	If foundPosition > 0 Then 'substring is found at foundPosition index<br/>		If foundPosition > 0 Then 'substring is found at foundPosition index<br/>
	occurancesCount = occurancesCount + 1 'count this occurance<br/>		occurancesCount = occurancesCount + 1 'count this occurance<br/>
	i = foundPosition + 1 'searching from i+1 on the next cycle<br/>		i = foundPosition + 1 'searching from i+1 on the next cycle<br/>
	End If<br/>		End If<br/>
	Loop While foundPosition <> 0<br/>		Loop While foundPosition <> 0<br/>
	findOccurancesCount = occurancesCount<br/>		findOccurancesCount = occurancesCount<br/>
	End Function<br/>		End Function<br/>

WalterBerendsohn at 19:29, 9 April 2024

2024-04-09T19:29:31Z

← Older revision		Revision as of 21:29, 9 April 2024
Line 1:		Line 1:
	==(GENERAL) Transform author name abbreviation to TDWG standard==		==(GENERAL) Transform author name abbreviation to TDWG standard==
			Access query (in Excell use Substitute instead of Replace): <br/>
			StandardAuthor: Replace(Replace(Replace(Replace([Author],". ","."),".ex",". ex"),".in",". in"),".&",". &")

	==(SPECIFY) Identify autonyms==		==(SPECIFY) Identify autonyms==

WalterBerendsohn at 19:27, 9 April 2024

2024-04-09T19:27:25Z

@@ Line 1: / Line 1: @@
 ==(SPECIFY) Derive canonical name from FullName==
 Access-VBA in query: <br/>
 canonicalName: IIf(InStr(Nz([fullname]),":")>0,Mid([Fullname],InStr([fullname],":")+2),[Fullname])

WalterBerendsohn: Created page with "==(SPECIFY) Derive canonical name from FullName== Access-VBA in query:
canonicalName: IIf(InStr(Nz([fullname]),":")>0,Mid([Fullname],InStr([fullname],":")+2),[Fullname])"

2024-04-09T19:21:18Z

Created page with "==(SPECIFY) Derive canonical name from FullName== Access-VBA in query: <br/> canonicalName: IIf(InStr(Nz([fullname]),":")>0,Mid([Fullname],InStr([fullname],":")+2),[Fullname])"

New page

==(SPECIFY) Derive canonical name from FullName==
Access-VBA in query: <br/>
canonicalName: IIf(InStr(Nz([fullname]),":")>0,Mid([Fullname],InStr([fullname],":")+2),[Fullname])