by Jason Sweet (1 Submission)
Category: Custom Controls/Forms/Menus
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Thu 2nd October 2003
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
Simple yet understandable code that really works great all you have to do is setup a couple command buttons,a menu according to the code, and
VBcoders
End Sub
Private Sub mnuFileClose_Click()
Unload Me
End
End Sub
Private Sub mnuFileSave_Click()
Dim strMake As String
Dim strModel As String
Dim strYear As String
Dim strVin As String
Dim strFname As String
Dim strMname As String
Dim strLname As String
Dim strAddress As String
Dim strCity As String
Dim strState As String
Dim strZip As String
Dim strPhone As String
Dim strPhone2 As String
Dim strPrice As String
Dim strMake1 As String
Dim strModel1 As String
Dim strYear1 As String
Dim strVin1 As String
Dim strFname1 As String
Dim strMname1 As String
Dim strLname1 As String
Dim strAddress1 As String
Dim strCity1 As String
Dim strState1 As String
Dim strZip1 As String
Dim strPhone1 As String
Dim strPhone21 As String
Dim strPrice1 As String
strMake = InputBox("What is the Make?")
strModel = InputBox("What is the Model?")
strYear = InputBox("What is the year of the Model?")
strVin = InputBox("What is the Vehicle Identification Number from the Model?")
strFname = InputBox("What is the purchaser's First Name?")
strMname = InputBox("What is the purchaser's Middle Name?")
strLname = InputBox("What is the purchaser's Last Name?")
strAddress = InputBox("What is the purchaser's Street Address?")
strCity = InputBox("What is the purchaser's City?")
strState = InputBox("What is the purchaser's State?")
strZip = InputBox("What is the purchaser's Zip Code?")
strPhone = InputBox("What is the Purchaser's Phone Number?")
strPhone2 = InputBox("What is purchaser's alternate Phone Number?, 0 for none.")
strPrice = InputBox("How much did they pay for the vehicle?")
strMake1 = ("Make: " + strMake)
strModel1 = ("Model: " + strModel)
strYear1 = ("Year: " + strYear)
strVin1 = ("VIN: " + strVin)
strFname1 = ("First Name: " + strFname)
strMname1 = ("Middle Name: " + strMname)
strLname1 = ("Last Name: " + strLname)
strAddress1 = ("Address: " + strAddress)
strCity1 = ("City: " + strCity)
strState1 = ("State: " + strState)
strZip1 = ("Zip: " + strZip)
strPhone1 = ("Phone: " + strPhone)
strPhone21 = ("Alternate Phone: " + strPhone)
strPrice1 = ("Price $" + strPrice)
Open "c:\WareRiverAuto\sales.txt" For Append As #1
Write #1, strMake1, strModel1, strYear1, strVin, strFname1, strMname1, strLname1, strAddress1, strCity1, strState1, strZip1, strPhone1, strPhone21, strPrice1
Close #1
End Sub
Private Sub OLE1_Updated(Code As Integer)
End Sub
No comments have been posted about Simple yet understandable code that really works great all you have to do is setup a couple command. Why not be the first to post a comment about Simple yet understandable code that really works great all you have to do is setup a couple command.