做了个简单的access仓库管理系统

海军中士2013 · 发表于 2013-4-20 09:21

美女，能不能把vba密码告诉我一下哈！谢谢哈，实例不能解决问题，关键是要知道代码，谢谢了，美女

海军中士2013 · 发表于 2013-4-20 09:22

跪求vba工程密码，谢谢了，没有vba什么都做不了呀

cathylu1983 · 发表于 2013-4-20 10:17

可是我自己都忘记了耶

海军中士2013 · 发表于 2013-4-21 16:46

美女，不会吧，没有vba密码怎么弄呀，关键是想看看vba的代码呀，求求美女，仔细想想嘛！谢谢了哈

海军中士2013 · 发表于 2013-4-21 16:48

美女，那你能不能打开vbe编辑窗口嘛，然后把代码给复制过来呀，谢了哈，我想看看代码！当然，可以有偿提供，怎么样！？

amesman · 发表于 2013-4-22 09:10

确定有些简陋，不过共享精神值得肯定。
另：宏并没有加密啊。。。

Fei●坏 · 发表于 2013-5-27 11:43

看来需要安装2007啦

tianrenshui1988 · 发表于 2013-9-21 21:56

下载学习下，谢谢LZ分享

hifeng666 · 发表于 2013-10-11 13:02

最近刚接手一个小仓库

mfs135135 · 发表于 2013-10-21 09:20

Option Compare Database

Private Sub Command19_Click()
Form![设备号] = " "
Me![入库时间] = ""
Me![供应商] = ""
Me![供应商电话] = ""
Me![入库数量] = ""
Me![价格] = ""
Me![采购员] = ""
End Sub

Private Sub Command23_Click()
Dim crudb As Database
Dim crus As Recordset
Dim device As Integer
Set crudb = CurrentDb
Set crus = crudb.OpenRecordset("select * from device where 设备号='" & 设备号.Value & "'")
If Not crus.EOF Then
device = crus.Fields("现有库存")
device = device + CInt(入库数量.Value)
ALL = crus.Fields("总数")
ALL = ALL + CInt(入库数量.Value)

crudb.Execute "update device set 现有库存=" & device & ", 总数=" & ALL & " where 设备号='" & 设备号.Value & "'"
Else

With crus
.AddNew
.Fields("设备号") = 设备号.Value
.Fields("现有库存") = CInt(入库数量.Value)
.Fields("最大库存") = 200
.Fields("最小库存") = 100
.Fields("总数") = CInt(入库数量.Value)
.Update
End With

DoCmd.GoToRecord , , acNewRec
End If
End Sub

		自动登录	找回密码
密码			免费注册

[原创] 做了个简单的access仓库管理系统