In bijlage een piepklein DB die ik (gemakkelijkheidshalve) veel gebruik om de SQL code uit een MS Access Query om te zetten via kopiëren, drukken op een knopje en plakken in de VBA module naar een VBA query.
Werkt heel goed alleen zijn de regels soms heel lang als het om een grote query gaat.
Hoe zou je de lengte van de sql string kunnen bepalen én deze dan automatisch opdelen in stukken van een bepaalde lengte zodat je de VBA code vooreerst kunt plakken in de VBA module én tegelijk goed leesbaar wordt?
De code
Werkt heel goed alleen zijn de regels soms heel lang als het om een grote query gaat.
Hoe zou je de lengte van de sql string kunnen bepalen én deze dan automatisch opdelen in stukken van een bepaalde lengte zodat je de VBA code vooreerst kunt plakken in de VBA module én tegelijk goed leesbaar wordt?
De code
Code:
Private Sub cmdSql2Vba_Click()
Dim strSql As String
'Purpose: Convert a SQL statement into a string to paste into VBA code.
Const strcLineEnd = " "" & vbCrLf & _" & vbCrLf & """"
If IsNull(Me.txtSql) Then
Beep
Else
strSql = Me.txtSql
strSql = Replace(strSql, """", """""") 'Double up any quotes.
strSql = Replace(strSql, vbCrLf, strcLineEnd)
strSql = "strSql = """ & strSql & """"
Me.txtVBA = strSql
Me.txtVBA.SetFocus
RunCommand acCmdCopy
End If
End Sub