ACCESS-VBA编程 第四章 数据输入、查询、计算、连接3.docVIP

ACCESS-VBA编程 第四章 数据输入、查询、计算、连接3 第四章 数据输入、查询、计算、连接3 怎样使窗体一打开就定位到指定记录上定义了一个变量lngbh，要窗体打开时显示ID=Lngbh的这条记录。DoCmd.OpenForm formname, acNormal, , ID = LNGBH, acFormEdit, acWindowNormal使用API函数sendmessage，获得光标所在行和列。Sub getcaretpos(byval TextHwnd,LineNo,ColNo)注释：TextHwnd为TextBox的hWnd属性值， LineNo为所在行数，ColNo为列数dim I,j,k注释：获取起始位置到光标所在位置字节数 I=SendMessage(TextHwnd,HB0,0,0) j=I/2^16注释：确定所在行LineNo=SendMessage(TextHwnd,HC9,j,0)+1注释：确定所在列k=SendMessage(TextHwnd,HBB,-1,0)ColNo=j-k+1End sub如何在打开窗体时自动到相应记录用法:DoCmd.RunCommand acCmdRecordsGoToNewacCmdRecordsGoToFirst 移到第一条记录acCmdRecordsGoToLast 移到最后一条记录acCmdRecordsGoToNew 新增一条记录acCmdRecordsGoToNext 移到下一条记录acCmdRecordsGoToPrevious 移到上一条记录判断记录的位置来自：ACCESS中国 ysfme.Recordset.AbsolutePosition = 0 第一条记录me.Recordset.AbsolutePosition = me.Recordset.RecordCount -1 最后一条记录me.Recordset.AbsolutePosition=-1 第一条记录前 me.Recordset.bof=trueme.Recordset.AbsolutePosition=me.Recordset.RecordCount 最后一条记录后 me.Recordset.eof=trueme.Recordset.AbsolutePosition=n 第n+1条记录判断为是否新增记录me.newrecord=trueme.newrecord=false自动编号一：=IIf(Left(Nz(DMax([jhd_id],jinhuodan,),0),6)Format(Date(),yyyymm),Format(Date(),yyyymm) 001,Format(Date(),yyyymm) Format(Val(Right(Nz(DMax([jhd_id],jinhuodan,),0),3))+1,000))二：=nz(DLookUp(编号,登记表,[id]=DMax(id,登记表)))+1自动编号方法一按时间自动编号：dim a,b a=dmax([自动编号],编号表)+1b=format(date(),yyyymm) 00if ab thenme.自动编号=aelseme.自动编号=b+1end if方法二，按时间自动编号：Dim a As Stringa = Nz(DMax(销售单号, 销售帐单, ), 0)If Left(a, 6) Format(Date, yyyymm) Then销售单号 = Format(Date, yyyymm) 01Else销售单号 = Format(Date, yyyymm) Format(Val(Right(a, 2)) + 1, 00)End If方法三，按月分类自动编号：Dim id, date2 As Stringdate2 = GF [部门代码] Format([入库日期], YYYYMM)id = DMax([rk编号], [入库单], [rk编号] Like date2 ???)If IsNull(id) ThenMe.RK编号 = date2 001ElseMe.RK编号 = date2 Format(CStr(CInt(Right(id, 3)) + 1), 000)End If按任意输入的日期值的年月自动编号Dim a, b, cc = Format(Me.凭证日期, yyyymm)b = Nz(c, 0) * 1000a = Nz(DMax([凭证号码], 凭证, format(凭证.凭证日期,yyyymm)=format([forms]![凭证录