小编vuy*_*182的帖子

我有一个包含列的表

  Prefix    |  CR
----------------------------------------
  g         |  ;#WR_1;#WR_2;#WR_3;#WR_4;# 
  v         |  ;#WR_3;#WR_4;#
  j         |  WR_2
  m         |  WR_1
  d         |  ;#WR_3;#WR_4;#   
  f9        |  WR_3

我想从CR列WHERE中检索数据,它具有最长的文本字符串,即在当前表中;#WR_1; #WR_2; #WR_3; #WR_4;#.我正在使用

SELECT max(len(CR)) AS Max_Length_String FROM table1 

但它重新回归

Max_Length_String
----------------------------------------
26

但我需要的不是长度(26),我想这样

Max_Length_String
----------------------------------------
;#WR_1;#WR_2;#WR_3;#WR_4;# 

我有下表.数据的唯一区别是suff,wt ; 其余的看起来都一样.

事情表

  Prefix  Baseletter  suff   CSCcode   Description  WT      BNO      BNO-CSCcode 

  EIGC    A5560        BGA    04020    blah1        0       5560      5560-04020
  EIGC    A5560        HEA    04020    blah2        17.9    5560      5560-04020

Mapp表

  BNO      BNO-CSCcode    EID    Description   

  5560      5560-04020   4005    blah1
  5560      5560-04020   4011    blah2

我正在尝试使用BNO-CSCcode内部连接它们以获得相应BNO的 EID .但我的查询返回重复.我得到4条记录,即使第一张表只有两条记录.

我的SQL查询:

SELECT 
  Things.Prefix ,
  Things.Baseletter,
  Things.suff,
  Things.CSCcode,
  Things.WT,
  Mapping.BNO-CSCcode,
  Mapping.EID 
FROM 
  Things 
  INNER JOIN Mapping ON Things.BNO-CSCcode = Mapping.BNO-CSCcode 

为什么我会得到这些副本,我该如何解决？

我有一个包含2个单选按钮的Access 2010表单.一个是和一个没有在选项组.如何获得所选值？

ie - 用户是否选择是或否,使用VBA.

我有两个与sharepoint列表链接的表.我在访问数据库中有一个表单,每次表单加载链接到sharepoint列表的表时都应自动刷新.

有没有在vba代码中执行此操作的方法？
我正在使用

 Application.DoCmd.TransferSharePointList acLinkSharePointList

每次加载表单时，我都想清空组合框。使用下面的代码

   Private Sub Form_Load()

   combo1.RowSource = ""

   End Sub

但 Combobax 并没有清空。

我在访问表单中有一个列表框。它包含18个项目。如何使用Access VBA将这些主题存储到数组中。

我有一个方法来重命名表列名称.

Public Function Rename_Column(tablename As String, oldcolumn As String, newcolumn As String)
  Dim dbs As Database, tdf As TableDef
  Set dbs = CurrentDb

  For Each tdf In dbs.TableDefs
    If tdf.Name = tablename Then
      For Each fld In tdf.Fields
        If fld.Name = oldcolumn Then
          fld.Name = newcolumn
        End If
      Next
    End If
  Next
  dbs.Close
End Function

我在其他程序中调用此函数

Public Sub querylistboxitems()
  Dim strTableName As String

  strTableName = "Table1"
  Call Rename_Column(strTableName, "old", "New")
End Sub

但它给出了一个错误"Byref参数类型不匹配"

我有下面的表格.我想基于相同的EID对列数据求和.

      EID        value  Description    

      1001        12.9     blah1
      1001        8.9      blah2
      1001        6.7      blah1
      1002        4.0      blah8
      1002        8.0      blah1
      1003        1.0      blah1
      1003        1.9      blah8
      ----
      ----
      Upto 1030

另一个系列开始于2001,2002,2003 ----- 2030.i想要基于相同EID的Value的总和

我想要它

       EID        value      

       1001        28.5
       1002        12.0     
       1003        2.9  
       ---         ----

如何在sql查询中指定.

我有一个数组ListBoxContents(),它将包含像'15','16','25'......最多10项的项目.我正在尝试检索Bnumber列中的数据,其中长度> 6的数据以及('15','16','25'...)开头,即列表框中指定的那些项目.并尝试查询这些列表框项目在哪里cql语句的cluase

表列Bnumber包含

 Bnumber
152
156
1523
16417
AA454
CC654
18A16
1826
18A16
25A76
54A16
54235A68

我的VBA代码

Private Sub arraywhere()
Dim qry As String 
Dim Size As Integer
Size = Form_Input_From.lstdigits.ListCount - 1
ReDim ListBoxContents(0 To Size) As String
ReDim LContents(0 To 30) As String       
Dim m As Integer    
For m = 0 To Size
    ListBoxContents(m) = Form_Input_From.lstdigits.ItemData(m)
Next m  


For m = 0 To Size
     qry = "SELECT col1,col2,Bnumber " & _
    "FROM table WHERE (Len([table].[Bnumber]))>6) AND …

我的示例 sql 查询

 SELECT EID,p,p1,p2,p3 FROM table 1 GROUP BY EID;

给出的错误不是聚合函数的一部分。我想仅按EID进行分组，而不是按所有其他p,p1,p2,p3进行分组。我如何在 sql 查询中指定它。