• Home
 · 
• Custom Controls/Forms/Menus
 · 
• Simple yet understandable code that really works great all you have to do is setup a couple command

Simple yet understandable code that really works great all you have to do is setup a couple command

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

Rate Simple yet understandable code that really works great all you have to do is setup a couple command

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

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