Как изменить данных поля таблица по сравнение другой таблица

[tojdor_tj]

Привет ребятами. У меня такая проблема надо изменить данных поля от русский на таджикский язык. Например:
Началник отдел --->Сардори шуъба
Зам.началник отдел --->Муовини сардор
Главный специалист --->Сармутахассис
Ведущий специалист --->Мутахассиси пешбар
Специалист --->Мутахассис

Как создать макрос если в поля есть такой данных автоматический изменяют на другой? Пожалуйста помогите...

[Aleksandr H.]

Sub RenamePosition()
    Dim rst As Recordset
    Dim sSql As String
    Set rst = CurrentDb.OpenRecordset("tb2")
    rst.MoveLast
    rst.MoveFirst
    Do While Not rst.EOF
        sSql = "UPDATE tb1 SET tb1.[Position] = '" & rst(1) & "' " & _
            "WHERE trim(tb1.[Position])='" & Trim(rst(0)) & "'"
        DoCmd.SetWarnings False
        DoCmd.RunSQL sSql
        DoCmd.SetWarnings True
        rst.MoveNext
    Loop
    MsgBox "Done"
    Set rst = Nothing
End Sub

[shanemac51]

у вас ведь не только должности по-русски, но и другие поля
+ множество ошибок в русском тексте

[tojdor_tj]

Это пример на база данных есть много таких поля. Мне нужен изменить всех. По этому попросил помощ.

[shanemac51]

надо запросами создать справочники -переводники по нужным полям(3 столбца, код,русский , таджикский
создать ленточную форму для заполнения таджикского столбца
затем запросом UPDATE заменить

хотя лично я бы оставила и русское и таджикское название, возможно даже подстановку сделала, чтобы можно было выдавать отчеты и по русски и по таджикски и на обеих сразу

надо смотреть базу - как она у вас сделана
и таблицы и формы/отчеты(их ведь тоже придется переводить - надписи интерфейса)
проблема может быть и в локализации базы, на каком языке заданы имена таблиц/форм, имена полей

[tojdor_tj]

Aleksandr H. Огромное спасибо!!! Код работает отлично! Спасибо

[tojdor_tj]

Ребятами пожалуйста помогите на старые база данных этот код даёт такая ошибка...
Run-time.jpg

[Aleksandr H.]

Это ведь таблица, скопируйте в не такую старую версию, измените, скопируйте обратно. Профит.

В старой версии наверное придется DAO библиотеку подключать через командную строку...или нет..., по попробуйте прописать

Dim rst as DAO.Recordset

и в References поставить галку около Microsoft DAO......

[shanemac51]

Сообщение от tojdor_tj

Ребятами пожалуйста помогите на старые база данных этот код даёт такая ошибка...

да, явно не хватает ссылки на ДАО

Sub RenamePosition()
    Dim rst As DAO.Recordset
    Dim sSql As String
    Set rst = CurrentDb.OpenRecordset("Pol")
    rst.MoveLast
    rst.MoveFirst
    Do While Not rst.EOF
        sSql = "UPDATE Ndelo SET Ndelo.[Pol] = '" & rst(1) & "' " & _
            " WHERE trim(Ndelo.[Pol])='" & Trim(rst(0)) & "'"
        DoCmd.SetWarnings False
        DoCmd.RunSQL sSql
        DoCmd.SetWarnings True
        rst.MoveNext
    Loop
    MsgBox "Done"
    Set rst = Nothing
End Sub

[alosonar]

Привет, спасибо