小编Cha*_*ger的帖子

由于我处于开发模式,我的前端需要大量更新.这是我在用户尝试打开前端时检查版本的功能:

Public Function FEPath(DBName As String)

Dim Conn As New ADODB.Connection
Dim DataConn As New ADODB.Recordset
Dim Comm As String
Dim strPath As String
Dim strDB As String
Dim strVer As String
Dim strExt As String

Comm = " SELECT tblFE.Database, tblFE.Version, tblFE.Extension " & _
        " FROM tblFE WHERE tblFE.[Database] = '" & DBName & "';"

Set Conn = CurrentProject.Connection
DataConn.Open Comm, Conn, adOpenKeyset, adLockOptimistic

With DataConn
    strDB = ![Database]
    strVer = ![Version]
    strExt = ![Extension]

    strPath = "C:\Databases\" …

我有一个MS Access应用程序,用于两个不同的时区.差异是7个小时.我需要找到两个办公室都关闭的时间,这样我就可以关闭他们的数据库了,我可以做紧凑和修复并备份它们.

所以我不需要创建两个分离前端,我告诉密切数据库一个在晚上1000点而另一个在凌晨4点我知道我可以说在世界贸易组织上午00:30关闭数据库.但我不知道如何在Local中转换同一个.现在我关闭数据库的代码如下所示:

Private Sub Form_Timer()
Dim RunAtLocalTime As String

RunAtLocalTime = Format(Now(), "HH:MM:SS")
If RunAtLocalTime = ("00:00:00") Then
        DoCmd.Quit
End If
End Sub

我想做这样的事情:

Private Sub Form_Timer()
Dim RunAtLocalTime As String
Dim UTCTIME As 

'''RunAtLocalTime = Convert(UTCTIME)
 RunAtLocalTime = Format(Now(), "HH:MM:SS")
 If RunAtLocalTime = ("00:00:00") Then
        DoCmd.Quit
End If
End Sub

我有一个Excel表格,我从我的客户收到,我被导入Access,我会调用该表[tblCustomer],看起来像这样:

ProductID     Name         Expire date      SumofQty
------------  -----------  ---------------  --------
3             Flour        13-Dec-2013      6       
6             Meat         20-Jan-2014      10

因此该表包含100个项目.我希望在同一个表或另一个表中按照SumofQty复制相同的记录6次,然后将下一个记录复制10次,依此类推.我需要这个原因我现在就会为每个产品创建标签.