小编Fio*_*ala的帖子

MS Access:如何使用其他两个字段更新字段?

我有一个包含3个字段的访问数据库表:

  • 购买日期
  • 保修时间
  • 保修期满

保修时间分别为1,2,3,4,5,相当于年份.

如何通过查看"购买日期"然后添加"保修时间"(保修时间为1 = 365天,2 = 730天)来自动填充"保修到期"字段(这是一个日期字段)等)?

ms-access

3
推荐指数
2
解决办法
1536
查看次数

只返回空字段的行?

我有一个表,其中一个字段可以为空.我试图只返回这个字段为空的行.但是我一直在做WHERE field =""...... WHERE field =''...... WHERE field = null

我缺少什么想法?

sql ms-access

3
推荐指数
1
解决办法
5万
查看次数

通用列表中的Orderby

我有一个通用列表,我从另外两个列表中形成.orderby似乎没有正常工作.BeOrders首先(按日期排序)然后是BTOrders(按日期排序).我错过了一些明显的事吗?我看不出有什么不对劲.

orders = new List<DataLayer.OrderStatusItem>();
orders.AddRange(BeOrders);
orders.AddRange(BTOrders);

orders.OrderBy(z => z.ordered);
Run Code Online (Sandbox Code Playgroud)

c# generic-list

3
推荐指数
2
解决办法
2883
查看次数

如何在MS-Access中显示分为1行的3条记录?

我希望table1中的数据显示在MS access 2000中的表中

| contact_id | name                           | contact_type | 
| 297        | Primary Properties Corporation | Supplier     |
| 297        | Primary Properties Corporation | Prospect     |
| 297        | Primary Properties Corporation | Customer     |
| 298        | San Miguel Corporation         | Prospect     |
| 301        | Sulpicio Lines                 | Supplier     |
Run Code Online (Sandbox Code Playgroud)

我希望它返回:

| contact_id | name                           | contact_type    
|  297       | Primary Properties Corporation | Supplier, Prospect, Customer |
|  298       | San Miguel Corporation         | Prospect …
Run Code Online (Sandbox Code Playgroud)

sql ms-access

3
推荐指数
1
解决办法
112
查看次数

正则表达式为7位数后跟可选的3个字母

我是正则表达式的新手,我正在尝试使用正则表达式验证数据库中的收据编号.

我们的收据可以采用以下格式:

  • 0123456(Manditory七位数,不多也不少)
  • 0126456a(带一个字母az的七位数)
  • 0126456ab(两位字母az的七位数)
  • 0126456abc(带三个字母az的七位数)

我尝试过使用一堆不同的正则表达式组合,但似乎都没有.现在我有:

(\d)(\d)(\d)(\d)(\d)(\d)(\d)([a-z])?([a-z])?([a-z])?
Run Code Online (Sandbox Code Playgroud)

但这允许超过七位数,并允许超过3个字母.

这是我在Access 2010中的VBA函数,它将验证表达式:

Function ValidateReceiptNumber(ByVal sReceipt As String) As Boolean

    If (Len(sReceipt) = 0) Then
        ValidateReceiptNumber = False
        Exit Function
    End If

    Dim oRegularExpression     As RegExp

'   Sets the regular expression object
    Set oRegularExpression = New RegExp

    With oRegularExpression
'   Sets the regular expression pattern
        .Pattern = "(\d)(\d)(\d)(\d)(\d)(\d)(\d)([a-z])?([a-z])?([a-z])?"

'   Ignores case
        .IgnoreCase = True

'       Test Receipt string
        ValidateReceiptNumber = .Test(sReceipt)

    End With
End Function
Run Code Online (Sandbox Code Playgroud)

regex ms-access vba

3
推荐指数
2
解决办法
8281
查看次数

Ms-Access:加入3个表

有没有人有一个如何连接3个表的例子,我有以下语句,但我得到一个缺少a(语法错误"操作员错误")

da = New OleDbDataAdapter("SELECT [S].[Scheduled Vege], [V].[Description], 
        [DS].[Task], [DS].[Task Date], [DS].[Completed] FROM [Scheduled] AS S 
        INNER JOIN [Date Schedules] AS DS ON [S].[SchedID] = [DS].[SchedID] 
        INNER JOIN [Vegetables Descriptions] AS V ON [V].[Task] = [DS].[Task] 
        WHERE [DS].[TaskNumber] >= " & aFromDate & " AND [DS].[TaskNumber] <= " & aToDate & " 
        AND [DS].[Completed] = '" & aCompleted & "' ", conn)
Run Code Online (Sandbox Code Playgroud)

谢谢

vb.net ms-access

2
推荐指数
1
解决办法
3057
查看次数

在Sql中使用MS Access的数学函数

我使用MS Access在SQL View中设计了一个查询:

select floor(num1) from t1;
Run Code Online (Sandbox Code Playgroud)

当我运行它时,我得到"未定义的功能层".

我得到类似的错误了Ceil,Mod,Power,Sign,Sqrt,Trunc,和initcap功能.

Access数据库引擎的SQL语法是否具有相同的功能?

sql ms-access ms-access-2007 ms-jet-ace

2
推荐指数
1
解决办法
1万
查看次数

访问:移至下一条记录,直到EOF

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

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

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

DoCmd.GoToRecord , , acNext
Run Code Online (Sandbox Code Playgroud)

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

DoCmd.RunCommand acCmdRecordsGoToNext
Run Code Online (Sandbox Code Playgroud)

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

Me.Recordset.MoveNext
Run Code Online (Sandbox Code Playgroud)

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

ms-access vba

2
推荐指数
1
解决办法
10万
查看次数

VBA抛出'else without if'错误

我正在尝试以下代码,并反复抛出'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 < …
Run Code Online (Sandbox Code Playgroud)

excel vba if-statement

2
推荐指数
1
解决办法
2719
查看次数

如何显示magento联系页面面包屑?

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

breadcrumbs magento

2
推荐指数
1
解决办法
5059
查看次数