| |
|
|
| | как обеденять таблици понятно, а вот как получить еще поле счетчика нет :(
смотрел здесь:
http://am.rusimport.ru/MsAccess/topic.aspx?ID=87
не обновляемый запрос работает, а вот обновляемый нет:(
помогите пожалуйста | |
| |
| |
| |
|
|
| | А где предмет разговора????
Что за запрос????
И как вы объединяете добавляя записи (строчки) или
столбики (колонки, поля) | |
| |
| |
| |
|
|
| | Предмет прост ...
select [ФамилияЛ]&" "&[ИмяЛ] ,[ДатаВъезда],[ДатаОтъезда],[idStatus],[История] from Сотрудники
ORDER BY [ФамилияЛ], [ИмяЛ]
UNION select[ФамилияЛ]&" "&[ИмяЛ],[ДатаВъезда],[ДатаОтъездаЖ],[idStatus],[История] from жены;
так обеденил
а как создать поле счетчик | |
| |
| |
| |
|
|
| | Добавь (создай) - пока вручную  | |
| |
| |
|
|
| |
|
|
| | Аргументы: strTable - имя таблицы, strField - имя поля, FldType - тип поля
Public Sub AddField(strTable As String, strField As String, FldType As Variant)
Dim dbs As Database
Dim tdf As TableDef
Dim fld As Field
On Error GoTo m1
Set dbs = CurrentDb
Set tdf = dbs.TableDefs(strTable)
Set fld = tdf.CreateField(strField)
fld.Type = FldType
tdf.Fields.Append fld
Set fld = Nothing
Set tdf = Nothing
Set dbs = Nothing
Exit Sub
m1:
If Err.Number = 3191 Then MsgBox "Поле с таким именем [" & strField & "] уже существует.": Exit Sub
Resume Next
End Sub | |
| |
| |
