标签: access
访问VBA在模块之间传递变量
我有两个模块.一个运行一个过程(各种查询等),另一个应该写入表,例如用户名,所做的更改等.
我已经成功编写了一个写入表的脚本和一个从表中读取的脚本.但是,我无法将该变量从一个传递到另一个.
例如,以下是尝试从子/函数读取"用户"值的代码 ReadSystemTbl()
Sub Testing()
Dim x As String
x = ReadSystemTbl("User")
MsgBox x
End Sub
以下是找到值并返回值的代码:
Public Function ReadSystemTbl(FindField As String)
Dim db As Database
Dim rs As Recordset
Dim SystemField As Field, SystemValue As Field
Dim results As String
Set db = CurrentDb()
Set rs = db.OpenRecordset("SystemTbl")
Set SystemField = rs.Fields("SystemField")
Set SystemValue = rs.Fields("SystemValue")
Do Until rs.EOF
If SystemField = FindField Then
results = SystemValue
End If
rs.MoveNext
Loop
End Function
推荐指数
解决办法
查看次数
失败插入Impala表WRITE访问至少一个HDFS路径
我试图插入Impala表.....
错误:AnalysisException:无法插入目标表(log_wf),因为Impala没有对至少一个HDFS路径的WRITE访问权限:hdfs:// Server:8020/desarrollo/data/des/log/log_wf
推荐指数
解决办法
查看次数
如何从then()函数中的Promise访问内容,在next then()函数中访问它
如何从then()函数中的Promise访问内容,在next then()函数中访问它.
我的问题大致通过以下代码解释.
someRandomPromiseFunction().then(function(theArray) {
var newProm = _.map(theArray, function(arrayItem) {
return new Promise(function(resolve, reject) {
resolve(arrayItem);
});
}
Promise.all(newProm).then(function(theArray) {
return theArray; // How do I access this in the next then() function
}).catch(function(err) {
return err;
});
}).then(function(theArray) {
console.log(theArray); // I need to access theArray from the Promise.all HERE
});
推荐指数
解决办法
查看次数
选择多个条件,
嗨,大家好
我对SQL这个网站也很陌生.
我有如下数据,我想选择火车"1101"故障"BTM死"以外的所有记录,这意味着只有记录1,3不会被选中.
*record* | *Train* | *Failure* |
1 | 1101 | BTM dead |
2 | 1101 | relay failure |
3 | 1101 | BTM dead |
4 | 2101 | relay failure |
5 | 2101 | BTM dead |
6 | 2101 | relay failure |
这是我试过的..
SELECT failure_table.record, failure_table.Train, failure_table.Failure
FROM failure_table
WHERE failure_table.Train <> 1101 And failure_table.Failure <> "BTM dead";但事实证明只有4,6记录被选中.
请问我有什么建议吗？会是什么声明？
谢谢!
推荐指数
解决办法
查看次数
为什么我需要在这个单词周围用括号在Excel VBA中运行SQL查询？
我有一个查询我在excel vba中运行.我正在尝试使用ADO库打开记录集.我在访问vba中运行此代码,它工作正常.当我尝试在excel VBA中执行它时,它无法打开记录集.一旦我在vz.Zone部分周围放置括号,它终于工作了,但在其他任何地方都不需要括号.我想弄清楚为什么这里需要这个.我已经看到,任何具有空格的列都不需要括号,或者对于保留关键字,这似乎不是.谁能对这个问题有所了解？我很感激帮助.
Cost = "SELECT vz.vendorID, [vz.Zone], cl.CountryName, V.VendorName" & _
" FROM ((VendorZones AS VZ INNER JOIN CountryList AS CL" & _
" ON VZ.CountryID = CL.CountryID) INNER JOIN Vendors AS V ON" & _
" VZ.VendorID = V.VendorID) WHERE CL.CountryName = 'Austria'"
推荐指数
解决办法
查看次数
如何使用cmd或powershell检查谁有权访问文件夹
我想问一下,如何使用CMD或Powershell检查谁可以访问服务器上某个目录中的子文件夹？
推荐指数
解决办法
查看次数
Java继承后受保护的成员会发生什么？
就像在C ++中一样，受保护的成员在私有继承中变得私有。所以我很困惑Java会发生什么。这里的访问说明符保持不变还是什么？喜欢
如果假设下面的代码存在，那么shiva仍将在classB内部保持受保护状态吗？我们可以在classC中再次使用它吗？
任何帮助将不胜感激。
package package1
class classA
{
protected shiva;
}
////////////////////////
import package1
package package2
class classB extends classA
{}
//////////////////////
import package2
class classC extends classB
{}
推荐指数
解决办法
查看次数
使用标题案例查询结果填充ComboBox
with TdmBCElections.Create(Self) do
begin
with dmBCElections, qryParties do
begin
SQL.Clear;
if rgpParty.ItemIndex = 0 then
SQL.Text := 'SELECT StrConv(P_Surname, 3), StrConv(P_Names, 3) ' +
'FROM Parties WHERE P_Type = "HEAD"'
else
SQL.Text := 'SELECT StrConv(P_Surname, 3), StrConv(P_Names, 3) ' +
'FROM Parties WHERE P_Type = "TEACHER"';
Open;
while not Eof do
begin
cmbDetails.Items.Add(qryParties['StrConv(P_Surname, 3)'] + ', ' +
qryParties['StrConv(P_Names, 3)']);
Next;
end;
end;
end;
上面的代码给出了以下错误消息:
当StrConv应用于它们时,如何调用表字段？
推荐指数
解决办法
查看次数
Symfony 4-如何从Controller到FormType访问变量
我的ListProductsController变量中有$ parentId。我想获取$ parentId值并在我的SearchProductType中使用它：
public function buildForm(FormBuilderInterface $builder, array $options)
{
$builder
->add('price',EntityType::class,[
'class'=>Product::class,
'choice_label'=>'price',
'choice_value'=>'price',
'placeholder'=>'Default',
'query_builder' => function (EntityRepository $er){
return $er->createQueryBuilder('product')
->innerJoin('product.category','c')
->addSelect('c')
->innerJoin('product.manorwomen','m')
->addSelect('m')
->where('c.parent_id=1')
},
'expanded'=>false,
'multiple'=>false
])
->add('submit',SubmitType::class)
;
}
c.parent_id必须等于控制器中的$ parentId
->where('c.parent_id=$parentId')
怎么做？
推荐指数
解决办法
查看次数