Search results

Got the value by changing For Each fld In tdf.Fields to For Each fld In rst.Fields :):) Thanks @MajP for pointing me in the right direction.

I did this and It gave me the field's name but faild to give the value. Error 3219 Invalid operation on the line where I want the value (e.g Debug.print fld.Value)

Thanks for the link. Hope it helps me with the issue.

I did it at first, got the error and tried that way. Still the same error

I'm trying to build a bulk update sql. This is just the start of all the string I'll build but before go forward I can't get the field name.

Hello, I have this code 'code.... Dim tdf As DAO.TableDef Dim fld Set fld = New DAO.field sql = "select * from t_import_agence" Set rst = CurrentDb.OpenRecordset(sql) Set tdf = CurrentDb.TableDefs("t_import_agence") If Not rst.EOF Then...

I read that somewhere and tried (opened form, resized, saved, scrollbars disabled, etc.) All of these fixes the problem for a while but it always comes back. Today it came back to my main form, yet I haven't changed anything on this form for several weeks.

Auto Resize : Yes Auto Center : Yes

Thanks. I hope this works because one time I added a empty textbox to "block" the shrinking but the textbox was also chewed.

Mostly single forms. Some have subforms in continuous view. If there is no other solution, I guess I'll have to standardize my forms height and width.

Yes, but I'll have to do that in everyone of my forms. They have differents sizes.

Hello everyone, I have a weird issue with my app. I use only popup forms, one main and some secondary ones. But sometimes they get cut off on the right edge. I don’t know why this happens. For example, original form: Shrinked: Sometimes it doesn't even care about the buttons and eat a bit...

Hi everyone, I put one of my codes in Bing Chat and asked him to help me refactor it. It did, but in the end, instead of throwing my Error Handler as it was, it did it like this: Form_Load_Error: ShowErrorMessage "Form_Load", Erl End Sub Public Sub ShowErrorMessage(ByVal strProcedureName...

I think that The_Doc_Man clarifies the matter. I was thinking of keys like I'm used to with the RC4.

Hi everyone, I found this function here. Option Compare Database Option Explicit Private Type FourBytes A As Byte B As Byte C As Byte D As Byte End Type Private Type OneLong L As Long End Type Function DecToHex5(ByVal H1 As Long, ByVal H2 As Long, ByVal H3 As Long, ByVal H4 As...

Yes. to download the file "test.txt" to "c\temp" folder you change that line to FtpGetFile HwndConnect, "test.txt", "C:\temp\test.txt", False, 0, &H0, 0

Very Simple. 😅 I think It'll do the job for now. Thanks.

I found some samples here without knowing how to implement any of them. That's an interesting idea.

Hi, I have this code to upload files to a server. Option Compare Database Option Explicit Option Private Module '------------------- 'API Declaration '------------------- Private Declare Function InternetCloseHandle Lib "wininet.dll" _ (ByVal hInet As Long) As Integer Private Declare...

Yes it was.