أختيار/تحميل عدة الصور بكليك انقر واحد

[Ibrahim IQ]

السلام عليكم ورحمة الله وبركاته

انا بحاجة الى اختيار كل الصور حسب ID الطالب ب كليك واحد

عند كليك على زر اختيار الصور سيضاف كل الصور الى القاعدة ... مثلا صور رقم واحد سيضاف الى الطالب اي دي 1 .... بدلا واحد بواحد

ولكم جزيل الشكر .... تحياتي

Uploading Picture.rar

[jjafferr]

وعليكم السلام

 

جرب هذا التعديل في كودك ، واللي بيعطيك اسماء جميع الملفات

Private Sub Command29_Click()
    
With Application.FileDialog(3)
.Title = "Uploading picture : Uploading Picture"
.Filters.Clear
.Filters.Add "Image type", "*.jpg"
.Filters.Add "All types", "*.*"
.AllowMultiSelect = True
.InitialFileName = ""
If .Show = -1 Then
'Me.swra = .SelectedItems(1)

         'Loop through each file selected and add it to our list box.
         For Each varFile In .SelectedItems
            'Me.FileList.AddItem varFile
            MsgBox varFile
         Next

    
End If
End With
End Sub

 

جعفر

[Ibrahim IQ]

1 ساعه مضت, jjafferr said:

وعليكم السلام

 

جرب هذا التعديل في كودك ، واللي بيعطيك اسماء جميع الملفات

Private Sub Command29_Click()
    
With Application.FileDialog(3)
.Title = "Uploading picture : Uploading Picture"
.Filters.Clear
.Filters.Add "Image type", "*.jpg"
.Filters.Add "All types", "*.*"
.AllowMultiSelect = True
.InitialFileName = ""
If .Show = -1 Then
'Me.swra = .SelectedItems(1)

         'Loop through each file selected and add it to our list box.
         For Each varFile In .SelectedItems
            'Me.FileList.AddItem varFile
            MsgBox varFile
         Next

    
End If
End With
End Sub

 

جعفر

شكرا استاذ جعفر على الرد السريع

انا اسف اعتقد سؤالي مش واضح .......

كل الصور في فولدر واحد واسماء الصور حسب اي دي الطالب

المطلوب : وضع جميع الصورة بكليك واحد تلقائيا أو فقط تكتب مسار فولدر الصورة تلقائيا وضع كل الصورة

مثلا : تكتب ديسك D و فولدر Swra تلقائيا يضاف صورة رقم 1 الى الطالب اي دي رقم 1 و صورة رقم 200 الى الطالب اي دي رقم 200

وكل هذه العملية بكليك واحد مش 200 مرة .....

تحياتي

[Shivan Rekany]

استاذن من استاذ جعفر

اليك هذه الاكواد
هذا للاضافة

Private Sub Command29_Click()
    Dim i As Integer
    Dim StMyPathPic As String
        DoCmd.GoToRecord , , acFirst
        For i = 0 To Me.Form.Count - 1
           StMyPathPic = Dir(CurrentProject.Path & "\" & "Image" & "\" & Me.ID & ".*")
                If StMyPathPic = "" Then
                        Me.swra = ""
                    Else
                        Me.swra = CurrentProject.Path & "\" & "Image" & "\" & StMyPathPic
                End If
            DoCmd.GoToRecord , , acNext
        Next i
End Sub

وهذا للحذف

Private Sub Command30_Click()
    Dim StSql As String
        StSql = "UPDATE Table1 SET Table1.swra = null;"
            DoCmd.SetWarnings False
                DoCmd.RunSQL (StSql)
            DoCmd.SetWarnings True
        Me.Form.Refresh
End Sub

Uploading Picture.zip

تم تعديل يناير 28, 2018 بواسطه Shivan Rekany

[Ibrahim IQ]

43 دقائق مضت, Shivan Rekany said:

استاذن من استاذ جعفر

اليك هذه الاكواد
هذا للاضافة

Private Sub Command29_Click()
    Dim i As Integer
    Dim StMyPathPic As String
        DoCmd.GoToRecord , , acFirst
        For i = 0 To Me.Form.Count - 1
           StMyPathPic = Dir(CurrentProject.Path & "\" & "Image" & "\" & Me.ID & ".*")
                If StMyPathPic = "" Then
                        Me.swra = ""
                    Else
                        Me.swra = CurrentProject.Path & "\" & "Image" & "\" & StMyPathPic
                End If
            DoCmd.GoToRecord , , acNext
        Next i
End Sub

وهذا للحذف

Private Sub Command30_Click()
    Dim StSql As String
        StSql = "UPDATE Table1 SET Table1.swra = null;"
            DoCmd.SetWarnings False
                DoCmd.RunSQL (StSql)
            DoCmd.SetWarnings True
        Me.Form.Refresh
End Sub

Uploading Picture.zip

شكرا اخي شفان و هذا المطلوب ..... زۆر زۆر سوپاس برا

اذا ممكن عندي سؤال اخر على هذا الموضوع :-

هل ممكن تغير مسار و اسم فولدر الصور عن طريق المستخدمين ؟ بمعنى اخر اسم فولدر الصور و مسارها لست و محدديين في مكان واحد . او القاعدة البيانات في ديسك D و فولدر الصور في ديسك E ؟

مثلا عن طريق Text box يدويا يحدد مكان و اسم فولدر الصور ؟

شكرا ... تحياتى

[Shivan Rekany]

35 دقائق مضت, Rebaz Bahram said:

هل ممكن تغير مسار و اسم فولدر الصور عن طريق المستخدمين ؟ بمعنى اخر اسم فولدر الصور و مسارها لست و محدديين في مكان واحد . او القاعدة البيانات في ديسك D و فولدر الصور في ديسك E ؟

مثلا عن طريق Text box يدويا يحدد مكان و اسم فولدر الصور ؟

يمكن لكن اولا القي نظرتا الى هذا الكود وجربه وبعدين اذا ماتريد هذه الطريقة سنجرب الطريقة التانية

Private Sub Command29_Click()
    With Application.FileDialog(4)
            .Title = "Uploading picture : Uploading Picture"
            .AllowMultiSelect = True
            .InitialFileName = ""
        If .Show = -1 Then
                For Each varFile In .SelectedItems
                    Dim i As Integer
                    Dim StMyPathPic As String
                        DoCmd.GoToRecord , , acFirst
                            For i = 0 To Me.Form.Count - 1
                                StMyPathPic = Dir(varFile & "\" & Me.ID & ".*")
                                    If StMyPathPic = "" Then
                                        Me.swra = ""
                                    Else
                                        Me.swra = varFile & "\" & StMyPathPic
                                    End If
                                DoCmd.GoToRecord , , acNext
                        Next i
                Next
            Else
                MsgBox "لم يتم اختيار اي مجلد"
        End If
    End With
End Sub

 

Uploading Picture1.zip

[Ibrahim IQ]

8 دقائق مضت, Shivan Rekany said:

يمكن لكن اولا القي نظرتا الى هذا الكود وجربه وبعدين اذا ماتريد هذه الطريقة سنجرب الطريقة التانية

Private Sub Command29_Click()
    With Application.FileDialog(4)
            .Title = "Uploading picture : Uploading Picture"
            .AllowMultiSelect = True
            .InitialFileName = ""
        If .Show = -1 Then
                For Each varFile In .SelectedItems
                    Dim i As Integer
                    Dim StMyPathPic As String
                        DoCmd.GoToRecord , , acFirst
                            For i = 0 To Me.Form.Count - 1
                                StMyPathPic = Dir(varFile & "\" & Me.ID & ".*")
                                    If StMyPathPic = "" Then
                                        Me.swra = ""
                                    Else
                                        Me.swra = varFile & "\" & StMyPathPic
                                    End If
                                DoCmd.GoToRecord , , acNext
                        Next i
                Next
            Else
                MsgBox "لم يتم اختيار اي مجلد"
        End If
    End With
End Sub

 

Uploading Picture1.zip

العمل رائع رائع شكرا جزيلا لك >>> و هذا المطلوب >>>> الله يحميك