Программное копирование полей таблиц - как это сделать? |
https://www.sql.ru/forum/1309230/programmnoe-kopirovanie-poley-tablic-kak-eto-sdelat
|
|
Помогите разобраться |
|
|
Распарсить не стандартный текстовый файл. Ответ оборудования через телнет. |
|
|
|
Как запустить код VBA по-шагам? |
https://www.sql.ru/forum/1309193/kak-zapustit-kod-vba-po-shagam
|
|
Как отловить клик правой кнопки мыши в форме? |
https://www.sql.ru/forum/1309173/kak-otlovit-klik-pravoy-knopki-myshi-v-forme
|
|
Пользовательский аналог LIKE |
|
|
Создание на лету переменной класса формы с типом взятым из значение другой переменной |
Private WithEvents myForm As Form
Set myForm = New Form_Someform1
Private WithEvents myForm As Form Public Sub ClassInit(FormName As Sting) Set myForm = New FormName End Sub
|
|
Не могу разобраться, помогите, пожалуйста с кодом. |
Set rw1 = CurrentDb.OpenRecordset("select * from [З_Приостанов] where Код=" & Me.Код)
Private Sub Form_Timer() If Time() = "11:42:00" Then Dim rw1 As String Set rw1 = CurrentDb.OpenRecordset("select * from [З_Приостанов] where Код=" & Me.Код) Do Until rw1.EOF If IsNull(rw1!Код) Then End If Else DoCmd.OpenForm "Ф_Оконч_Прост" rw1.MoveNext End If Loop End If End Sub
https://www.sql.ru/forum/1309150/ne-mogu-razobratsya-pomogite-pozhaluysta-s-kodom
|
|
Как открыть базу данных ACCESS 97 есть логин и пароль |
https://www.sql.ru/forum/1309112/kak-otkryt-bazu-dannyh-access-97-est-login-i-parol
|
|
выбрать только те слова , которые на английском |
https://www.sql.ru/forum/1309107/vybrat-tolko-te-slova-kotorye-na-angliyskom
|
|
Импорт текстового файла |
| + |
| Version 400 Charset "WindowsCyrillic" Delimiter "," CoordSys NonEarth Units "m" Bounds (-10000000, -10000000) (10000000, 10000000) Columns 1 КАДАСТРОВЫЙНОМЕР Char(50) Data Region 3 13 4411510.56 947688.07 4411630.9 947661.04 4411571.64 947474 4411541.87 947295.16 4411230.31 947334.78 4410406.2 947441.69 4410163.43 947480.81 4410375.6 947963.26 4410737.22 947900.11 4411092.54 947832.54 4411348.68 947803.48 4411515.55 947756 4411510.56 947688.07 8 4411508.12 947752.78 4411348.19 947796.5 4411053.53 947834.71 4411049.6 947733.87 4411328.09 947708.27 4411331.64 947645.63 4411483.69 947632.63 4411508.12 947752.78 5 4410204.15 947547.37 4410207.51 947551.35 4410203.53 947554.71 4410200.17 947550.73 4410204.15 947547.37 Pen (2,2,255) Brush (1,0,16777215) Center 4410897.16 947629.21 |
|
|
Как сделать запуск формы, по достижении определённой даты и времени. |
https://www.sql.ru/forum/1308972/kak-sdelat-zapusk-formy-po-dostizhenii-opredelyonnoy-daty-i-vremeni
|
|
Обновление формы (Access & SQL) |
Private Sub cmd_close_Click() Dim MyID As Long MyID = Me!id p = "proc_add_number @idpat=" & Me.id_pat _ & " , @code = " & Me.code _ & " , @idclin = '" & Me.id_clin _ & " , @mark = " & Me.mark Call PROC("sproc_add_number", p, 0) If CurrentProject.AllForms("all_list").IsLoaded Then Forms![all_list]![all_list_subform].Form.Requery Forms![all_list]![all_list_subform].Form.Recordset.FindFirst "[id_pat] = " & MyID End If DoCmd.close acForm, "add_number" End Sub
[Forms]![all_list]![all_list_subform].[Form]![code].Requery
[Forms]![all_list]![all_list_subform].[Form]![id_clin].Requery
https://www.sql.ru/forum/1308969/obnovlenie-formy-access-sql
|
|
Bookmark |
Public Sub SetFormRecord(frm As Form, Optional strCriteria As String, Optional blToFirst As Boolean = False) 'Производит поиск записи по заданным критериям в форме(подчиненной форме) 'и ставит фокус на найденную запись - если она найдена (после удаления например) 'если искомое не найдено - переход на Первую или Последнюю запись в зависимости 'от аргумента blToFirst (по умолчанию переход на последнюю запись) '------------------------------------------------------------------------------ On Error GoTo SetFormRecordErr With frm .RecordsetClone.FindFirst strCriteria If .RecordsetClone.NoMatch Then If blToFirst = False Then .RecordsetClone.MoveLast Else .RecordsetClone.MoveFirst End If End If .Bookmark = .RecordsetClone.Bookmark End With SetFormRecordBye: On Error Resume Next Set frm = Nothing Exit Sub SetFormRecordErr: Err.Clear Resume SetFormRecordBye End Sub
|
|
Как сделать в списке некоторые строки неактивными |
https://www.sql.ru/forum/1308942/kak-sdelat-v-spiske-nekotorye-stroki-neaktivnymi
|
|
SQL-запрос для формы поиска и обработка логических операторов |
| автор |
|---|
| Ганов Александр (перенесено отсюда) как вариант использовать "+", который превратит отсутствующий параметр в "нулевую строку", в том случае если какой-то параметр запроса не был использован пользователем разобрался с "+". |
strSQL = "SELECT *" _ & "FROM [Работы] " _ & "WHERE " & "([Название] like '*" + [fldНазвание].Value + "*') AND " _ & "([ДатаЗапуска] >=" + IIf(IsNull([fldДатаЗапускаНачало].Value) = False, Format([fldДатаЗапускаНачало].Value, "General Number"), Null) & ") AND " _ & "([ДатаЗапуска] <=" + IIf(IsNull([fldДатаЗапускаКонец].Value) = False, Format([fldДатаЗапускаКонец].Value, "General Number"), Null) & ") AND " _ & "([ДатаСоздания] >=" + IIf(IsNull([fldДатаБазаНачало].Value) = False, Format([fldДатаБазаНачало].Value, "General Number"), Null) & ") AND " _ & "([ДатаСоздания] <=" + IIf(IsNull([fldДатаБазаКонец].Value) = False, Format([fldДатаБазаКонец].Value, "General Number"), Null) & ") AND"
'обрезаем AND в конце строки For i = 1 To 5 If Right(strSQL, 4) = " AND" Then strSQL = Left(strSQL, Len(strSQL) - 4) If Right(strSQL, 5) = " AND " Then strSQL = Left(strSQL, Len(strSQL) - 5) If Right(strSQL, 6) = " AND )" Then strSQL = Left(strSQL, Len(strSQL) - 6) Next i
https://www.sql.ru/forum/1308920/sql-zapros-dlya-formy-poiska-i-obrabotka-logicheskih-operatorov
|
|
Снова XML парсинг, маленький вопрос |
| + |
Private Sub Кнопка73_Click() Dim strFileName As String, strNumBS As String, strSBTS As String Dim objXmlDoc As Object ' MSXML2.DOMDocument Dim objXmlSingleNode As Object 'MSXML2.IXMLDOMNode Dim objXmlChildNode As Object 'MSXML2.IXMLDOMNode Dim OAMIP$, DN$ On Error GoTo HandleErrors strFileName = "c:test\test.XML" If Len(strFileName) = 0 Then Exit Sub If Len(Dir$(strFileName)) = 0 Then Exit Sub 'strNumBS = Split(Dir$(strFileName), "_")(2) Set objXmlDoc = CreateObject("MSXML2.DOMDocument") With objXmlDoc .async = False If Not .Load(strFileName) Then MsgBox "Oops!!", vbCritical GoTo ExitHere End If Set objXmlSingleNode = .selectSingleNode("/raml/cmData/managedObject") End With If Not objXmlSingleNode Is Nothing Then With objXmlSingleNode Debug.Print .Attributes.getNamedItem("distName").Text Debug.Print .selectSingleNode("p[@name='btsName']").Text DN = .Attributes.getNamedItem("distName").Text End With End If ' получим IP адреса strNodes = "/raml/cmData/managedObject[@class='com.nokia.srbts.tnl:IPADDRESSV4']/p[@name='localIpAddr']" 'strNodes = "/raml/cmData/managedObject[@distName='MRBTS-605775/TNLSVC-1/TNL-1/IPNO-1/IPIF-1/IPADDRESSV4-1']/p[@name='localIpAddr']" For Each objXmlSingleNode In objXmlDoc.selectNodes(strNodes) OAMIP = objXmlSingleNode.Text Debug.Print "OAMIP = " & OAMIP Next ExitHere: Set objXmlDoc = Nothing Exit Sub HandleErrors: Debug.Print Err.Number; vbTab; Err.description Resume ExitHere End Sub |
https://www.sql.ru/forum/1308885/snova-xml-parsing-malenkiy-vopros
|
|
Максимум из значений в строке(диапазона значений в строке) |
https://www.sql.ru/forum/1308884/maksimum-iz-znacheniy-v-stroke-diapazona-znacheniy-v-stroke
|
|
отловить ошибку runtime |
On Error GoTo Error_Handler 'обработчик ошибок '==================================== 'вставляем код процедуры '====================== Exit_Sub: 'обработчик ошибок On Error Resume Next Exit Sub Error_Handler: On Error Resume Next If Err.Number = 0 Then Resume Next Else Call prcОбработкаОшибок(Err.Number, Err.Description, Err.Source, Erl) End If Resume Exit_Sub Resume
|
|
Добавление записи в базу данных Access, используя ADO и SQL |
https://www.sql.ru/forum/1308825/dobavlenie-zapisi-v-bazu-dannyh-access-ispolzuya-ado-i-sql
|
|