http://www.vbex.ru/index.php?action=history&feed=atom&title=VBA%2FExcel%2FAccess%2FWord%2FData_Type%2FType
VBA/Excel/Access/Word/Data Type/Type - История изменений
2026-04-07T08:58:28Z
История изменений этой страницы в вики
MediaWiki 1.30.0
http://www.vbex.ru/index.php?title=VBA/Excel/Access/Word/Data_Type/Type&diff=1855&oldid=prev
в 16:33, 26 мая 2010
2010-05-26T16:33:00Z
<p></p>
<table class="diff diff-contentalign-left" data-mw="interface">
<tr style="vertical-align: top;" lang="ru">
<td colspan="1" style="background-color: white; color:black; text-align: center;">← Предыдущая</td>
<td colspan="1" style="background-color: white; color:black; text-align: center;">Версия 16:33, 26 мая 2010</td>
</tr><tr><td colspan="2" style="text-align: center;" lang="ru"><div class="mw-diff-empty">(нет различий)</div>
</td></tr></table>
http://www.vbex.ru/index.php?title=VBA/Excel/Access/Word/Data_Type/Type&diff=1856&oldid=prev
Admin: 1 версия
2010-05-26T12:48:22Z
<p>1 версия</p>
<p><b>Новая страница</b></p><div>==An Example of Using a Type Structure==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Type CompanyInfo<br />
SetUpID As Long<br />
CompanyName As String * 50<br />
Address As String * 255<br />
City As String * 50<br />
StateProvince As String * 20<br />
PostalCode As String * 20<br />
Country As String * 50<br />
PhoneNumber As String * 30<br />
FaxNumber As String * 30<br />
DefaultPaymentTerms As String * 255<br />
DefaultInvoiceDescription As String<br />
End Type<br />
Public typCompanyInfo As CompanyInfo<br />
Sub GetCompanyInfo()<br />
Dim strSubName As String<br />
Dim rst As ADODB.Recordset<br />
Set rst = New ADODB.Recordset<br />
rst.ActiveConnection = CurrentProject.Connection<br />
rst.Open "Select * from CompanyInfo", Options:=adCmdText<br />
With typCompanyInfo<br />
.SetUpID = rst!SetUpID<br />
.rupanyName = rst!CompanyName<br />
.Address = rst!Address<br />
.City = rst!City<br />
.StateProvince = rst!StateOrProvince<br />
.PostalCode = rst!PostalCode<br />
.Country = rst!Country<br />
.PhoneNumber = rst!PhoneNumber<br />
.FaxNumber = rst!PhoneNumber<br />
End With<br />
rst.Close<br />
Set rst = Nothing<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Create a new data type==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Option Explicit<br />
Type article<br />
artname As String<br />
price As Currency<br />
End Type<br />
Sub macro()<br />
Dim a As article, b As article<br />
a.artname = "Screw"<br />
a.price = 3.5<br />
b = a<br />
Debug.Print b.price<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Save type info to form==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Type CompanyInfo<br />
SetUpID As Long<br />
CompanyName As String * 50<br />
Address As String * 255<br />
City As String * 50<br />
StateProvince As String * 20<br />
PostalCode As String * 20<br />
Country As String * 50<br />
PhoneNumber As String * 30<br />
FaxNumber As String * 30<br />
DefaultPaymentTerms As String * 255<br />
DefaultInvoiceDescription As String<br />
End Type<br />
Public typCompanyInfo As CompanyInfo<br />
Sub PopulateControls()<br />
txtCompanyName.Value = Trim(typCompanyInfo.rupanyName)<br />
txtAddress.Value = Trim(typCompanyInfo.Address)<br />
txtCityStateZip.Value = Trim(typCompanyInfo.City) & ", " & _<br />
Trim(typCompanyInfo.StateProvince) & _<br />
" " & Format(Trim(typCompanyInfo.PostalCode), "!&&&&&-&&&&")<br />
txtPhoneFax.Value = "PHONE: " & _<br />
Format(Trim(typCompanyInfo.PhoneNumber), "(&&&)&&&-&&&&") & _<br />
" FAX: " & _<br />
Format(Trim(typCompanyInfo.FaxNumber), "(&&&)&&&-&&&&")<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==User-Defined Data Types==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Type Ledger<br />
Number As Integer<br />
Description As String<br />
Debit As Currency<br />
Credit As Currency<br />
Balance As Currency<br />
End Type<br />
Sub typeDemo()<br />
Dim ledgerRow As Ledger<br />
ledgerRow.Number = 1001<br />
ledgerRow.Description = "Rent"<br />
ledgerRow.Debit = 750<br />
ledgerRow.Balance = ledgerRow.Balance - ledgerRow.Debit<br />
End Sub<br />
</source></div>
Admin