Хотя уже ответили, и автор намерен создать приложение типа front controller, но я отправляю буквальное правило для заданной проблемы. если у кого-то проблема такая же.
RewriteEngine On
RewriteRule ^([^/]+)/([^/]+)/([\d]+)$ $1?id=$3 [L]
Выше должно работать для url picture.php/Some-text-goes-here/51
. без использования index.php в качестве приложения для перенаправления.
Решение найдено.
Function Set_Row_ID()
Dim db As DAO.Database
Dim Tbl As DAO.Recordset
Dim sql As String
Dim Row_Counter As Integer
Dim Total_Row As Integer
Set db = CurrentDb
'Initialising Row Counter variable
Row_Counter = 1
sql = "SELECT [Tbl - HOP Loan Data].[Row ID] FROM [Tbl - HOP Loan Data];"
Set Tbl = db.OpenRecordset(sql, dbOpenDynaset)
With Tbl
Do Until Tbl.EOF
If Row_Counter <= Total_Row Then
sql = "UPDATE [Tbl - HOP Loan Data " & _
"SET [Row ID] = " & Row_Counter & _
"Where [Row ID] < " & Row_Counter & " ;"
db.Execute (sql)
Row_Counter = Row_Counter + 1
End If
.MoveNext
Loop
End With
End Function
Вам нужно использовать SET
в вашем обновленном запросе, вы, вероятно, просто пропустили его со всеми экстрактивными материалами VBA, которые вам нужно было добавить в запрос.
Мое предложение (в общем) - это запись как обычно, через Access, а затем изменить этот запрос для использования в VBA.
Например, сначала напишите этот запрос так (в Access SQL Editor для тестирования):
UPDATE [Tbl - HOP Loan Data]
SET [Tbl - HOP Loan Data].[Row ID] = 1
WHERE [Tbl - HOP Loan Data].[Row ID] < 1
В любом случае попробуйте это:
sql = "UPDATE [Tbl - HOP Loan Data] " & _
"SET [Tbl - HOP Loan Data].[Row ID] = " & Row_Counter & _
"WHERE [Tbl - HOP Loan Data].[Row ID] < " & Row_Counter & " ;"
ПРИМЕЧАНИЕ : оператор WHERE
является скорее всего ненужным, в зависимости от вашей структуры таблицы .