2018年01月_低调的嚣张的程序员

转载怎样拼接删选语句DCOUNT和DSUM都用得到

Private Sub cmd_Select_Click()Dim strWhere1, strWhere2 As StringstrWhere1 = ""strWhere2 = ""If Not IsNull(Me.销售订单号) Then strWhere1 = strWhere1 & "销售订单号 like '*" & Me.销售订单号 & "*' and "

2018-01-29 15:49:49 416

原创两个EXCEL文件通信实例

按钮代码Private Sub 一键输出报表技术_Click() '------------------------------------------------------------------------------------- '功能说明 '-----------------------------------------------------------

2018-01-26 22:28:03 597

原创怎样在出现错误的时候输出提示信息Err,然后清空对象

ExitHere: Set rst = Nothing Set cnn = Nothing Exit SubErrorHandler: RDPErrorHandler Me.Name & ": Sub btnSave_Click()" Resume ExitHereEnd Sub根据错误号的信息输出 If Err =

2018-01-26 20:29:02 790

原创一键输出数据库表格到EXCEL

Private Sub 生产一部格式_Click() Dim ord_path, fname As String Dim EXL As Object fname = CStr(Date) fname = "生产一部" & Replace(fname, "/", "") ord_path = CurrentProject.Pa

2018-01-26 15:17:08 306

转载 Access中如何用代码建立小数decimal(18,2)类型的字段

在Access中用代码建立表和字段，通常用DAO的方式。如： Dim dbs As DAO.Database Dim tdf As DAO.TableDef Dim fld As DAO.Field Set dbs = CurrentDb Set tdf = dbs.CreateTableDef("表1") Set fld = tdf

2018-01-24 15:23:14 4679

转载刷新Access的对象列表

做一个小功能的时候，用代码自动创建表和查询，但是创建后的对象没有显示出来，窗体中可以用Requery去刷新，对象列表要怎么刷新呢？其实下面这行代码就行了Application.RefreshDatabaseWindow

2018-01-24 12:30:01 1275

转载根据主窗体大小调整子窗体的宽度

Private Sub Form_Resize() Me.frm_RuKu_TMP.Width = Me.InsideWidth' Me.frm_RuKu_TMP.Height = Me.InsideHeight - Me.Section(acHeader).Height - Me.Section(acFooter).HeightEnd Sub

2018-01-23 22:17:24 1311

转载 SQL日期函数

SQL日期函数SQL日期函数中的类型码可以为0,1,2,3，4,5,6,7，8,9，10,11,12,13,14 ,20,21,22,23,24,25，100,101,102,103,104,105,106,107,108,109,100, 110,111,112,113,114,120,121,126,127,130,131函数结果

2018-01-23 11:23:21 244

原创淘宝评论爬取

# encoding: utf-8# 上面这行代码主要是设置返回的文本格式的,非常重要import jsonimport requestsheaders={ 'user-agent':'Mozilla/5.0 (Windows NT 10.0; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/63.0.3239.132

2018-01-10 21:56:38 5136

转载 python字符串截取

str[0:5] 截取第一位到第四位的字符str[:] 截取字符串的全部字符str[4:] 截取第五个字符到结尾str[:-3] 截取从头开始到倒数第三个字符之前str[2] 截取第三个字符str[::-1] 创造一个与原字符串顺序相反的字符串

2018-01-10 20:57:55 1077

转载 DOUCNT的妙用,精彩,真精彩(单条件多条件)DLookup的用法

Private Sub Form_Load() Dim rsc1, rsc2 As Integer rsc1 = DCount("name", "chs") rsc2 = DCount("*", "chs") If rsc < rsc2 Then MsgBox "name记录有空值:" & rsc2 - rsc1 & "条&quo

2018-01-09 22:42:28 883

原创 access vba 用代码隐藏隐藏左边导航栏

Private Sub 隐藏工具栏_Click() DoCmd.SelectObject acForm, , True DoCmd.RunCommand acCmdWindowHideEnd SubPrivate Sub 不隐藏工具栏_Click() DoCmd.SelectObject acForm, , True' DoCmd.RunCo

2018-01-09 21:36:45 4468

转载 access询问对话框

有时，需要根据用户根据提示信息的选择，来执行不同的代码，这时就需要用到MsgBox函数。例如：当我们需要退出系统时，需要提示操作员是否需要退出，具体示例代码如下：If MsgBox("您是否退出系统?", vbOKCancel + vbInformation, "提示") = vbOK Then '退出系统 DoCmd.Quit Else

2018-01-09 21:06:03 1311

原创设置窗体文本框的默认值

加载时间:DefaultID = DLookup("id", "tbltest", "Default=true")*****************************↓*****************************其实也就是在加载的时候在表格里找到Default=true,的叫id的值*****************************↑************

2018-01-09 20:20:23 6061

原创 DAO

'新增保存Dim rst As ADODB.RecordsetDim strSQL As StringSet rst = New ADODB.RecordsetstrSQL = "select * from tblcode_lj"rst.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimisticrst.A...

2018-01-09 16:44:33 481

转载 pyhon转义字符

在需要在字符中使用特殊字符时，python用反斜杠(\)转义字符。如下表：原始字符串有时我们并不想让转义字符生效，我们只想显示字符串原来的意思，这就要用r和R来定义原始字符串。如：print r'\t\r'实际输出为“\t\r”。转义字符描述\(在行尾时)续行符\\反斜杠符

2018-01-06 12:51:49 268

低调的嚣张