MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure cmdSupplier_Click of Form frmVendor"Įnd Sub This is the code for the close button Nextrow = Me.Controls("Vendor" & X).Value If WorksheetFunction.CountIf(Sheet4.Range("C:C"), Me.Vendor1.Value) > 0 Then If Me.Controls("Vendor" & X).Value = "" Then Set nextrow = Sheet4.Cells(Rows.Count, 3).End(xlUp).Offset(1, 0)
Okay well he is the code and don’t forget to watch the video. I like the look of them that it may not be your cup of tea. I’m more than happy to send you a copy of these icons if you pop me an email. Make sure that you save your images in the.JPG format. I simply created these icons with shapes/word art/and clipart in Microsoft Excel and then created an image with the snipping tool that Windows provides. You will notice that I have added icons for all the command buttons in the user forms in this application. The reason is that in our other user forms as an example the order user form we have approximately 90 controls and using this method we are able to execute those controls with less code and very effectively. Now you might be thinking that there’s not too many controls here just 9 of them why not refer to them individually and transfer their values? This will prevent any duplicates from occurring and being transferred to our database. You’ll notice in the middle of the code that we call a worksheet function Countif to check to see whether we have previously added this supplier. I use this three times in this procedure, firstly to check that the cells have value then to add the value and finally to clear the values once the procedure is completed. When you run the loop add a text string for each control called Vendor and add the variable X which stands for the variable in the loop this creates consecutive names for each control. You need to name each control the same and in this example we have used the name Vendor. I have used a that loops through each of the nine controls on the user form. I’m using a very different method here to move the data from our user form to the worksheet database. Here is the code to add that makes it all happen Watch this video for an overview of Order and Inventory Management Userforms Take a test drive and add our first userform to Orders and Inventory Order and Inventory Management: Userforms Plus + Part 2 No warranties are implied or given with this application. The application as is or modified in not permitted for sale in any form.
You are able to use this for your personal use. This application has been designed by Trevor Easton for training purposes.
0 kommentar(er)
