Access可以通过绑定记录源，在窗体中添加数据直接录入到表格，也可以通过下面几种方法：

用SQL语句添加记录《Access窗体添加记录》

用ADO添加记录【新手入门】-Access添加记录

用DAO添加窗体记录：

  

   

    

     

    
    

     

      Dim Db As DAO.Database
     
    
   

    

     

    
    

     

          Dim Rs As DAO.Recordset
     
    
   

    

     

    
    

     

          Set Db = CurrentDb()
     
    
   

    

     

    
    

     

          Set Rs = Db.OpenRecordset("学生信息", dbOpenDynaset)
     
    
   

    

     

    
    

     

          '新增记录
     
    
   

    

     

    
    

     

          Rs.AddNew
     
    
   

    

     

    
    

     

              Rs!ID = Me!ID
     
    
   

    

     

    
    

     

              Rs!姓名 = Me!姓名
     
    
   

    

     

    
    

     

              Rs!性别 = Me!性别
     
    
   

    

     

    
    

     

              Rs!出生日期 = Me!出生日期
     
    
   

    

     

    
    

     

             
     
    
   

    

     

    
    

     

          If IsNull(ID) Then
     
    
   

    

     

    
    

     

              MsgBox "没输入主键"
     
    
   

    

     

    
    

     

          Else
     
    
   

    

     

    
    

     

              '更新记录
     
    
   

    

     

    
    

     

              Rs.Update
     
    
   

    

     

    
    

     

              MsgBox "新增成功"
     
    
   

    

     

    
    

     

          End If
     
    
  
 

Access函数的调用

Access内置函数库能轻松解决很多问题。如果没有此函数，我们可以自定义函数来处理问题。

这里我们说说如何调用函数。调用内置函数和自定义函数方法是一样的。

一.创建自定义函数

在VBE视图下，插入-模块，新建一个模块后，键入以下函数。一个累加的函数。

  

   

    

     

    
    

     

      Public Function leijia(n As Integer)
     
    
   

    

     

    
    

     
 
     
    
   

    

     

    
    

     

       Dim i As Integer
     
    
   

    

     

    
    

     

       Dim y As Long
     
    
   

    

     

    
    

     
 
     
    
   

    

     

    
    

     

       y = 0
     
    
   

    

     

    
    

     

       For i = 1 To n
     
    
   

    

     

    
    

     

       y = y + i
     
    
   

    

     

    
    

     

       Next
     
    
   

    

     

    
    

     

       leijia = y
     
    
   

    

     

    
    

     

      End Function
     
    
  
 

二.调用函数

1.在查询中调用函数

可以在查询中直接调用，如Now(),year()等函数，也可以调用自定义函数

SELECT 表1.aaa,date() as 今天, leijia(5) AS 累加 FROM 表1;
 

2.在窗体报表中调用函数

在窗体和报表中调用函数是一样的，只需要引用函数即可

  

   

    

     

    
    

     

      '按钮单击事件
     
    
   

    

     

    
    

     

      Private Sub Command2_Click()
     
    
   

    

     

    
    

     

        MsgBox leijia(Text0)
     
    
   

    

     

    
    

     

      End Sub
     
    
  
 

或者直接（=函数）填入参数即可获取到值。

http://www.office-cn.net/access-vb/301.html

文章来源: blog.csdn.net，作者：网奇，版权归原作者所有，如需转载，请联系作者。

原文链接：blog.csdn.net/jacke121/article/details/108557615