我在不同的服务器上有两个域。第一个服务器的一个页面有一个 iframe 指向另一个服务器中的 url。我无法与 seesions 一起工作。
iFrame 页面代码（main.php）：
<!DOCTYPE html>
<html>
<head>
<base target="_parent">
</head>
<body>
<iframe src="http://192.168.1.10/index.php"</iframe>
</body>
</html>
我的 iFrame 页面 index.php 有一个启动会话的简单登录系统。因此，有一个按钮可以加载以下代码（process.php）：
<?php
session_start();
$_SESSION['valid'] = true;
$_SESSION['timeout'] = time();
header('location:catalogue.php');
?>
在我的 catalogue.php 和每个页面上，我有以下会话代码（check.php）：
<?php
session_start();
if (isset($_SERVER['HTTP_REFERER'])) {
if ($_SERVER['HTTP_REFERER'] == "") {
unset($_SESSION['valid']);
unset($_SESSION['timeout']);
header('location:index.php');
}
} else {
unset($_SESSION['valid']);
unset($_SESSION['timeout']);
header('location:index.php');
}
if (isset($_SESSION['valid'])) {
$timeout = $_SESSION['timeout'];
$time = time();
$t = $time - $timeout;
if ($t > 9000) { //15*60 = …我正在尝试打开一个表单并移至最后一条记录。我正在使用以下
DoCmd.RunCommand acCmdRecordsGoToLast
表单打开并转到最后一条记录，但它隐藏了其他记录（我必须使用滚动条）。这可能会使用户混淆，认为没有其他记录。
是否可以转到最后一条记录并查看最后 10 条记录？
出于安全原因，我想在数据库中创建一个自销毁按钮。我需要修改我的代码，以便它可以在我的所有表，查询，表单，报告，模块中循环并删除它们。如果发生错误，请移至下一个。
现在，我使用以下代码，这是一个示例：
On error Resume Next
DoCmd.DeleteObject acTable, "tblExtra"
DoCmd.DeleteObject acTable, "tblFinances"
DoCmd.DeleteObject acTable, "tblHealth"
....
如您所见，我正在为每个要删除的项目使用DoCmd.DeleteObject。
谢谢。
我正在使用Ms和一个带有10个复选框的表单和一个按钮.用户可以从1到10个复选框进行检查.每个复选框代表一个单词.我需要一个代码循环到1到10的所有复选框,并给我一个字符串,以便我可以解析它有一个模块.
Private Sub cmdOK_Click()
Dim str1, str2, str3, str4, str5 As String
Dim strString As String
If chB1 = True Then
str1 = "111 - "
End If
If chB2 = True Then
str2 = "222 - "
End If
If chB3 = True Then
str3 = "333 - "
End If
If chB4 = True Then
str4 = "444 - "
End If
If chB5 = True Then
str5 = "555 - "
End If
strString = str1 & …我在FrontEnd和BackEnd中拆分了一个数据库。
我正在运行它：i）在我的办公室中ii）在我的个人计算机中进行更新/测试。
根据计算机的运行，我的BackEnd文件在不同的文件夹位置中运行。
我想放置一个代码，并检查文件是否存在。
码：
Sub FileExists()
Dim strPath As String '<== Office.
Dim strApplicationFolder As String
Dim strPathAdmin As String '<== Admin.
strPath = "\\iMac\Temp\"
strApplicationFolder = Application.CurrentProject.Path
strPathAdmin = strApplicationFolder & "\Temp\"
If Dir(strApplicationFolder & "SerialKey.txt") = "" Then
'===> Admin User.
If Dir(strPathAdmin & "*.*") = "" Then
'===> Empty Folder.
Else
'===> Files on folder.
End If
Else
'===> Office User.
If Dir(strPath & "*.*") = "" Then
'===> Empty Folder.
Else
'===> Files on folder. …