Access交流中心

北京 | 上海 | 天津 | 重庆 | 广州 | 深圳 | 珠海 | 汕头 | 佛山 | 中山 | 东莞 | 南京 | 苏州 | 无锡 | 常州 | 南通 | 扬州 | 徐州 | 杭州 | 温州 | 宁波 | 台州 | 福州 | 厦门 | 泉州 | 龙岩 | 合肥 | 芜湖 | 成都 | 遂宁 | 长沙 | 株洲 | 湘潭 | 武汉 | 南昌 | 济南 | 青岛 | 烟台 | 潍坊 | 淄博 | 济宁 | 太原 | 郑州 | 石家庄 | 保定 | 唐山 | 西安 | 大连 | 沈阳 | 长春 | 昆明 | 兰州 | 哈尔滨 | 佳木斯 | 南宁 | 桂林 | 海口 | 贵阳 | 西宁 | 乌鲁木齐 | 包头 |

在窗体按钮语法中,从文本框中取值出错,求解!

随心飞去  发表于:2020-12-06 16:56:17  
复制

请教各位老师,下面语法中赋值,想从窗体上的文本框中取值,但却一值不得要领,请各位老师不惜赐教。

--------------------------------------------------------------------------------------------------------------

A4这个值 想从文本框ME.TEXT6中取得;P60000这个值从文本框中ME.TEXT10中取得

-----------------------------------------------------------------------------------------------------------------------

语句如下:

Set xlSheet = xlBook.Worksheets(3) '

xlSheet.Range("A4", "P60000").ClearContents  

Me.工程设备材料限额领料台帐.Form.Recordset.MoveFirst 

xlBook.Worksheets(3).Range("A4").CopyFromRecordset Me.工程设备材料限额领料台帐

------------------------------------------------------------------------------

把上面二条语法中取值xlSheet.Range("A4", "P60000").ClearContents;换成 xlSheet.Range("Me.Text6", "Me.Text10").ClearContents却总是出错

把xlBook.Worksheets(3).Range("A4").CopyFromRecordset Me.工程设备材料限额领料台帐;换成xlBook.Worksheets(3).Range("Me.Text6").CopyFromRecordset Me.工程设备材料限额领料台帐 也总是出错

各位老师,应怎样书写才能成立呢?现请各位老师赐教。

 

Top
随心飞去 发表于:2020-12-07 16:46:21

顶一下,期待各位教师解惑



欧志华 发表于:2020-12-11 08:44:22

Excel单元格的格式应该是Range("A4:P6000)
("A4","P6000")你这个明显格式Range不正确,
Me.text6 也不知道是什么



西出阳关无故人 发表于:2020-12-11 09:34:47

试一下:

xlSheet.Range(Me.Text6 & ":" & Me.Text10)



leoyoung 发表于:2020-12-11 19:57:48

窗体对象呢?

假设这个窗体的名称:UserForm1

则:

rng1 = UserForm1.TextBox6.Text
rng2 = UserForm1.TextBox10.Text
xlSheet.Range(rng1, rng2).ClearContents  




随心飞去 发表于:2020-12-13 15:27:11
四楼的方法行不通

随心飞去 发表于:2020-12-13 15:39:52


随心飞去 发表于:2020-12-13 15:50:49


xlSheet.Range(Me.Text6 & ":" & Me.Text10)


按3楼老师的方法,出现"编译错误,属性的使用无效"




leoyoung 发表于:2020-12-14 08:33:19
要理解的用,控件名称我是TextBox6,你是Text6,相应的替换一下!

西出阳关无故人 发表于:2020-12-14 09:00:45
发实例看看?

西出阳关无故人 发表于:2020-12-21 12:34:02

excel2007,用户窗体测试没有问题,其中TextBox1和TextBox2为窗体的文本框控件,CommandButton1为按钮

Private Sub CommandButton1_Click()
Sheets(4).Range(Me.TextBox1 & ":" & Me.TextBox2).ClearContents
End Sub

其中TextBox1和TextBox2必须输入"A1"式样的单元格地址






总记录:10篇  页次:1/1 9 1 :