小编Fio*_*ala的帖子

我需要通过移动到记录集中的下一条记录来遍历表单.

我正在使用Form_Current事件来循环.我使用了几个陈述并且有不同的结果.

这个有时崩溃并给出错误消息:"你不能去指定的记录."

DoCmd.GoToRecord , , acNext

这个只有72个记录并停止.

DoCmd.RunCommand acCmdRecordsGoToNext

这个只有129个记录并停止.

Me.Recordset.MoveNext

尝试查找将转到下一条记录的指令,直到它到达文件结尾.我使用Access 2010(Access 2002 -2003文件格式mdb)作为前端.记录源是SQL Server 2008链接的视图.

我正在尝试以下代码,并反复抛出'else if if'和类似的错误.我只是无法弄清楚错误在哪里,因为每个if都被正确终止了.

这是代码:

Sub hra_macro()

Dim city As Boolean
Dim salary As Integer
Dim varHRA As Integer
Dim mimHRA As Integer
Dim maxHRA As Integer
Dim A As Integer
Dim B As Integer
Dim Rent As Integer

city = Range("b1").Value
salary = Range("b2").Value
Rent = Range("b3").Value

If city = True Then

varHRA = 0

    A = Rent - (salary / 10)
    B = salary * 0.5
    Do While varHRA < salary
        varHRA = varHRA + 1
            If (varHRA < …

我有一个记录rst2列/字段ID和Value.记录集有多行.在调试时,我可以使用以下语句在即时窗口中查看记录集第一行中的记录.

?rst.fields(0)
?rst.fields(1)

但我无法查看第2行或第100行的数据？

每当我尝试执行使用数据库"msaccess"的项目时,我都会收到此错误.错误是这样的

Server Error in '/' Application.

Could not find installable ISAM.

Description: An unhandled exception occurred during the execution of the current web request. Please review the stack trace for more information about the error and where it originated in the code. 

Exception Details: System.Data.OleDb.OleDbException: Could not find installable ISAM.

Source Error: 


Line 148:       // open DB Connection via OleDb
Line 149:       Connection = new OleDbConnection(sConnectionString);
Line 150:       Connection.Open();
Line 151:       
Line 152:   }

Source File: D:\excelsior\.Net Applications\TDAPP8-Web_Based_Bug_tracking_system\Web based Bug …

我很擅长在vba中使用类.我试图使用数组作为一个属性,其中数组的长度必须是可变的.我正在寻找一种方法来做到这一点,但我真的不明白这些属性是如何工作的.

所以我在类模块中定义我的数组

Private pTestArray() As String

以及获取和设置值的属性

Private Property Get TestArrayValue(index As Long) As String
    TestArrayValue = qTestArray(index)
End Property

Private Property Let ArrayValue(index As Long, strValue As String)
    pTestArray(index) = strValue
End Property

但是我找不到一种方法来重新调整阵列.任何线索？谢谢C.

我一直在寻找答案,因为有许多类似的问题,但没有找到这个特殊情况.

我有一个SQL服务器和一个访问文件(前端).此Access文件具有与SQL Server链接的链接表,每次尝试打开一个表时,都会出现一个询问用户和密码的提示.

好的,这是完美的,因为它(几乎)是我想要的行为.

此外,还有一个本地表,其中包含加密密码的用户/密码.每次用户打开文件时,他/她的传递都会被解密,我想打开一个连接,因此链接表不会要求传递.

有人知道如何编码这种连接吗？

提前致谢!

我是magento的新手.联系页面痕迹没有显示.我可以在magento联系页面中创建面包屑,但是痕迹会显示在所有页面上.

如果这里的一些专家帮助我解决这个问题会非常有帮助:我有一个循环来检查范围内的零值,问题是我不能避免错误'没有下一个'.也许这是使用End Sub的for循环的错误构造？谢谢.

For Each c In Range("B4:H4")

     If c.Value = 0 Then MsgBox "Wrong record!", vbExclamation
     End Sub
Next c

我正在将一些信息存储到我的Access数据库中,一个参数是一个BLOB字段,在这种情况下是一个图像,加载到Timage中.

我正在使用此代码来保存它:

var
AStream : TMemoryStream;
begin
AStream := TMemoryStream.Create;
  try
Image1.Picture.Graphic.SaveToStream(AStream);
AStream.Position := 0;
if Adotable1.Active then
begin
  Adotable1.Edit;
  TBlobField(Adotable1.FieldByName('Termograma')).LoadFromStream(AStream);
  Adotable1.Post;
end;
  finally
    AStream.Free;

adotable1.Append;
adotable1['Data']:= datetimepicker1.Date;
adotable1['Temax']:= edit4.Text;
adotable1['Temin']:= edit5.Text;
adotable1['Descrição da Posição']:= memo1.Text;
adotable1['Comentários']:= memo2.Text;
adotable1.Post;

但是我也通过点击"附加"部分中的相同按钮来存储其他信息.

当我按下保存按钮时,该信息不会存储在数据库中的相同ID中.

我该如何解决这个问题？

我是SQL的新手,并且正在使用Access 2013.我正在尝试构造一个CASE语句,该语句查看列中的值并为列中的每个记录分配一个类别编号.当我尝试运行我的代码时,我不断收到"遗失操作员"消息.我在下面列出了我的代码并感谢任何帮助.谢谢

SELECT P.REGISTRATION_NUMBER, P.DATA_INDICATOR, D.TERRITORY_ID, P.PRODUCT_NAME, P.JAN_13_TRX, P.DEC_12_TRX, P.NOV_12_TRX, P.OCT_12_TRX, P.SEPT_12_TRX, P.AUG_12_TRX, P.JULY_12_TRX, P.JUNE_12_TRX, P.MAY_12_TRX, P.APR_12_TRX, P.MAR_12_TRX, P.FEB_12_TRX, (P.JAN_13_TRX+P.DEC_12_TRX+P.NOV_12_TRX+P.OCT_12_TRX+P.SEPT_12_TRX+P.AUG_12_TRX+P.JULY_12_TRX+P.JUNE_12_TRX+P.MAY_12_TRX+P.APR_12_TRX+P.MAR_12_TRX+P.FEB_12_TRX) AS ROLLING_12 INTO ESTROGEL_WITH_ROLLING_12
FROM Ascend_presc_data AS P INNER JOIN Ascend_demo AS D ON P.REGISTRATION_NUMBER = D.REGISTRATION_NUMBER
WHERE (((P.DATA_INDICATOR)=1) AND ((P.PRODUCT_NAME)='ESTROGEL'))
(CASE 
WHEN P.ROLLING_12 > 199 THEN 10
WHEN P.ROLLING_12 > 99 THEN 9
WHEN P.ROLLING_12 > 49 THEN 8
WHEN P.ROLLING_12 > 19 THEN 7
WHEN P.ROLLING_12 > 9 THEN 6
WHEN P.ROLLING_12 > 4 THEN 5
WHEN P.ROLLING_12 …