使用vba / macro重命名microsoft访问中的表

Question

嗨，伙计们 我有一个包含24个表的ms访问数据库，我需要每天重命名表

这

table 1 --> table 1backup

任何想法都将受到赞赏

是否适用于VBA

Answer 1

你可以：

Dim tdf As TableDef

For Each tdf In CurrentDb.TableDefs
    If Left(tdf.Name, 4) <> "MSys" Then
      tdf.Name = tdf.Name & "_backup"
    End If
Next

Answer 2

我建议使用以下代码。如果新表名已经存在，它将用现有表替换新重命名的表：

    // Get posts
    export const getPosts = () => async (dispatch) => {
      try {
        const res = await axios.get('/api/posts');

        dispatch({
          type: GET_POSTS,
          payload: res.data,
        });
      } catch (err) {
        dispatch({
          type: POST_ERROR,
          payload: { msg: 'No Posts found' },
          // payload: { msg: err.response.statusText, status: err.response.status },
        });
      }
    };