MS Excel UserForm With Database Macros Project

Review Rating
Click to rate this post!
[Total: 3 Average: 5]

MS Excel UserForm With Database Macros Project

Preview MS Excel UserForm With Database Macros Project

MS Excel UserForm With Database Macros Project VedantSri Varanasi

UserForm Coding

Dim fpath As String
Private Sub CommandButton1_Click()
Dim x As Integer
Application.FileDialog(msoFileDialogOpen).AllowMultiSelect = False
x = Application.FileDialog(msoFileDialogOpen).Show
If x <> 0 Then
fpath = Application.FileDialog(msoFileDialogOpen).SelectedItems(1)
Image1.Picture = LoadPicture(fpath)
Image1.PictureSizeMode = 1
End If
End Sub

Private Sub CommandButton2_Click()
Dim x As Long
Dim y As Worksheet
Set y = Sheet2
x = y.Range("A" & Rows.Count).End(xlUp).Row
With y
.Cells(x + 1, "A").Value = TextBox1.Text
.Cells(x + 1, "B").Value = TextBox2.Text
.Cells(x + 1, "C").Value = TextBox3.Text
.Cells(x + 1, "D").Value = TextBox4.Text
.Cells(x + 1, "E").Value = TextBox5.Text
.Cells(x + 1, "F").Value = TextBox6.Text
.Cells(x + 1, "G").Value = ComboBox1.Text
.Cells(x + 1, "H").Value = ComboBox2.Text
.Cells(x + 1, "I").Value = TextBox7.Text
.Cells(x + 1, "J").Value = TextBox8.Text
.Cells(x + 1, "K").Value = TextBox9.Text
.Cells(x + 1, "L").Value = TextBox10.Text
.Cells(x + 1, "M").Value = TextBox11.Text
End With
On Error Resume Next
Dim i As String
i = TextBox1.Text
FileCopy fpath, "C:\vedantsri\" & i & ".jpg"
Me.TextBox1.Text = ""
End Sub

Private Sub UserForm_Initialize()
TextBox1 = Application.WorksheetFunction.Max(Sheet2.Range("a2:a1000")) + 1
End Sub

Show Form Button Coding

Sub RectangleRoundedCorners1_Click()
UserForm1.Show
End Sub

About VedantSri

Top 17 Internet Question Answers

VedantSri Computer Institute provides the best Computer Courses, Classes, and Training in Varanasi. There is NEILIT Courses CCC, BCC, O’level, Certificates, and Diploma Computer Courses available with the best training materials. Also Available Top 100 Best Computer Courses, For Example, OMDCAADCADTPDFAADAMADTP, ADFA, DCEMS Office. VedantSri Computer Coaching update CCC Online Test 2019 in vedantsri.net. (MS Excel UserForm With Database Macros Project)

There are some important computer Courses for jobs CCC ClassTyping, Internship, And Spoken English Available Free of cost with Offer. More than 50 Computer Courses which are available with a 50% Fee Discount in VedantSri Varanasi. You can get the Best Digital Marketing Course in Varanasi Institute VedantSri. There is Latest Computer Course Offer in ADCA Computer Course, DCA Computer Course, CCC Computer Course & English Spoken. (MS Excel UserForm With Database Macros Project)

About CCC Online Test 2020

MS-Word Online Test 2019:- This is the CCC Online Test Website Page. If You are preparing for CCC Exam or any competitive exam then you should visit on this www.vedantsri.net website.you can also download this app from the play store and you find Just like many more Online Test Series Related For Example MS Word, MS Excel, MS PowerPoint, Internet-related. This is Provided By VedantSri Computer Institute in Varanasi. The VedantSri Provides Best Computer Classes, Courses, Coachings, and Computer Training in Varanasi Uttar Pradesh India. ( MS Excel UserForm With Database Macros Project )

Important Links

1-VedantSri Official Website:- https://vedantsri.com

2-VedantSri Student Website:- https://vedantsri.net

3-Students Jobs Assist Website:- https://www.jobdo.in

4-Best Deal on IT Website:- https://www.computeritpoint.com

Leave a Reply