[求助]请教为什么总是出错

羽佳

我是个新手，这两天做了个通讯录，照着本站的新书《Access数据库系统开发从础到实践》的一段代码想做一个照片输入，可是老出错，现在把MDB文件附上，请高手看一下指点指点，我看了两天都不明白。



代码如下

Private Function getfilename() As String
'引用microsoft office 10/11 object library
'获取bmp/jpg图片文件的路径
Dim result As Integer
    With Application.FileDialog(msoFileDialogFilePicker)
        .Title = "请选择联系人的照片"
        .Filters.Add "JPEGs", "*.jpg"
        .Filters.Add "位图文件", "*.bmp"
        .FilterIndex = 2
        .AllowMultiSelect = False
        result = .Show
            If (result <> 0) Then
                getfilename = Trim(.SelectedItems.Item(1))
            End If
    End With
End Function
Private Sub 添加照片_click()
    Dim strpicpath As String
        strpicpath = getfilename()
            If strpicpath <> "" Then
                FEmpPhoto.SourceDoc = strpicpath
                FEmpPhoto.Action = acOLECreateEmbed
            End If
End Sub
Private Sub 删除照片_click()
    FEmpPhoto.Value = ""
End Sub

[此贴子已经被作者于2006-4-13 18:24:36编辑过]

羽佳

有没有人能帮帮一个无助的新手啊~

fan0217

引用microsoft office 10/11 object library没有?

fan0217

给你改了改:

羽佳

谢谢.我下载了您帮我修改过后的文件，我不些地方不是很明白，不知道能否讲解一下？

第一个就是修改后的文件增了一个模块，这个模块起到什么样的作用

第二个就是显示图片的那个框架是不是工具里的图片制作的？怎么制作？一定要这样做才可以显示出图片吗？

因为我是个新手，问的问题对您来说可能是很初级的问题，还望您解答一下，可以吗？

[此贴子已经被作者于2006-4-13 20:05:21编辑过]

fan0217

1.那个模块没有用,可能无意时添加上去了,请把它删除.

2.那个是图像框,专门用于显示图片的.

羽佳

那个图像框如何制作？我怎么每次制作的时候它都要我选一个图片文件，如果没选它就消失了呢？

fan0217

在工具箱中有

羽佳

哦，谢谢，我再去仔细找找看，如果实在找不到我再请教您。

小鸡快跑

到没到5分钟哦，我要发帖