Связи таблиц, фильтр записей |
|
|
Подскажите структуру таблицы учёта брака товара. |
http://www.sql.ru/forum/1077306/podskazhite-strukturu-tablicy-uchyota-braka-tovara
|
|
Запрос с фильтром по значениям из поля формы. Что в синтаксисе я делаю не так? |
| + |
SELECT Студенты.Курс, Специальности.[Название специальности], Специальности.Обозначение, Студенты.Специализация, Студенты.Группа, [Фамилия] & " " & [Имя] & " " & [Отчество] & " " AS ФИО, Mid(Группы!Группа,6,1) AS Груп, Студенты.[Номер договора], Студенты.[Дата договора], Студенты.Состояние, Студенты.Старосты, Студенты.Подгруппа FROM Специальности INNER JOIN (Группы INNER JOIN Студенты ON Группы.Код = Студенты.Группа) ON Специальности.Код = Студенты.Специальность WHERE (((Студенты.Специализация) Like "*") AND ((Студенты.Группа)=IIf([Forms]![Печать списка группы]![НомерГруппы]=0,(Студенты.Группа) Like "*",[Forms]![Печать списка группы]![НомерГруппы]))) ORDER BY Студенты.Курс, Специальности.[Название специальности], Студенты.Группа, [Фамилия] & " " & [Имя] & " " & [Отчество] & " "; |
|
|
как сделать так, чтоб не учитывались последние 2 символа при поиске |
http://www.sql.ru/forum/1077143/kak-sdelat-tak-chtob-ne-uchityvalis-poslednie-2-simvola-pri-poiske
|
|
Acces c sql |
|
|
Что за глюк? |
|
|
Линк к mysql |
Dim r1 As Recordset Dim ws As Workspace Dim mysql As dao.Connection Set ws = CreateWorkspace("ws_MySQL", "", "", dbUseODBC) Set mysql = ws.OpenConnection("Access MySQL", dbDriverComplete, False, Me.connect.Value) Set r1 = mysql.OpenRecordset("select * " & _ " from base2014.doh_o ; ") r1.MoveFirst r1.Edit r1.Fields("m8").Value = 49 r1.Update r1.Close
|
|
transform в подзапросе |
|
|
Ограничение переменной |
|
|
Программный экспорт в Excel. Ошибка или очередной глюк Access? |
Dim stDocName As String
stDocName = "qry_tblTempXa_View_y"
DoCmd.OutputTo acOutputQuery, stDocName, acFormatXLS, "Исходная таблица.xls", True
http://www.sql.ru/forum/1076943/programmnyy-eksport-v-excel-oshibka-ili-ocherednoy-gluk-access
|
|
Отчеты: уместить фактуры в рамках листа |
получается так, что в конце листа остается только часть фактуры, а остальная переносится на начало следующего листа.http://www.sql.ru/forum/1076920/otchety-umestit-faktury-v-ramkah-lista
|
|
Всплывающие подсказки исчезают через 4 секунды |
http://www.sql.ru/forum/1076916/vsplyvaushhie-podskazki-ischezaut-cherez-4-sekundy
|
|
Модификация ленты ADP проекта: функции и значения элементов управления |
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui"> <ribbon startFromScratch="true"> <tabs> <tab idMso="TabHome"> <group idMso="GroupFont" visible="false" /> </tab> <tab id="CustomTab" label="Клиенты"> <group id="PeopleGroup" label="Люди"> <toggleButton id="ToggleButton1" size="large" label="Все люди" onAction="Pplopenmacro" imageMso="ContactPictureMenu"/> <editBox id="PeopleEditBox" label="Поиск по рег№" onChange="MyEditBoxCallbackOnChange" /> <button id="Button3" label="TEST" size="normal" onAction="=Person_choose()" /> </group> <group id="CompaniesGroup" label="Компании"> <toggleButton id="ToggleButton2" size="large" label="Компании" onAction="Cmpnopenmacro" imageMso="MeetingsWorkspace" /> </group> </tab> <tab id="CustomTab2" label="Документы"> <group id="MyGroup" label="Документы" > <button id="Button1" label="Счета" size="large" onAction="Invoiceopenmacro" imageMso="BusinessFormWizard" /> <button id="Button2" label="Х%%та" size="normal" /> </group > </tab> </tabs> </ribbon> </customUI>
Public Sub MyEditBoxCallbackgetText(control As IRibbonControl, ByRef strText) ' Callback EditBox ' Select Case control.Id ' Case "PeopleEditBox" ' strText = "Hello World" ' End Select MsgBox "1" End Sub Public Sub MyEditBoxCallbackOnChange(control As IRibbonControl, strText As String) ' Callback Editbox: Returnvalue Editbox ' Select Case control.Id ' Case "PeopleEditBox" ' MsgBox "Value Editbox: " & _ ' strText, vbInformation, "Sample EditBox" ' End Select MsgBox "2" End Sub Public Sub Person_choose() 'DoCmd.openForm "People", acNormal MsgBox "Yahoo!" End Sub
|
|
Капризная функция... |
Public function www(ParamArray varParam() As Variant) As Byte ..........в процедуре вызываю функцию:
s = www(5, 102, "F")
получаю ошибку "Type mismatch"
? www(5, 102, "F")
получаю результат работы функции...|
|
Qt+Access |
#includeQApplication> #include "mainwindow.h" #include #include QODBCDriver> #include QSqlDatabase> #include #include #include int main(int argc, char *argv[]) { QApplication a(argc, argv); // MainWindow w; QSqlDatabase db = QSqlDatabase::addDatabase("QODBC"); qDebug() << db.drivers(); db.setHostName("localhost"); db.setDatabaseName("Database1.accdb"); qDebug() << db.open(); if (!db.open()) { qDebug() << QObject::trUtf8("((((") << db.lastError().text(); return -1; } QSqlQueryModel * model = new QSqlQueryModel(0); model->setQuery("SELECT * FROM Blocks"); model->setHeaderData(0, Qt::Horizontal, QObject::trUtf8("1")); model->setHeaderData(1, Qt::Horizontal, QObject::trUtf8("2")); model->setHeaderData(2, Qt::Horizontal, QObject::trUtf8("3")); model->setHeaderData(3, Qt::Horizontal, QObject::trUtf8("4")); QTableView * view = new QTableView(0); view->setModel(model); view->setWindowTitle(QObject::trUtf8("123456")); view->show(); return a.exec(); }
|
|
Как задать разные источники подчиненных форм по событию |
http://www.sql.ru/forum/1076830/kak-zadat-raznye-istochniki-podchinennyh-form-po-sobytiu
|
|
нет прав на объект в Access 2013 |
http://www.sql.ru/forum/1076809/net-prav-na-obekt-v-access-2013
|
|
Больше не фильтрует в поиске |
| + |
Private findcode As String Private findnum As String Private findgvari As String Private findsaxeli As String Private findbirth As String Private findmomdat As String Private findgacdat As String Private findgamge As String Private findlaborant As String Private findprison As String Private pusto As String Private Sub fcode_Change() findcode = Nz(Me.fcode.Text, "") findnum = Nz(Me.fnum.Value, "") findgvari = Nz(Me.fgvari.Value, "") findsaxeli = Nz(Me.fsaxeli.Value, "") findbirth = Nz(Me.fbirthday.Value, "") findmomdat = Nz(Me.fmomdate.Value, "") findgacdat = Nz(Me.fgacdate.Value, "") findgamge = Nz(Me.cmb_gamge, "") findlaborant = Nz(Me.cmb_laborant, "") findprison = Nz(Me.cmb_prison, "") pusto = findcode & findnum & findgvari & findsaxeli & findbirth & findmomdat & findgacdat & findgamge & findlaborant & findprison If pusto <> "" Then Call Filtracia Me.fcode.SelStart = 100 Else Me.[sruli_sia_subform].Form.FilterOn = False End If End Sub Function Filtracia() Me.[sruli_sia_subform].Form.filter = "Nz([sruli_sia_q]![patient_code]) Like '" & findcode & "*'" _ & " And Nz([sruli_sia_q]![patient_num]) Like '" & findnum & "*'" _ & " And Nz([sruli_sia_q]![gvari]) Like '" & findgvari & "*'" _ & " And Nz([sruli_sia_q]![saxeli]) Like '" & findsaxeli & "*'" _ & " And Nz([sruli_sia_q]![birthday]) Like '" & findbirth & "*'" _ & " And Nz([sruli_sia_q]![momartvis_tarigi]) Like '*" & findmomdat & "*'" _ & " And Nz([sruli_sia_q]![gacemis_tarigi]) Like '" & findgacdat & "*'" _ & " And Nz([sruli_sia_q]![id_gamge]) Like '" & findgamge & "*'" _ & " And Nz([sruli_sia_q]![id_laborant]) Like '" & findlaborant & "*'" _ & " And Nz([sruli_sia_q]![id_prison]) Like '" & findprison & "*'" End Function |
|
|
перенос из access в excel |
|
|
как правильно сделать таблицу какие поля задать? |
http://www.sql.ru/forum/1076621/kak-pravilno-sdelat-tablicu-kakie-polya-zadat
|
|