PETITES FONCTIONS ENTRE AMIS

'Une fonction qui traduit du texte
'Tout le monde sait qu'il n'y a rien de plus embêtant que de perdre du temps
'a cause des cotes et boubles-cotes.
'Donc la fonction transforme les ' en ''
'et ajoute au début et fin de variable un '
'Cette fonction réagit en fonction du TYPE de variable

Function SQLStr(sValue)
Dim sTemp
Select Case VarType(sValue)
	case 0, 1:
		SQLStr = Null
	Case 2, 3, 4, 5, 6:
		sTemp = "" & sValue
		sTemp = Replace(sTemp, "'", "''")
		SQLStr = "'" & sTemp & "'"
	Case 7:
		sTemp = FormatDateTime(sValue)
		sTemp = Replace(sTemp, "'" , "''")
		SQLStr = "'" & sTemp & "'"
	Case 8:
		sTemp = sValue
		sTemp = Replace(sTemp, "'", "''")
		if Len(Trim(sTemp)) > 0 Then
			SQLStr = "'" & sTemp & "'"
		Else
			SQLStr = Null
		End If
	Case Else
		SQLStr = Null
	End Select
End Function

'Met en forme une DATE
Function SQLDate(sValue)
setLocale("fr-fr")
Select Case VarType(sValue)
	Case 7:
		SQLDate = "#" & sValue & "#"
	Case 8:
		If isDate(sValue) Then
			SQLDate = "#" & sValue & "#"
		End If
	Case Else
		SQLDate = Null
	End Select
End Function

'Transforme une VALEUR NUMERIQUE
Function SQLVal(sValue)
Dim sTemp
Select Case VarType(sValue)
	Case 0, 1:
		SQLVal = null
	Case 2, 3, 4, 5, 6:
		SQLVal = "" & sValue
	Case 8:
		sTemp = Trim(sValue)
		On Error Resume Next
		SQLVal = "" & CInt(sTemp)
		If Err.Number <> 0 Then
			Err.clear
		SQLVal = null
		End If
	End Select
End Function

Function FVal(sValue)
Dim sTemp
Select Case VarType(sValue)
	Case 0, 1	:
		FVal = 0
	Case 2, 3, 4, 5, 6:
		FVal = sValue
	Case 8:
		sTemp = Trim(sValue)
		On Error Resume Next
		FVal = CInt(sTemp)
		If Err.Number <> 0 Then
			Err.clear
			FVal = 0
		End If
	End Select
End Function