If IsNull(Me.Список1.value) = true then ....
Private Sub Form_BeforeUpdate(Cancel As Integer) On Error GoTo Error_Handler 'обработчик ошибок '==================================== If MsgBox("В форму внесены изменения, сохранить?", vbYesNo + vbExclamation + vbDefaultButton1, "Предупреждение") = vbNo Then Cancel = True Me.Undo End If '====================== Exit_Sub: 'обработчик ошибок On Error Resume Next Exit Sub Error_Handler: If Err.Number = 0 Then Resume Next Else Call prcОбработкаОшибок(Err.Number, Err.Description, Err.Source, Erl) End If Resume Exit_Sub Resume End Sub
Public Sub prcКонтрольИзмененийФормы(frmName As String) Dim frm As Form Set frm = Forms(frmName) If MsgBox("В форму внесеные измнения, сохранить?", vbYesNo + vbExclamation + vbDefaultButton1, "Предупреждение") = vbNo Then 'Cancel = True КАК ВОТ ЭТУ СТРОКУ ПЕРЕДАТЬ ОБРАТНО В СОБЫТИЕ ФОРМЫ, чтобы отменить UPDATE frm.Undo End If End Sub
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
| + |
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 |
| автор |
|---|
| Ганов Александр (перенесено отсюда) как вариант использовать "+", который превратит отсутствующий параметр в "нулевую строку", в том случае если какой-то параметр запроса не был использован пользователем разобрался с "+". |
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
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
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
| + |
| 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 |
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
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