Jump to content

Contracting a Coder


Recommended Posts

Good Morning,

We have lost our staff member who was writing some AutoIt code for us. We do have some changes we need to make to the code, and we would like to solicit someone to help.

Would it be best to post the errors I am getting and have the community help me, or is it possible to hire help?

Thank you!

Link to comment
Share on other sites

  • Moderators

MehrlTCG,

Welcome to the AutoIt forum. ;)

We do not accept requests for paid work - but as a community we are very helpful. :)

Please post the code and let us know what the the errors are - put the code between [autoit] and [/autoit] and the errors between [code] and [/code] tags so they display nicely - and we will see what we can do. :)

M23

Public_Domain.png.2d871819fcb9957cf44f4514551a2935.png Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind

Open spoiler to see my UDFs:

Spoiler

ArrayMultiColSort ---- Sort arrays on multiple columns
ChooseFileFolder ---- Single and multiple selections from specified path treeview listing
Date_Time_Convert -- Easily convert date/time formats, including the language used
ExtMsgBox --------- A highly customisable replacement for MsgBox
GUIExtender -------- Extend and retract multiple sections within a GUI
GUIFrame ---------- Subdivide GUIs into many adjustable frames
GUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView items
GUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeView
Marquee ----------- Scrolling tickertape GUIs
NoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxes
Notify ------------- Small notifications on the edge of the display
Scrollbars ----------Automatically sized scrollbars with a single command
StringSize ---------- Automatically size controls to fit text
Toast -------------- Small GUIs which pop out of the notification area

 

Link to comment
Share on other sites

If you have some experience with AutoIt, why not post a snippet (that is troubling you of course)? In this way you can secure your code and have the problem solved.

----------------------------------------

:bye: Hey there, was I helpful?

----------------------------------------

My Current OS: Win8 PRO (64-bit); Current AutoIt Version: v3.3.8.1

Link to comment
Share on other sites

Paddles and whips. Some folks are into that..

Here is the code

<snip>

Code too large for a[autoit] tags - see shortened version in post #15

The error:

This started when the uninformed, uneducated newb (me) tried to increase the # of allowed characters in a field from 500 to 1000.

doesnt show in the code. Only shows when I run the program.

The error I encounter:

[Microsoft][ODBC][ SQL Server Driver][sql Server] Unclosed quotation mark before the character string '1');".

click ok and

Error 1040 with a 0

Now, logically, I went looking for my open SQL quotation mark-- because that's what it is telling me.

I cant find it with a flashlight and a google map.

So humbly, I turn to you.

Thank you for the warm welcome!

Edited by Melba23
Removed code!
Link to comment
Share on other sites

holy missing autoit tag batman! you forgot the brackets in your closing /autoit tag.

Edited by mechaflash213
Spoiler

“Hello, ladies, look at your man, now back to me, now back at your man, now back to me. Sadly, he isn’t me, but if he stopped using ladies scented body wash and switched to Old Spice, he could smell like he’s me. Look down, back up, where are you? You’re on a boat with the man your man could smell like. What’s in your hand, back at me. I have it, it’s an oyster with two tickets to that thing you love. Look again, the tickets are now diamonds. Anything is possible when your man smells like Old Spice and not a lady. I’m on a horse.”

 

Link to comment
Share on other sites

please put brackets around your closing autoit tag...twice now.

*And just click edit rather than a separate post with the same content.

Edited by boththose

,-. .--. ________ .-. .-. ,---. ,-. .-. .-. .-.
|(| / /\ \ |\ /| |__ __||| | | || .-' | |/ / \ \_/ )/
(_) / /__\ \ |(\ / | )| | | `-' | | `-. | | / __ \ (_)
| | | __ | (_)\/ | (_) | | .-. | | .-' | | \ |__| ) (
| | | | |)| | \ / | | | | | |)| | `--. | |) \ | |
`-' |_| (_) | |\/| | `-' /( (_)/( __.' |((_)-' /(_|
'-' '-' (__) (__) (_) (__)

Link to comment
Share on other sites

please put brackets around your closing autoit tag...twice now.

*And just click edit rather than a separate post with the same content.

He can't edit the post, he's only got 4 postings as of this time, he needs 5 or more to be able to edit.

If I posted any code, assume that code was written using the latest release version unless stated otherwise. Also, if it doesn't work on XP I can't help with that because I don't have access to XP, and I'm not going to.
Give a programmer the correct code and he can do his work for a day. Teach a programmer to debug and he can do his work for a lifetime - by Chirag Gude
How to ask questions the smart way!

I hereby grant any person the right to use any code I post, that I am the original author of, on the autoitscript.com forums, unless I've specifically stated otherwise in the code or the thread post. If you do use my code all I ask, as a courtesy, is to make note of where you got it from.

Back up and restore Windows user files _Array.au3 - Modified array functions that include support for 2D arrays.  -  ColorChooser - An add-on for SciTE that pops up a color dialog so you can select and paste a color code into a script.  -  Customizable Splashscreen GUI w/Progress Bar - Create a custom "splash screen" GUI with a progress bar and custom label.  -  _FileGetProperty - Retrieve the properties of a file  -  SciTE Toolbar - A toolbar demo for use with the SciTE editor  -  GUIRegisterMsg demo - Demo script to show how to use the Windows messages to interact with controls and your GUI.  -   Latin Square password generator

Link to comment
Share on other sites

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=Z:PublicWMS_Skinsimgicon_tcg.ico
#AutoIt3Wrapper_outfile=EHSCapa2.0.exe
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Array.au3>
#include <OwnTab.au3>
#include <Date.au3>
#include <GuiMonthCal.au3>
#include <_sql.au3>
#include <OutlookEX.au3>
#include <GUIListViewEX.au3>
#include <GuiComboBox.au3>
#include <GuiButton.au3>
#include "GUIScrollbars_Ex.au3"
#include <WinAPI.au3>
#region Global
Global $childGUI[5]
Global $iUSERNAMEINI = "Z:PublicWMS_Skinslibraryconfig.ini"
Global $ADMIN = 4
Global $fontArray = IniReadSection($iUSERNAMEINI, "FontSettings")
Global $txtfont = $fontArray[1][1]
Global $txtsize = $fontArray[2][1]
Global $txtweight = $fontArray[3][1]
Global $bkcolor = $fontArray[5][1]
Global $txtcolor = $fontArray[6][1]
Global $color2 = $fontArray[7][1]
Global $color3 = $fontArray[8][1]
Global $color4 = $fontArray[9][1]
Global $TICKETSTATUS = 1
Global $sDate = @YEAR & "/" & @MON & "/" & @MDAY
Global $aCtrlTab, $ehsGUI, $settingsfont, $x, $y
Global $sort = 1
Global $iDROPDOWNSINI = "Z:PublicWMS_SkinslibraryDropDowns.ini"
Global $iCOMMONDROPDOWN = IniReadSection($iDROPDOWNSINI, "common")
Global $iEHSDROPDOWN = IniReadSection($iDROPDOWNSINI, "ehs")
Global $CapaEmailList = "Z:PublicWMS_Skinslibrarycapaemaillist.ini"
Global $oADODB, $TICKETNUMBER, $ehsArray, $calGUI, $Btn_calander, $Btn_Activate, $Cal_pDate, $Input_date, $Input_ActionDate, _
$Input_DefineDate, $Input_VerificationDate, $Combo_facility, $Lbl_facility, $Combo_department, $Lbl_department, $Input_PersonReporting, _
$Lbl_PersonReporting, $Input_PersonReportingEmail, $Lbl_PersonReportingEmail, $Combo_Methodology, $Lbl_Methodology, $Combo_Discovery, _
$Lbl_Discovery, $Combo_Findings, $Lbl_Findings, $Input_PersonResponsible, $Lbl_PersonResponsible, $Input_PersonResponsibleEmail, _
$Lbl_PersonResponsibleEmail, $Edit_DescriptionOfNonconformance, $Lbl_DescriptionOfNonconformance, $SQL_columns, $SQL_values, _
$Lbl_ContainmentAction, $Lbl_ActionDate, $Edit_ContainmentAction, $Lbl_DefineBy, $Lbl_Why1, $Edit_Why1, $Btn_Answer1, _
$Edit_Answer1, $DescriptionOfNonconformance, $Btn_Edit, $fileitemreport, $fileitemView, $fileitemupdate, $fileitemdisable, $exititem, _
$settingsadminS, $settingsadminE, $PASSWORDView, $LvTickets, $Btn_Close, $Btn_ReissueTicket, $Input_ticket, $STAGE, $Edit_Why2, $Edit_Answer2, _
$Edit_Why3, $Edit_Answer3, $Edit_Why4, $Edit_Answer4, $Edit_Why5, $Edit_Answer5, $Edit_CorrectiveAction, $Edit_VerificationOfEffectiveness, _
$Lbl_Why2, $Btn_Answer2, $Lbl_Why3, $Btn_Answer3, $Lbl_Why4, $Btn_Answer4, $Lbl_Why5, $Lbl_CorrectiveAction, _
$Lbl_VerificationDate, $Lbl_VerificationOfEffectiveness, $PASSWORDedit, $Lbl_ticket, $Lbl_date, $WHYPHASE, _
$CBox_Root3, $CBox_Root4, $SQL_statement, $Alpha, $Answer1, $Answer2, $Answer3, $Answer4, $Answer5, $Lbl_Root5, _
$WHYPHASE, $ROOT3, $ROOT4, $ROOT5, $Methodology, $Discovery, $Findings, $ContainmentAction, $facility, $GUISTATUS, $CorrectiveAction, _
$VerificationOfEffectiveness, $REQFIELD, $BEGINdate, $department, $PersonReporting, $PersonReportingEmail, $PersonResponsible, _
$PersonResponsibleEmail, $Lbl_T2, $settingsadminOMC, $MailConsole, $LvMail, $Btn_MailConsole_Resend, $Edit_ReissueConsole_Reissue, _
$Btn_ReissueConsole_Reissue, $ActionDate, $DefinedBy, $VerificationDate, $Lbl_Reticket, $Input_Reticket, $LvAdmin, _
$Btn_Admin_Beginning, $Btn_Admin_Back, $Btn_Admin_Forward, $Btn_Admin_End, $fileitemattachment, $FacilityCAPAFolder
#endregion Global
StartSQLconnection()
ehsGUI($ADMIN)
Func StartSQLconnection()
_SQL_RegisterErrorHandler()
$oADODB = _SQL_Startup()
_SQL_Connect(-1, "redacted", "redacted", "redacted", "redacted")
EndFunc ;==>StartSQLconnection
Func ehsGUI($aADMIN)
Local $TN
If $x = "" Then $x = -1
If $y = "" Then $y = -1
Local $MAXID, $iRows, $iColumns
Local $fDate = _DateTimeFormat($sDate, 2)
Local $30DAY = _DateTimeFormat(_DateAdd('D', 30, $sDate), 2)
Local $90DAY = _DateTimeFormat(_DateAdd('D', 90, $sDate), 2)
Local $aTabText[3] = [" Nonconformance ", " Root Cause ", " Corrective Action "]
_SQL_GetTable2D(-1, "SELECT MAX(ID) FROM EHS_CorrectiveAction;", $MAXID, $iRows, $iColumns)
$TICKETNUMBER = $MAXID[1][0] + 1
#region $ehsGUI
#region $filemenu
$ehsGUI = GUICreate("redacted | CAPA", 1000, 700, $x, $y)
GUISetBkColor($bkcolor)
GUISetIcon("Z:PublicWMS_Skinsimgicon_tcg.ico")
$filemenu = GUICtrlCreateMenu("&File")
$fileitemreport = GUICtrlCreateMenuItem("&Create a new ticket", $filemenu)
$fileitemView = GUICtrlCreateMenuItem("&View an active ticket", $filemenu)
$fileitemupdate = GUICtrlCreateMenuItem("&Update an active ticket", $filemenu)
$fileitemattachment = GUICtrlCreateMenuItem("&Attach a file", $filemenu)
$exititem = GUICtrlCreateMenuItem("&Exit", $filemenu)
$settingsmenu = GUICtrlCreateMenu("&Options")
$settingsadminS = GUICtrlCreateMenuItem("&Start admin", $settingsmenu)
$settingsadminE = GUICtrlCreateMenuItem("&End admin", $settingsmenu)
$settingsadminOMC = GUICtrlCreateMenuItem("&Open mail console", $settingsmenu)
$settingsfont = GUICtrlCreateMenuItem("&Theme settings", $settingsmenu)
$helpmenu = GUICtrlCreateMenu("&Help")
$infoitem2 = GUICtrlCreateMenuItem("&Help", $helpmenu)
$infoitem3 = GUICtrlCreateMenuItem("&Software support", $helpmenu)
#endregion $filemenu
#region HEAD
$Pic_head = GUICtrlCreatePic("Z:PublicWMS_SkinsEHS _CAPAearth.jpg", 0, 0, 416, 49, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
$Lbl_head = GUICtrlCreateLabel("redacted Inc ", 416, 0, 584, 49, BitOR($SS_RIGHT, $SS_CENTERIMAGE))
GUICtrlSetFont(-1, 18, $txtweight, 0, $txtfont)
GUICtrlSetColor(-1, $color2)
GUICtrlSetBkColor(-1, 0x000000)
$Lbl_title = GUICtrlCreateLabel("Corrective Action Form", 20, 57, 230, 23, -1, $GUI_WS_EX_PARENTDRAG)
GUICtrlSetFont(-1, 12, $txtweight, 0, $txtfont)
GUICtrlSetColor(-1, $txtcolor)
$Lbl_ticket = GUICtrlCreateLabel("Ticket", 490, 57, 50, 23)
GUICtrlSetFont(-1, 12, $txtweight, 0, $txtfont)
GUICtrlSetColor(-1, $txtcolor)
$Input_ticket = GUICtrlCreateInput($TICKETNUMBER, 545, 55, 90, 24, BitOR($ES_READONLY, $SS_RIGHT))
GUICtrlSetFont(-1, $txtsize, $txtweight, 0, $txtfont)
GUICtrlSetColor(-1, $color2)
GUICtrlSetBkColor(-1, 0x000000)
$Lbl_Reticket = GUICtrlCreateLabel("Reissue Ticket", 270, 57, 100, 20)
GUICtrlSetFont(-1, 12, $txtweight, 0, $txtfont)
GUICtrlSetColor(-1, $txtcolor)
GUICtrlSetState(-1, $GUI_HIDE)
$Input_Reticket = GUICtrlCreateInput("", 380, 55, 90, 24, BitOR($ES_READONLY, $SS_RIGHT))
GUICtrlSetFont(-1, $txtsize, $txtweight, 0, $txtfont)
GUICtrlSetColor(-1, $color2)
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1, $GUI_HIDE)
$Btn_Activate = GUICtrlCreateButton("Activate" & @CR & "Ticket", 640, 55, 85, 35, $BS_MULTILINE)
GUICtrlSetFont(-1, 9, $txtweight, 0, $txtfont)
$Btn_Edit = GUICtrlCreateButton("Save" & @CRLF & "Changes", 725, 55, 85, 35, $BS_MULTILINE)
GUICtrlSetFont(-1, 9, $txtweight, 0, $txtfont)
GUICtrlSetState(-1, $GUI_DISABLE)
$Btn_Close = GUICtrlCreateButton("Close" & @CRLF & "Ticket", 810, 55, 85, 35, $BS_MULTILINE)
GUICtrlSetFont(-1, 9, $txtweight, 0, $txtfont)
GUICtrlSetState(-1, $GUI_DISABLE)
$Btn_ReissueTicket = GUICtrlCreateButton("Reissue" & @CRLF & "Ticket", 895, 55, 85, 35, $BS_MULTILINE)
GUICtrlSetFont(-1, 9, $txtweight, 0, $txtfont)
GUICtrlSetState(-1, $GUI_DISABLE)
$Lbl_date = GUICtrlCreateLabel("Date", 20, 95, 40, 20)
GUICtrlSetFont(-1, $txtsize, $txtweight, 0, $txtfont)
GUICtrlSetColor(-1, $txtcolor)
$Input_date = GUICtrlCreateInput($fDate, 20, 115, 90, 24, BitOR($ES_READONLY, $SS_RIGHT))
GUICtrlSetFont(-1, $txtsize, $txtweight, 0, $txtfont)
GUICtrlSetColor(-1, $color2)
GUICtrlSetBkColor(-1, 0x000000)
$Btn_calander = GUICtrlCreateButton("", 112, 103 + 10, 28, 28, $BS_BITMAP)
_GUICtrlButton_SetImage($Btn_calander, "Z:PublicWMS_SkinsEHS _CAPAcal.bmp")
GUICtrlSetState(-1, $GUI_DISABLE)
$Lbl_facility = GUICtrlCreateLabel("Facility", 145, 95, 70, 20)
GUICtrlSetTip(-1, "Facility where the" & @LF & "incedent/failure occured")
GUICtrlSetFont(-1, $txtsize, $txtweight, 0, $txtfont)
GUICtrlSetColor(-1, $txtcolor)
$Combo_facility = GUICtrlCreateCombo("", 145, 115, 180, 20)
GUICtrlSetData(-1, $iCOMMONDROPDOWN[1][1])
GUICtrlSetTip(-1, "Facility where the" & @LF & "incedent/failure occured")
GUICtrlSetFont(-1, $txtsize, $txtweight, 0, $txtfont)
$Lbl_department = GUICtrlCreateLabel("Department", 330, 95, 100, 20)
GUICtrlSetTip(-1, "Department responsible for the" & @LF & "incedent/failure that occured")
GUICtrlSetFont(-1, $txtsize, $txtweight, 0, $txtfont)
GUICtrlSetColor(-1, $txtcolor)
$Combo_department = GUICtrlCreateCombo("", 330, 115, 180, 20)
GUICtrlSetTip(-1, "Department responsible for the" & @LF & "incedent/failure that occured")
GUICtrlSetFont(-1, $txtsize, $txtweight, 0, $txtfont)
$Lbl_PersonReporting = GUICtrlCreateLabel("Name of person reporting item", 515, 95, 200, 20)
GUICtrlSetFont(-1, $txtsize, $txtweight, 0, $txtfont)
GUICtrlSetColor(-1, $txtcolor)
$Input_PersonReporting = GUICtrlCreateInput("", 515, 115, 230, 24)
GUICtrlSetFont(-1, $txtsize, $txtweight, 0, $txtfont)
GUICtrlSetLimit(-1, 100)
$Lbl_PersonReportingEmail = GUICtrlCreateLabel("Email of person reporting item", 750, 95, 200, 20)
GUICtrlSetFont(-1, $txtsize, $txtweight, 0, $txtfont)
GUICtrlSetColor(-1, $txtcolor)
$Input_PersonReportingEmail = GUICtrlCreateInput("", 750, 115, 230, 24)
GUICtrlSetFont(-1, $txtsize, $txtweight, 0, $txtfont)
GUICtrlSetLimit(-1, 100)
$Lbl_Methodology = GUICtrlCreateLabel("Methodology", 20, 160, 120, 20)
GUICtrlSetFont(-1, $txtsize, $txtweight, 0, $txtfont)
GUICtrlSetColor(-1, $txtcolor)
GUICtrlSetState(-1, $GUI_DISABLE)
$Combo_Methodology = GUICtrlCreateCombo("", 20, 180, 155, 20)
GUICtrlSetData(-1, $iEHSDROPDOWN[1][1])
GUICtrlSetFont(-1, $txtsize, $txtweight, 0, $txtfont)
GUICtrlSetState(-1, $GUI_DISABLE)
$Lbl_Discovery = GUICtrlCreateLabel("Discovery Process", 180, 160, 150, 20)
GUICtrlSetFont(-1, $txtsize, $txtweight, 0, $txtfont)
GUICtrlSetColor(-1, $txtcolor)
GUICtrlSetState(-1, $GUI_DISABLE)
$Combo_Discovery = GUICtrlCreateCombo("", 180, 180, 155, 20)
GUICtrlSetData(-1, $iEHSDROPDOWN[2][1])
GUICtrlSetFont(-1, $txtsize, $txtweight, 0, $txtfont)
GUICtrlSetState(-1, $GUI_DISABLE)
$Lbl_Findings = GUICtrlCreateLabel("Finding", 340, 160, 80, 20)
GUICtrlSetFont(-1, $txtsize, $txtweight, 0, $txtfont)
GUICtrlSetColor(-1, $txtcolor)
GUICtrlSetState(-1, $GUI_DISABLE)
$Combo_Findings = GUICtrlCreateCombo("", 340, 180, 170, 20)
GUICtrlSetData(-1, $iEHSDROPDOWN[3][1])
GUICtrlSetFont(-1, $txtsize, $txtweight, 0, $txtfont)
GUICtrlSetState(-1, $GUI_DISABLE)
$Lbl_PersonResponsible = GUICtrlCreateLabel("Person responsible" & @CRLF & "for corrective action taken", 515, 134 + 10, 200, 40)
GUICtrlSetFont(-1, $txtsize, $txtweight, 0, $txtfont)
GUICtrlSetColor(-1, $txtcolor)
GUICtrlSetState(-1, $GUI_DISABLE)
$Input_PersonResponsible = GUICtrlCreateInput("", 515, 180, 230, 24, $ES_READONLY)
GUICtrlSetTip(-1, "Person resposible for corrective action")
GUICtrlSetFont(-1, $txtsize, $txtweight, 0, $txtfont)
GUICtrlSetState(-1, $GUI_DISABLE)
$Lbl_PersonResponsibleEmail = GUICtrlCreateLabel("Email of person responsible" & @CRLF & "for corrective action taken", 750, 134 + 10, 200, 40, $ES_READONLY)
GUICtrlSetFont(-1, $txtsize, $txtweight, 0, $txtfont)
GUICtrlSetColor(-1, $txtcolor)
GUICtrlSetState(-1, $GUI_DISABLE)
$Input_PersonResponsibleEmail = GUICtrlCreateInput("", 750, 180, 230, 24, $ES_READONLY)
GUICtrlSetFont(-1, $txtsize, $txtweight, 0, $txtfont)
GUICtrlSetState(-1, $GUI_DISABLE)
;### BEGIN TAB
$aCtrlTab = _OwnTab_Create($ehsGUI, $aTabText, 15, 220, 970, 421, 21, 0x000000, $color4, $color4, "", $txtfont, $color2, $txtsize)
#endregion HEAD
#region TAB1
;### TAB 1 ####
_OwnTab_Add($aCtrlTab)
$Lbl_T1 = GUICtrlCreateLabel("Nonconformance", 26, 205 + 19, 110, 17, $SS_CENTER)
GUICtrlSetFont(-1, 10, 400, 0, $txtfont)
GUICtrlSetBkColor(-1, $color4)
GUICtrlSetColor(-1, $txtcolor)
$Lbl_DescriptionOfNonconformance = GUICtrlCreateLabel("Description of Nonconformance", 25, 240 + 20, 200, 20)
GUICtrlSetFont(-1, $txtsize, $txtweight, 0, $txtfont)
GUICtrlSetBkColor(-1, $color4)
GUICtrlSetColor(-1, $txtcolor)
$Edit_DescriptionOfNonconformance = GUICtrlCreateEdit("", 25, 260 + 20, 950, 150, BitOR($ES_AUTOVSCROLL, $ES_WANTRETURN, $WS_VSCROLL, $WS_BORDER), 0)
GUICtrlSetFont(-1, $txtsize, $txtweight, 0, $txtfont)
GUICtrlSetLimit(-1, 500)
$Lbl_ContainmentAction = GUICtrlCreateLabel("Containment action", 25, 440 + 20, 200, 20)
GUICtrlSetFont(-1, $txtsize, $txtweight, 0, $txtfont)
GUICtrlSetBkColor(-1, $color4)
GUICtrlSetColor(-1, $txtcolor)
GUICtrlSetState(-1, $GUI_DISABLE)
$Lbl_ActionDate = GUICtrlCreateLabel("Action date", 760, 435 + 20, 75, 20)
GUICtrlSetFont(-1, $txtsize, $txtweight, 0, $txtfont)
GUICtrlSetBkColor(-1, $color4)
GUICtrlSetColor(-1, $txtcolor)
$Input_ActionDate = GUICtrlCreateInput($30DAY, 835, 430 + 20, 120, 24, BitOR($ES_READONLY, $SS_RIGHT))
GUICtrlSetFont(-1, $txtsize, $txtweight, 0, $txtfont)
GUICtrlSetColor(-1, $color2)
GUICtrlSetBkColor(-1, 0x000000)
$Edit_ContainmentAction = GUICtrlCreateEdit("", 25, 460 + 20, 950, 150, BitOR($ES_AUTOVSCROLL, $ES_WANTRETURN, $WS_VSCROLL, $WS_BORDER), 0)
GUICtrlSetFont(-1, $txtsize, $txtweight, 0, $txtfont)
GUICtrlSetLimit(-1, 500)
GUICtrlSetState(-1, $GUI_DISABLE)
#endregion TAB1
#region TAB2

Link to comment
Share on other sites

Can you maybe upload the entire code into an attachment? I think something is getting missed...

I don't see anything in the code posted above that would cause an error, but Unclosed quotation mark before the character string '1');". definitely means something, as does maybe the 1040 error code. Can you post the entire SQL line (query, whatever its called)? What is actually throwing that error? Any chance you having a single quote in your string?

1040 seems to mean too many connections.

While ProcessExists('Andrews bad day.exe')
	BlockInput(1)
	SoundPlay('Music.wav')
	SoundSetWaveVolume('Louder')
WEnd
Link to comment
Share on other sites

Sure-- I'll post it in the morning.

I agree its something in the SQL statement that is broken. but a search in it for the missing " before the statement yeilds zip.

Thank you all for everything. I do appreciate it.

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...